'-------------------------

Private Sub Excelエクスポート_Click()

'フレームで選択したクエリをExcelファイルへ出力します

Dim 保存先 As String

Dim 日付 As String

Dim ファイル名 As String

Dim str確認 As String

Q1 = "クエリ1"

Q2 = "クエリ2"

Q3 = "クエリ3"

str確認 = "選択したリストをExcelファイルに出力しますか？"

  If MsgBox(str確認, 32 + vbYesNo, "Excel出力") = vbNo Then

  Exit Sub

  End If

  保存先 = "C:\試験\"

  日付 = Replace(Now, "/", "")

  日付 = Replace(日付, ":", "")

  機種名 = ""

Select Case フレーム

  Case 1

  strSource = Q1

  Case 2

  strSource = Q2

  Case 3

  strSource = Q3

End Select

 ファイル名 = 保存先 & 機種名 & strSource & 日付 & ".xls"

 DoCmd.OutputTo acQuery, strSource, acFormatXLS, ファイル名, False, ""

str確認 = "「" & 機種名 & strSource1 & 日付 & ".xls" & "」" & "を" _

& Chr(13) & Chr(13) & 保存先 & Chr(13) & Chr(13) & "に出力しました。"

MsgBox str確認, 48, "端末リスト出力完了"

End Sub