嗨我有以下代码，运行时，应创建一个带有数据的输出excel文件，使用宏中的查询检索。但是，在创建输出文件时，它是一个空文件，单击该文件时将无法打开并显示错误消息。当查询本身通过设计视图运行时，它工作正常，所以我不认为它的查询部分导致问题。我还在其他按钮上使用了编码（附在仪表板上的按钮上），它工作正常。任何想法会导致什么？
Dim xls As Excel.Application
Dim wkb As Excel.workbook
Dim wks As Excel.worksheet
Dim strFilePath As String
On Error Resume Next
strFilePath = "C:\xxx\xxx\Monthly MI : Submission Data - Electronic Submissions.xlsx"
Kill strFilePath
DoCmd.SetWarnings False
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qryMonthlyMISubmissionDataElectronicSubmissions", "C:\xxx\xxx\" & "Monthly MI : Submission Data - Electronic Submissions.xlsx", True
DoCmd.SetWarnings True
Set xls = New Excel.Application
xls.Visible = True
Set wkb = xls.Workbooks.Open("C:\xxx\xxx\Monthly MI : Submission Data - Electronic Submissions.xlsx", , True)
wkb.Activate
wkb.ActiveSheet.Columns("A:I").EntireColumn.AutoFit
Set xls = Nothing
Set wkb = Nothing
你不能在文件名中使用冒号（:），因为它们用于指定驱动器号（如c:）。