アクセス2013でエクセルにデータを出力したい

質問

はじめまして。初心者ですがよろしくお願いします。

アクセス2013で作成したテーブルをエクセル2013に出力させたいと思っています。
出力する場所が、1行ごとに出力するセルを指定したいのですが、どのようにすればよいのかわかりません。（うまく説明できないので下記のテーブルイメージと出力エクセルイメージを見てください。）
あわせて出力イメージの合計はH列になっていますが、これは可能であればの範囲で、一番やりたいことは、メーカーAの後数行あけてメーカーBにしたいのです。
ちなみに例ではメーカー名は２メーカーですが、実際には数十個あります。
よい方法があれば教えてください。
VBAは勉強中なのでなんとなくは読み書きできます。

よろしくお願いします。

～テーブルイメージ～

メーカー名　　2014/6/1　　2014/6/2,2014/6/3　　合計
-----------------------------------------------------
メーカーA　　　　　2　　　　1　　　　1　　　　　4
メーカーB　　　　　1　　　　1　　　　1　　　　　3

～出力エクセルイメージ～
A 　　　　　　B　　　　C　　　　D　　　・・・　H　　
1　メーカーA　　　　　2　　　　1　　　　1　　　　　　 4
2
3
4
5　メーカーB　　　　　1　　　　1　　　　1　　　　 　3
6
7

回答No.1

NotFound404 · ベストアンサー

標準モジュールの場合ですがこんな感じで。

Sub xlS()
Dim oXL As Object
Dim oBK As Object
Dim oSH As Object
Dim DB As DAO.Database ’ここでエラーになったら参照設定の変更を
Dim RS As DAO.Recordset
Dim i As Long, j As Long

Set DB = CurrentDb
Set RS = DB.OpenRecordset("実際のテーブル名に", dbOpenSnapshot)

Set oXL = CreateObject("Excel.Application")
'oXL.Visible = True
Set oBK = oXL.Workbooks.Add
Set oSH = oBK.sheets(1)

For i = 1 To RS.Fields.Count 'フィールド名転記
oSH.cells(1, i) = RS.Fields(i - 1).Name
Next

j = 2 'レコード転記は２行目から
Do Until RS.EOF
For i = 1 To RS.Fields.Count
oSH.cells(j, i) = RS.Fields(i - 1).Value
Next
RS.MoveNext
j = j + 5 '空き間隔調整
Loop
oBK.SaveAs "e:\123.xlsx" '適宜変更を

oXL.Quit
Set oBK = Nothing: Set oXL = Nothing
RS.Close: Set RS = Nothing

End Sub

お礼

早急な回答ありがとうございます。

しかも、つたない文章でやりたいことを理解いただき、簡潔明快な回答で、とても助かりました。

本当にありがとうございました。