質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

3回答

1638閲覧

EXCELでSQLを実行するために接続した際にエラーとなってしまう。

Otazoman

総合スコア44

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2017/09/07 08:20

https://lil.la/technology/post-2133

上記のサイトを参考にxlsxとxlmsにファイルを分割して
SQLでxlsx内の検索を行おうとしていますが接続時にエラーとなり、うまく動作しません。
何分エラーの詳細も不明なためどの様に対処していいか分からない状態です。

すいませんが解決策をご教示いただけないでしょうか。

エラーメッセージ
イメージ説明

VBA

1 2 Dim cn As Object 3 Dim rs As Object 4 Dim strSQL As String 5 Dim strWhere As String 6 Dim targetFile As String 7 8 Set cn = CreateObject("ADODB.Connection") 9 Set rs = CreateObject("ADODB.Recordset") 10 targetFile = "C:\Users\test\Desktop\test\data.xlsx" 11 12 With cn 13 .Provider = "Microsoft.ACE.OLEDB.12.0" 14 .Properties("Extended Properties") = "Excel 12.0;HDR=No;IMEX=1" 15 .Open targetFile 16 End With 17

.Open targetFileの箇所で該当のエラーが出力されます。
すいませんがよろしくお願いいたします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

PineMatsu

2017/09/07 08:37

サイトにアクセスできません。「403 Forbidden」になります。URLを確認してください。
sazi

2017/09/08 01:07

>PineMatsuさん 私はアクセスできました。403なのでサイト側の問題ではないでしょうか。
guest

回答3

0

接続文字列を変えても接続できなかったようですが、こちらでは、以下のコードでアクセスすることができました。

元のExcelは、以下の形式です。
イメージ説明

この.xlsxのExcelファイルを読み取って表示することができたプログラムは以下の通りです。

Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Set cnn = CreateObject("ADODB.Connection") cnn.provider = "Microsoft.Ace.OLEDB.12.0" cnn.ConnectionString = "Data Source=d:\Book1.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES""" cnn.Open Set rs = CreateObject("ADODB.Recordset") rs.Open Source:="SELECT * FROM [Sheet1$]", ActiveConnection:=cnn rs.MoveFirst Do Until rs.EOF MsgBox "AA=" & rs.Fields("AA").value & _ ", BB=" & rs.Fields("BB").value & _ ", CC=" & rs.Fields("CC").value rs.MoveNext Loop MsgBox "終了"

ご参考までにお送りします。

なにか、違いがあるか、Excelファイルのバージョンなど違いがあるのかなども確認すべき事項かと思います。

投稿2017/10/13 14:07

diracpaul

総合スコア157

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

私は、ACEデータベースエンジンでAccessファイル参照しか使った事はなく、Excelファイルを使った事はなかったのですが、接続文字列の指定方法に誤りがあるのではないでしょうか?

.Properties("Extended Properties") = "Excel 12.0;HDR=No;IMEX=1"
.Open targetFile
ではなく、
.ConnectionString = "Data Source=" & targetFile & ";" & _
"Extended Properties=""Excel 12.0;HDR=No;IMEX=1"""
.Open

にしては、如何でしょうか?

接続文字列指定では、Data Source=xxxxx;Extended Properties="Excel 12.0;xxx;yyyy"など属性とその値をセミコロン(;)で繋げて指定するようになっています。

投稿2017/09/07 13:39

diracpaul

総合スコア157

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Otazoman

2017/10/12 02:55

ありがとうございます。接続文字列を変更してみても接続できませんでした。
guest

0

ベストアンサー

.Provider = "Microsoft.ACE.OLEDB.12.0"

ってなってますけど、Access2007またはランタイム入ってます?

Accessに依存しなくて済む、MSDASQL(officeと一緒にインストールされる)を使用している、
こちら(Excelの集計をSQLでおこなう方法。)も参考にして見て下さい。

投稿2017/09/07 08:48

編集2017/09/09 07:48
sazi

総合スコア25138

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Otazoman

2017/09/08 01:00

同じコードで別のPCで試したところうまく動作したので ACCESS2007ランタイムがらみかもしれません。 該当のPCではACCESSランタイム入れてたはずなんですが・・・ もう一度環境チェックしてみます。
Otazoman

2017/10/12 02:54

ありがとうございます。ご連絡が遅くなり申し訳ありません。 やはり環境問題の様です。MSDASQLは試せていないですが時間ができてから 試してみます。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問