運行時錯誤'2498' - Access 2010 VBA - DoCmd.Trasnferspreadsheet

Question

我正在編寫一個基於用戶輸入的過濾查詢的腳本，然後這個查詢中的數據將用於製作一個新表qryMyExportedData。從那裏，數據將被輸出到ExportedData.xlsx。當我嘗試運行我的代碼，我得到以下錯誤：

Run-time error '2498': An expression you entered is the wrong data type for one of the arguments.

我的代碼：

Private Sub Query_Click() 
    Dim strExport as String 
    strExport = "SELECT * FROM qryCostDepLosses WHERE [Maintenance Type] = '" & Me.MainType & "' AND [Date] = #" & Me.Date & "#" 

    Set qdfNew = CurrentDb.CreateQueryDef("myExportQueryDef", strExport) 

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "myExportQueryDef", CurrentProject.Path & "\ExportedData.xlsx", "True" 

    CurrentDb.QueryDefs.Delete qdfNew.Name 'cleanup 

End Sub 

我有誤差縮小到DoCmd.TransferSpreadsheet線。我相信，strExport看起來應該是它應該的。數據也被導出到myExportQueryDef。

Answer 1

您正試圖發送布爾值作爲字符串。因此，代碼應該是這樣的：

Private Sub Query_Click() 
    Dim strExport as String 
    strExport = "SELECT * FROM qryCostDepLosses WHERE [Maintenance Type] = '" & Me.MainType & "' AND [Date] = #" & Me.Date & "#" 

    Set qdfNew = CurrentDb.CreateQueryDef("myExportQueryDef", strExport) 

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "myExportQueryDef", CurrentProject.Path & "\ExportedData.xlsx", True 

    CurrentDb.QueryDefs.Delete qdfNew.Name 'cleanup 

End Sub 

基本上只是從周圍True刪除引號。