Excel 2013でのQueryエラー

Question

皆さん、こんにちは

SQL Serverからの抽出プログラムをExcelで作りこんで実行しているのですが、Excel 2013へアップグレードしてから1回目は問題なく実行できるのですが2回目は必ずエラーが発生します。

何方か下記のどの文がExcel 2013で使用できなくなったかアドバイスしていただけませんでしょうか？ちなみにExcel 2010では何度で実行しても問題は発生しません。

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=SQL_Server;Database=DATABASE;UID=xxxx;PWD=xxxxx" _

, Destination:=Range("$A$1")).QueryTable

.CommandText = (wSQLquery)

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = False

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.PreserveColumnInfo = True

.ListObject.DisplayName = "Extract_Data"

.Refresh BackgroundQuery:=False

End With

よろしくお願いします。

Answer 1

大沢さん、返信ありがとうございます。

早速、アドバイスいただいたフォーラムに投稿してみました。

ありごうございます

Answer 2

​YukiyaIshimaru さん、こんにちは。

マイクロソフト コミュニティに投稿いただき、ありがとうございます。

Excel で作成したプログラムを使った Query の取り込みがうまくいかないということですね。

参考となるような情報がないか探してみたのですが、お調べした範囲では有力な情報は見つかりませんでした。

もしかしたら Excel 2013 ではコードの変更や工夫が必要なのかもしれません。

当フォーラムでは、 Officel の使い方や、トラブル発生時の対処法についての情報交換が多く行われているため、プログラムの内容については情報が集まりにくいかもしれません。

プログラムや VBA に関しての質問については、開発者の方々が情報交換を行っている VBA フォーラムに投稿していただき情報を集めてみてはいかがでしょう。

■ Msdn フォーラム - Visual Basic for Application(VBA)

※ エラーメッセージやコード全文を書いて投稿していただくと情報が集まりやすくなると思います

せっかく質問していただいたのに、別のフォーラムのご紹介のみでごめんなさい。

返信お待ちしています。