フィールド名、フィールド名のデータ型を取得する

フィールド名を取得する

Sub フィールド名取得()
'フィールド名を取得する
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset
Dim FileName As String, i As Integer
FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb"
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName
myRS.Open "社員", myCon, adOpenForwardOnly, adLockReadOnly

For i = 1 To myRS.Fields.Count
  'フィールド名をセルに書き出す
  Cells(1, i) = myRS.Fields(i - 1).Name
Next

'レコードを転記
Range("A2").CopyFromRecordset myRS

myRS.Close: Set myRS = Nothing
myCon.Close: Set myCon = Nothing

End Sub

「社員」テーブル

実行結果