ExcelでSQLクエリを実行するマクロ

Question

セル参照をパラメータとして使用してExcelで作成した一連のSQLクエリがあります。すべてのクエリは1つの列に文字列として格納されます。 Microsoft Queryを使用して各SQL問合せの接続を作成するのではなく、マクロを実行して各セルから問合せを実行し、その結果をセルに直接出力する方法がありますそれ？

ありがとうございました

Answer 1

ADODBの使用はどうですか？私はSQLがA1以下に置かれていると仮定しました：

Const MY_CONNECTION_STRING = "Driver={SQL Server};Server=X;Database=Y;Trusted_Connection=Yes" 
Sub RunSQL() 
Dim cnn, c, rs 
Set cnn = CreateObject("ADODB.Connection") 
cnn.Open MY_CONNECTION_STRING 
For Each c In Range("A1:A" & UsedRange.Rows.Count) 
    Set rs = cnn.Execute(c.Value) 
    c.Next.Value = rs.collect(0) 
    rs.Close 
Next c 
cnn.Close 
End Sub