accessからExcelテンプレートへの出力

質問

お世話になります。
accessのクエリ内データをテンプレExcel内の指定セルに出力したいです。accessVBAで以下の流れで作成したく。

①accessでクエリ抽出（複数レコードに顧客ID、所属、売上げ額）
②テンプレExcel内の顧客ID、所属、売上げ額をそれぞれのセルに入力
③１人分が出来たら、ファイル名「顧客ID＋"売上表".xlsx」で保存先「フォルダA」へ保存したい。
④同様にクエリ内の他の対象者もExcelファイル作成し、「フォルダA」へ蓄積したい。
⑤可能であれば、「フォルダA」内のファイルをメールで一括送信したく、ファイルパス名リストも別エクセルに出力したい。

説明が拙い部分もあるかと思いますが、何卒お力をお貸しいただけないでしょうか。

回答No.2

chayamati

如何しましたか
回答が、説明不足でしたか？
既存のファイル（テンプレート）にエキスポートするには受け側のセルとSheat名のコントロールが必要になります。
エキスポート先のファイルをテンプレート名として、このテンプレートにワークシートないときは、
例えば「朝食」というSheatが追加されこのSheatのA1のセルから入ります。
2度目以降は同名のセルに上書きされます。
すみません。説明がマズいですね。

回答No.1

chayamati

★Accessでの入力は効率が上がりますね
　私は食事履歴をAccessで入力して、選択クエリーで、日付、食材名、カロリーを　Excelへエキスポートしてグラフにしています。
　下記の「XLS …」クエリ名、「エクセルのファイル名」、「ワークシート名」
DoCmd.SetWarnings True
DoCmd.TransferSpreadsheet acExport, , "XLS 朝食", エクセル名, True, "朝食"
DoCmd.TransferSpreadsheet acExport, , "XLS 昼食", エクセル名, True, "昼食"
DoCmd.TransferSpreadsheet acExport, , "XLS 夕食", エクセル名, True, "夕食"
DoCmd.TransferSpreadsheet acExport, , "XLS 単日朝食", エクセル名, True, "単日朝食"
DoCmd.TransferSpreadsheet acExport, , "XLS 単日昼食", エクセル名, True, "単日昼食"
DoCmd.TransferSpreadsheet acExport, , "XLS 単日夕食", エクセル名, True, "単日夕食"
DoCmd.TransferSpreadsheet acExport, , "XLS 血糖履歴", エクセル名, True, "血糖履歴"
DoCmd.TransferSpreadsheet acExport, , "XLS薬", エクセル名, True, "薬"
DoCmd.TransferSpreadsheet acExport, , "SMBG定数", エクセル名, True, "SMBG定数"
DoCmd.TransferSpreadsheet acExport, , "XLS 一言日記", エクセル名, True, "日記"
-----------------------------
　次にエクセルファイルを開きます
Call Shell("Excel.exe " & エクセル名, vbMaximizedFocus)
End Sub