ＡＣＣＥＳＳ クエリ→フォーム フィルターをかけたデータのみエクスポートしたい
よろしくお願いします。
クエリのデータをフォームで表示し、その時にコンボボックスで表示するデータを指定し抽出・表示しています。（[授業名]フィールドのコンボボックスで、指定した授業のみ抽出します）
最終的に抽出したデータを、コマンドボタンでエクスポートできるようにしたいのですが、私の記述方法では「全てのクエリのデータ」がエクスポートされてしまいます。
どのような方法でもいいのですが、指定したデータ（[授業名]）のみエクスポートする方法はないでしょうか・・・？
＊データエクスポートのＶＢＡ記述内容＊
Private Sub cmdデータ出力_Click()
'名簿データのエクスポート
Dim msg As String
msg = MsgBox("名簿データを出力します。", vbYesNo, "出力確認")
If msg = vbYes Then
'どの場所にデータをエクスポートするか指定
DoCmd.TransferSpreadsheet acExport, , "Q_受講者名簿用", _
"Y:\○○課\住所録データエクスポート場所\" & "受講者名簿【ACCESSより】.xls", True
answer = MsgBox("受講者名簿データを出力しました", vbOKOnly, "データの出力の確認")
cancel = True
End If
End Sub
＊ちなみに、フォーム上でフィルターをかけたＶＢＡは＊
Private Sub cmd名簿_Click()
Dim stList As String
Dim stFil As String
If combo1 <> "" Then
stFil = "[授業名]='" & combo1 & "'"
End If
Me.Filter = stFil
Me.FilterOn = True
End Sub
お礼
REPLACE関数でできました。 お答えいただきありがとうございました。