Private Sub ExcelExport()
'変数宣言
Dim filePath As String
'Excelエクスポート先のファイルパス
’filePath = "D:\保存先\" & "Export_" & Format(Date, "yymmdd") & ".xlsx"
' Excelファイルを保存するデスクトップのパスを取得
filePath = Environ("USERPROFILE") & "\Desktop\" & "Export_" & Format(Date, "yymmdd") & ".xlsx"
'Excelファイルの出力
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "クエリ名", filePath, True, "出力結果"
'Excelファイルをエクスポートした旨を通知する。
MsgBox "Excelをエクスポートしました。"
End Sub