Question

嗨，我有以下代码，当运行时，应使用数据创建输出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

Answer 1

您不能在文件名中使用冒号（:），因为它们用于指定驱动器号（例如c:）。

访问宏空文件输出

1 个答案:

更多信息：