microsoft query でのSQLからのデータ取り込み

質問

SQLサーバーに存在するデータを、microsoft queryを使ってエクセルに取り込む作業をVBAにて自動化しようとしています。

取り込むデータベースファイルはSQLサーバーと接続されたアクセスファイル(.adpファイル)を指定しました。

途中まではマクロの記憶にてコーディングできたのですが、マクロを実行すると、「SQLサーバーログイン」のダイアログが表示され、パスワードを求められてしまいます。ちなみにパスワードを入力すれば、問題なくエクスポートされます。

できればこのパスワードも登録しておき、最後まですべて自動化したいのですが、何か方法はありますでしょうか。

念のため、作成したコードと問題のパスワードダイアログを添付致します。

With ActiveSheet.QueryTables.Add(Connection:= _
"OLEDB;Provider=SQLOLEDB.1;Data Source=OEM_COMPUTER\DB;Initial Catalog=sf0;User ID=USER;Password=""""" _
, Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("""dbo"".""V_数値合計""")
.Name = "adp1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\Documents and Settings\owner\デスクトップ\業務\adp1.adp"
.Refresh BackgroundQuery:=False
End With
End Sub

回答No.1

rivoisu · ベストアンサー

接続文字列
"OLEDB;Provider=SQLOLEDB.1;Data Source=OEM_COMPUTER\DB;Initial Catalog=sf0;User ID=USER;Password="""""
にパスワードを入れるのじゃないでしょうか