ExcelでADOを使って他のブックを参照したい

質問

いつも楽しく勉強させていただいております。

VBA関連のサイトを参照して同じブックにあるシートをADOを使って参照することに成功しました。

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim SQL As String

Set CN = New ADODB.Connection
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.Properties("Extended Properties") = "Excel 8.0"
CN.Open ThisWorkbook.FullName
SQL = "SELECT * FROM [userlist$]"
RS.Open SQL, CN, adOpenStatic, adLockReadOnly

Do Until RS.EOF
Debug.Print RS![P-1]
RS.MoveNext
Loop

RS.Close
CN.Close

これを現在開いている別のブック、たとえばBook1にあるシートを参照するにはどこをどう書き換えたらいいでしょうか。

回答No.2

Siegrune · ベストアンサー

CN.Open ThisWorkbook.FullName
を、Book1に変更。
CN.Open Workbooks("Book1").FullName

SQL = "SELECT * FROM [userlist$]"
をsheet1に変更。
SQL = "SELECT * FROM [Sheet1$]"

Debug.Print RS![P-1]
を列名Ａに変更
Debug.Print RS![列名Ａ]

EXCEL2003では動いた。
編集したがまだ保存していない状態でも、画面に表示されている内容が出てきたのはちょっと驚き。
## こちらも勉強になるということですね。

ただし、workbooks("Book1").sheets("Sheet1").cells(1,1).valueなどで値を取得できるのを
あえてADOで取得しなくてはいけない理由はあまりわかりませんが。

お礼

回答ありがとうございました。無事に動きました。

workbooks("Book1").sheets("Sheet1").cells(1,1).valueといった使い方をしないわけは、SQLの集合関数を使ったちょっと複雑な式を使いたいのです。

回答No.1

m3_maki

未確認ですが

> CN.Open ThisWorkbook.FullName

　CN.Open "C:\Test\Book1.xls"

とか。