Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35124 / 76732

←次へ　｜　前へ→


	【46810】Re:Accessのテーブルを読込んでＥｘｃｅｌで出力したいのですが

小林 - 07/2/15(木) 23:36 -


	引用なし

	パスワード

▼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

1 hits

▼

【46792】Accessのテーブルを読込んでＥｘｃｅｌで出力したいのですが TAKE 07/2/15(木) 14:29