Привет У меня есть следующий код, который при запуске должен создать выходной файл 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