Excel VBA質問箱 IV

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

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


6167 / 13644 ツリー ←次へ | 前へ→

【46792】Accessのテーブルを読込んでExcelで出力したいのですが TAKE 07/2/15(木) 14:29 質問[未読]
【46794】Re:Accessのテーブルを読込んでExcel... Kein 07/2/15(木) 15:07 発言[未読]
【46810】Re:Accessのテーブルを読込んでExcel... 小林 07/2/15(木) 23:36 回答[未読]
【46823】Re:Accessのテーブルを読込んでExcel... TAKE 07/2/16(金) 14:37 発言[未読]
【46814】Re:Accessのテーブルを読込んでExcel... かみちゃん 07/2/16(金) 0:31 発言[未読]

【46792】Accessのテーブルを読込んでExcelで...
質問  TAKE  - 07/2/15(木) 14:29 -

引用なし
パスワード
   Accessのテーブルを読込んでExcelで出力したいのですが
Excel VBAがよくわかりません。
Accessなら簡単なのですけど、どうしてもExcelで出力したいといけません。
Accessのテーブルに氏名・社員ナンバーがありそれを
Excelのセルに入力してシートを出力します。
Accessのデータがなくなるまで1枚ずつ出力したいのです。

Dim myCurDb As Database
  Dim myCurTbl As TableDef
  Dim myCurFld As Field
  Const myMdbFile = "C:\NewDb.mdb"

Accessの読込は上記の書き方でいいのでしょうか?
accessのレコードを読込むにはどうすればいいのか教えてください。
よろしくお願いします

【46794】Re:Accessのテーブルを読込んでExce...
発言  Kein  - 07/2/15(木) 15:07 -

引用なし
パスワード
   仮にDAOでやるなら、↓を参考にして下さい。(URLの先頭4文字を半角に変換)
http://www.vbasekai.com/tipsdao.html#tips0010
>テーブルに氏名・社員ナンバー
特定のフィールドのみを引っ張るなら、OpenRecordset の引数にSQL文を
渡せば良いでしょう。それが分かりにくいなら、単純に全レコードをセルに
落としてから、不要な列を削除する方法もあります。
とにかくAccessを使うなら、DAOかADOの知識は必須と言っても過言ではない
です。基本的な解説をしているサイトはいくつもありますから、必ず習得する
ように努力して下さい。

【46810】Re:Accessのテーブルを読込んでExce...
回答  小林  - 07/2/15(木) 23:36 -

引用なし
パスワード
   ▼TAKE さん:
こんばんわ。

>Accessのテーブルを読込んでExcelで出力したいのですが
>Excel VBAがよくわかりません。

あまり詳しくないので参考書を読んで書きました。
突っ込まれても答えられません、たぶん。
すいません。

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

【46814】Re:Accessのテーブルを読込んでExce...
発言  かみちゃん  - 07/2/16(金) 0:31 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>よろしくお願いします

以下へ移動されたのでしょうか?
http://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=94364&rev=0

【46823】Re:Accessのテーブルを読込んでExce...
発言  TAKE  - 07/2/16(金) 14:37 -

引用なし
パスワード
   ▼小林 さん:

ありがとうございます。
早速やってみます

6167 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free