我正在尝试使用以下代码将表从访问导出到 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