|
エクセルから、VBAを使って、
アクセスのテーブルデータを取り込むマクロを作成していますが、
項目が入ってきません
項目も取り込むようにするにはどうしたら、よいのでしょうか?
どうか、アドバイスをお願いします
現在の記述です↓
Sub Access取込()
Dim cn As Connection
Dim rs As Recordset
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "シート1"
Set cn = New Connection
cn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;" _
& "data source=C:\フォルダ\データ.mdb"
cn.Open
Set rs = New Recordset
rs.Open "T_test", cn
Sheets("シート1").Range("A" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset rs
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
|
|