在Access中使用Excel SaveAs命令

我已经做了研究，发现这个话题很less。 我做了一个excelmacros来在线保存一个文件，但是想把代码移植到Access中，把所有代码放在一个地方（我通过Access调用Excelmacros）。 这里是Excelmacros。

ThisWorkbook.RefreshAll Application.CalculateUntilAsyncQueriesDone ActiveWorkbook.ServerViewableItems.DeleteAll ActiveWorkbook.ServerViewableItems.Add ActiveWorkbook.Sheets("Data") ActiveWorkbook.SaveAs Filename:= _ "website" _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 

它在Excel中工作。 当我把它移到Access时，我改了一下代码。

 Dim objWorkbook As Object Dim sourcefilepath As String Set objXL = CreateObject("Excel.Application") objXL.Application.Visible = False objXL.displayalerts = False 'objXL.Application.Run ("SharepointUpload")' objXL.ActiveWorkbook.RefreshAll objXL.Application.CalculateUntilAsyncQueriesDone objXL.ActiveWorkbook.ServerViewableItems.DeleteAll objXL.ActiveWorkbook.SaveAs FileName:= _ "website" _ , FileFormat:=xlExcel12, CreateBackup:=False objWorkbook.Close objXL.Quit Set objWorkbook = Nothing Set objXL = Nothing 

但是，我不断收到Workbook类的运行时错误“1004”SaveAs方法失败。 我想这是在Access中设置Excelvariables的一种方法。 任何帮助表示赞赏