Access Table Defs

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 カラム名 取得