我在一个项目中打开Excel文件并将其保存在另一个文件夹中。在调用SaveAs之前一切正常。我可以保存文件，但不能使用SaveAs。我从所有代码所在的MS Access中调用Excel。以下是我的代码以及我尝试的一些变体。所有3个变体都产生了相同的错误。我不确定我在这里做错了什么。

Option Compare Database

    Sub Testsave()
    Dim objexcel1 As Excel.Application
    Dim xlWB1 As Excel.Workbook

    Set objexcel1 = CreateObject("Excel.Application")
    'objexcel1.DisplayAlerts = False

    Set xlWB1 = objexcel1.Workbooks.Open("C:\Submission File.xlsx", ReadOnly:=False)
    xlWB1.Application.Visible = True

'Try 1
    xlWB1.Application.Workbooks("Submission File.xlsx").SaveAs FileName:="C:\Submission File3", FileFormat:=xlWorkbookNormal

'Try 2
    xlWB1.Application.ActiveWorkbook.SaveAs FileName:="C:\Submission File2", FileFormat:=xlWorkbookNormal

'Try 3
    xlWB1.Application.ActiveWorkbook.SaveAs "T:\Submission File2.xlsx", AccessMode:=xlExclusive,     ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges

    xlWB1.Close (True)

    End Sub

要保存在其他目录中的档案。