■準備
Excel VBA にて
[ツール]-[参照設定]-[Microsoft DAO 3.x Object Library]
にチェックを入れる。
FIXが適用されている場合、3.x の部分が適当に変わっている。
■コード
Private Sub GetSQL1()
Dim MyTBL As TableDef
Dim MyDB As Database
Dim strFld As String
Dim i As Integer
Dim rs As Recordset
'オブジェクト変数の設定
Set MyDB = DBEngine.Workspaces(0).OpenDatabase("C:\temp\売上管理2_10.mdb")
Set rs = MyDB.OpenRecordset("取引会社テーブル")
Do Until rs.EOF
Debug.Print rs.Fields("会社名")
rs.MoveNext
Loop
rs.Close
MyDB.Close
Set MyDB = Nothing
End Sub
■tags
---
MS Access VBA DAO カラム データ 取得