Access Table Defs
VBA+DAO で MS Access ファイルからテーブル定義を取得する。
VBA+DAO で MS Access ファイルからテーブル定義を取得する。
■準備
Excel VBA にて
[ツール]-[参照設定]-[Microsoft DAO 3.x Object Library]
にチェックを入れる。
FIXが適用されている場合、3.x の部分が適当に変わっている。
■コード
' http://support.microsoft.com/default.aspx?scid=kb;ja;405458
Sub GetFieldName()
Dim MyTBL As TableDef
Dim MyDB As Database
Dim strFld As String
Dim i As Integer
'オブジェクト変数の設定
Set MyDB = DBEngine.Workspaces(0).OpenDatabase("C:\temp\売上管理2_10.mdb")
Set MyTBL = MyDB.TableDefs("取引会社テーブル")
'フィールド名を取得
For i = 1 To MyTBL.Fields.Count
strFld = MyTBL.Fields(i - 1).Name
Debug.Print strFld
Next
End Sub
■tags
---
MS Access VBA DAO カラム名 取得