• ベストアンサー
  • すぐに回答を!

アクセスからVBAでエクセルに出力する方法

  • 質問No.6043020
  • 閲覧数2249
  • ありがとう数9
  • 気になる数0
  • 回答数3
  • コメント数0

お礼率 100% (3/3)

アクセスからVBAでエクセルに出力する方法
アクセスで下記のようなクエリの結果に対して、VBAにて会社毎のエクセルファイルを作成、
保存したいと思いますが、どのようにすればいいでしょうか?

ファイル名は、[KAISYA_MEI].xlsとし、それぞれをC:\ などに保存したい。

ちなみにExcel2003、Access2003を使用しています。

・アクセスのクエリ結果
KAISYA_ID  KAISYA_MEI  TANTOSYA_MEI     MAIL     TEL
1        ○○社        ***        ***@***0*-***-****
2        △△社        ***        ***@***0*-***-****
2        △△社        ***        ***@***0*-***-****
3        □□社        ***        ***@***0*-***-****
3        □□社        ***        ***@***0*-***-****

↓ 
ファイル名:○○社.xls のエクセルファイル
KAISYA_ID  KAISYA_MEI  TANTOSYA_MEI     MAIL     TEL
1        ○○社        ***        ***@***0*-***-****

↓ 
ファイル名:△△社.xlsのエクセルファイル
KAISYA_ID  KAISYA_MEI  TANTOSYA_MEI     MAIL     TEL
2        △△社        ***        ***@***0*-***-****
2        △△社        ***        ***@***0*-***-****

...


よろしくお願い致します。

質問者が選んだベストアンサー

  • 回答No.3
  • ベストアンサー

ベストアンサー率 59% (574/965)

もっぱらADOを使っておりますが、本課題はDAOの方が楽だと考え、諸サイトを参考に作成してみましたが、#2のリンク先で、DAOを用いているコードとほぼ同じですね。一時的なクエリを作成している(事前にダミーのクエリを作っておく必要なし)のが違っているのと、一時的なテーブルを作成していますが、これはdb.OpenRecordsetに直接SQLを与えてRecordsetを取得すれば必要がない様です。折角作ったので、ご参考までに載せておきます。テーブル名の記載がなかったので、「Table名」という名前のテーブルで記述しています。
'DAOに参照設定要
Sub test()
Dim db As DAO.Database
Dim qdf As QueryDef
Dim RS As DAO.Recordset
Dim mySQL As String, destFileName As String
Dim i As Integer

'重複しない会社名リストを作成、IDを用いる方がベター
Set db = CurrentDb
mySQL = "SELECT DISTINCT KAISYA_MEI INTO T_KAISHA_LIST FROM Table名;"
db.Execute mySQL
'会社名リストの各レコードについて処理
Set RS = db.OpenRecordset("T_KAISHA_LIST")
RS.MoveFirst
Do Until RS.EOF
mySQL = "SELECT * FROM Table名 WHERE KAISYA_MEI='" & RS(0) & "';"
'テンポラリクエリを作成
Set qdf = db.CreateQueryDef("Q_temp", mySQL)
DoCmd.SetWarnings False
'出力先エクセルファイルがすでに存在していれば削除
destFileName = "C:\" & RS(0) & ".xls"
If Dir(destFileName) <> "" Then Kill destFileName
'Access2000用コード
DoCmd.TransferSpreadsheet acExport, 8, "Q_temp", destFileName, True, ""
db.QueryDefs.Delete "Q_temp"
DoCmd.SetWarnings True
Set qdf = Nothing
RS.MoveNext
Loop
RS.Clone
Set RS = Nothing
db.Execute "Drop Table [T_KAISHA_LIST];"
db.Close: Set db = Nothing
End Sub
お礼コメント
Plumeria035

お礼率 100% (3/3)

ご教示頂いたコードを参照させて頂いた結果、実行できました!困っておりましたので、大変助かりました。本当に有り難うございました。
投稿日時:2010/07/23 20:03

その他の回答 (全2件)

  • 回答No.2

ベストアンサー率 73% (370/504)

最近似たような質問をみかけました。

フィールド名毎にCSV出力したいです
http://www.moug.net/faq/viewtopic.php?t=51697

上記は、CSVへの出力になりますが、
DoCmd.TransferText
部分をExcel出力用に置き換えることで、できると思います。
お礼コメント
Plumeria035

お礼率 100% (3/3)

リンク先を確認させて頂きましたが、ご指摘のように似た質問があったのですね。大変有り難うございました。
投稿日時:2010/07/23 20:01
  • 回答No.1

ベストアンサー率 28% (4503/16080)

色んな考えがあると思うが、
まず方式の決定が必要。
(1)クエリを会社ごとに実行(いわばパラメータクエリのパラメータが会社名)
それをマクロなどで、エクスポートコマンドでエクセルのファイル・シートにエクスポートするのが早いいのでは。
ただDistinctな会社名ファイルが必要になるが。
またエクセルにはMSクエリというアクセスまがいの機能もある。
(2)または、アクセス側でクエリの結果を、会社名でソートして、レコードとして読んで、エクセルVBAでエクセルファイルのシートに書き、会社名が途切れたときに別ファイルに移るほうが良いかもしれない。
(3)一旦エクセルの、あるブックのシートに、全データをエクスポートで集め、会社名でソートして、エクセルVBAで会社ごとに別ブックに振り分ける、のも単純で良いかもしれない。
ーー
相当手馴れていないと上記をVBAでやるのは難しい(アクセスのモジュールには詳しくても、特にエクセルVBAの点)と思うが、大丈夫かな。
本質問は、丸投げ質問状態でプログラムの作成依頼のようであるが、コードは少し長くなり、引き受けるのは難しい。
お礼コメント
Plumeria035

お礼率 100% (3/3)

いくつかの方法があることがわかり、大変参考になりました。有り難うございました。
投稿日時:2010/07/23 20:00
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ