クエリ抽出条件の設定

質問

今ＭＳ　Ａｃｃｅｓｓを使ったシステムで会社の各地域毎に名簿を管理しています。
今はフォームの各地域のボタンを押すとその地域をApplyFilterを使って抽出条件としてフォームに送り名簿を表示しています。
これまではそのフォームデータをエクセルに出力して編集するためにOutputTo acOutputFormを使ってフォームデータをエクセルに出力していました。
このエクセルに出力する時にエクセルテンプレートにこのデータを出力するように変更したいと思っています。
フォームデータをテンプレートに出力する方法が現在見つかっていないのでクエリに条件をかけてテンプレートに出力使用と思います。
クエリの抽出条件の設定をApplyFilterのようにボタンを押すだけで設定できるようにするにはどのような方法がありますか？
また、行おうとしている方法が無理な場合別の方法はあるのでしょうか？
説明が不十分な部分があるかとは思いますが随時補足を入れていきたいと思うのでご回答よろしくお願いします。

回答No.1

mitarashi · ベストアンサー

ご質問の内容とは異なり、従来法の延長ですが、フォームに出力用のボタンを設けて、下記の様な方法で如何でしょうか。

Private Sub コマンドxx_Click()
Dim objXl As Object
Dim tempWbk As Object, newWbk As Object
Const xlPasteValues = -4163

'フォームのフィルターのかかったデータをテンポラリファイルにエクスポート
DoCmd.OutputTo acOutputForm, Me.Name, acFormatXLSX, CurrentProject.Path & "\temp.xlsx"
Set objXl = CreateObject("Excel.Application")
'テンプレートを元に新規ブックを作成
Set newWbk = objXl.workbooks.Add(CurrentProject.Path & "\template.xltx")
'テンポラリファイルを開く
Set tempWbk = objXl.workbooks.Open(CurrentProject.Path & "\temp.xlsx")
'ここはご自分でお好きな様に作り込んで、テンポラリファイル→新規ブックにデータ転送して下さい。
tempWbk.worksheets(1).range("A1").currentregion.copy
newWbk.worksheets(1).range("A1").pastespecial Paste:=xlPasteValues
'新規ブックを保存
newWbk.SaveAs CurrentProject.Path & "\newData.xlsx"
'後始末
newWbk.Close
tempWbk.Close
objXl.Quit
Set objXl = Nothing
End Sub

参考URL：

http://www.ken3.org/cgi-bin/group/vba_access_excel.asp

お礼

一旦出力したものをテンプレに移し替えるんですね。
そこまで思いいたっていませんでした。
コードを真似て適用したら上手く動作してくれました。
ほんとうにありがとうございます。