Excel에서 SQL 쿼리를 실행하는 매크로

Question

셀 참조를 매개 변수로 사용하여 Excel에서 만든 SQL 쿼리가 여러 개 있습니다. 모든 쿼리는 하나의 열에 문자열로 저장됩니다. Microsoft Query를 사용하여 각 SQL 쿼리에 대한 연결을 만드는 대신 매크로를 실행하여 열을 실행하고 각 셀의 각 쿼리를 실행하고 셀의 결과를 오른쪽으로 직접 출력 할 수 있습니까? 그것?

감사 ADODB를 사용하는 방법에 대한

Answer 1

어떻게? 나는 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