экспорт таблиц доступа в Excel

Question

Я пытаюсь использовать следующий код для экспорта таблиц из доступа в Excel

Я получаю сообщение об ошибке: объект не поддерживает свойство или метод в конце

 Set objexcel = New Excel.Application
   objexcel.Visible = True

   If Dir("C:\reports\Data_Analysis1.xls") = "" Then
   objexcel.Workbooks.Add
   Set wbexcel = objexcel.ActiveWorkbook
   Set objSht = wbexcel.Worksheets("Sheet1")
   Else
   Set wbexcel = objexcel.Workbooks.Open("C:\Documents and Settings\TAYYAPP\Desktop\test folder\reports\ERROR REPORT4.xls")
   Set objSht = wbexcel.Worksheets("Sheet1")
   End If

   objSht.Activate


   objexcel.DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "UTYP_Anzahl", "C:\Reports\Data_Analysis1.xls", True

Answer 1

DoCmd, как в «DoCmd.TransferSpreadsheet», является командой MS Access, а не командой Excel. Я думаю, что это твоя проблема.

Если этот VBA работает внутри MS Access, просто обратитесь к нему как

DoCmd.TransferSpreadsheet

Не

objexcel.DoCmd.TransferSpreadsheet

Кроме того, если это то, что вы делаете, вам не нужно вручную создавать файл Excel с помощью Execl Automation, Access сделает это за вас.

Извините, если я неправильно понял, что вы делаете, но я думаю, что все, что вам нужно, это команда TransferSpreadSheet.

Answer 2

Этот ответ работает с объектом Excel и может быть полезен, поскольку позволяет автоматически форматировать файл Excel.