| |
▼TAKE さん：
こんばんわ。
>Accessのテーブルを読込んでＥｘｃｅｌで出力したいのですが
>Ｅｘｃｅｌ ＶＢＡがよくわかりません。
あまり詳しくないので参考書を読んで書きました。
突っ込まれても答えられません、たぶん。
すいません。
Option Explicit
Sub test()
Dim dname As String
Dim ddata As String
Dim NewDB As Object
Dim BookName As Object
Dim i As Integer
'データベースのフルパス作成
dname = ActiveWorkbook.Path & "\db1.mdb"
'データベースとテーブルをセット
Set NewDB = OpenDatabase(dname)
Set BookName = NewDB.OpenRecordset("t_test", dbOpenTable)
BookName.MoveFirst
For i = 1 To BookName.RecordCount
'取得するフィールド名を記述
Cells(i, 1) = BookName.Fields("フィールド1").Value
Cells(i, 2) = BookName.Fields("フィールド2").Value
Cells(i, 3) = BookName.Fields("フィールド3").Value
BookName.MoveNext
Next
BookName.Close
NewDB.Close
Set BookName = Nothing
Set NewDB = Nothing
End Sub
|
|
小林
- 07/2/15(木) 23:36 -
