Microsoft Access 掲示板

その要件なら、ダミーのクエリを作成しておいて、そのSQLを書き換えてエクスポートするという方法が簡単ではないでしょうか。

下記で、フィールドを選択してエクスポートするという方法を紹介しています。
それの応用でできるでしょう。

テーブルのフィールドを指定してエクスポート - hatena chips

Q_Dummy という名前のクエリを作成しておきます。上書きしますので中身はなんでもいいです。

Private Sub cmdExport_Click()
    Dim strFileName As String
    strFileName = "C:\Test\Test.xlsx"
    Dim strSQL As String   
    strSQL = "SELECT * FROM テーブル名 Where " & Me.Filter & ";" 
    CurrentDb.QueryDefs("Q_Dummy").SQL = strSQL
    DoCmd.TransferSpreadsheet acExport, , "Q_Dummy", strFileName, True
End Sub