将访问表导出到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.TransferSpreadsheet”中的DoCmd是MS Access命令，而不是excel命令。 我认为那是你的问题。

如果此VBA在MS Access中运行，则只需将其称为

DoCmd.TransferSpreadsheet

不

objexcel.DoCmd.TransferSpreadsheet

另外，如果您正在执行此操作，则无需使用Execl Automation手动创建excel文件，Access会为您完成。

抱歉，如果我误解了您的操作，但我认为您所需要的只是TransferSpreadSheet命令。

Answer 2

该答案适用于Excel对象，可能会有所帮助，因为它允许您自动设置excel文件的格式。