Excel 运行宏时出现未知运行时错误

我需要一种方法来安排自动打开Excel文件，刷新内容，然后保存并关闭它

我以前已经这样做过，但我无法再打开该文件，因为打开该文件会导致宏刷新，然后保存并关闭该文件以运行

在尝试了几种方法之后，我考虑了VBScript。我在这里找到了这个密码

Dim objExcel, objWorkbook 
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\...\Finances.xlsm")
objExcel.Visible = True
objExcel.Run "Refresh"
objExcel.Quit

Set objWorkbook = Nothing
Set objExcel = Nothing

WScript.Quit

VBScript代码打开Excel文件并触发内部的宏

刷新

。宏刷新数据，然后保存并关闭文件

尽管代码看起来运行正常，但我还是遇到了以下错误

---

如果您不想在打开工作簿时自动运行任何内容，请在

objExcel.EnableEvents = False

---

在打开工作簿之前。如果需要，您可以稍后将其设置回

True

。您应该仍然能够运行

刷新

。我不知道这是否会修复您的未知错误。

您在未关闭

objWorkbook

打开的工作簿的情况下退出对象。无论是否保存，这将导致打开的工作簿崩溃。

Excel宏“刷新”是否有一行代码关闭Excel工作簿？如果是这样，则VBS会收到运行时错误，因为它正在等待

objExcel.Run“Refresh”

完成，这将关闭Excel工作簿，您需要显示宏代码。