|
▼まい さん:
>項目も取り込むようにするにはどうしたら、よいのでしょうか?
>
>どうか、アドバイスをお願いします
Dim i as long
>
> 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
for i 0 to rs.Fields.count - 1
Sheets("シート1").cells(行, i).value = rs.Fields(i).name
next '↑のiは桁の位置にあわせる。例えば i + 1とか
>
>Sheets("シート1").Range("A" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset rs
|
|