保存 xlsm，运行代码后，我无法将工作表保存在当前位置

Question

我运行 vbscript 来打开我的 excel 表并运行宏。但是在运行宏之后我尝试保存它时出现此错误。

我注意到文件选择器的位置不是原始位置，这就是出现此错误消息的原因。

运行 vbscript 后如何保持位置不变？

这是我的 vbscript：

Set appExcel = createObject("Excel.Application")
set fso = CreateObject("Scripting.FileSystemObject")
CurrentDirectory = fso.GetAbsolutePathName(".")

appExcel.Application.Visible = True
appExcel.Application.DisplayAlerts = False
appExcel.Application.AskToUpdateLinks = False
appExcel.Application.EnableEvents = True

appExcel.Workbooks.Open(CurrentDirectory & "\excelsheet")

appExcel.Application.Run "Run_it"

appExcel.Application.EnableEvents = False


Set appExcel = Nothing
Set fso = Nothing

谢谢。