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

Question

我需要一种计划自动打开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文件并触发其中的宏Refresh 。 宏刷新数据，然后保存并关闭文件。

但是，尽管代码似乎运行正常，但出现以下错误。

Answer 1

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

objExcel.EnableEvents = False

在打开工作簿之前。 如果需要，可以稍后将其设置为True 。 您仍然应该能够运行Refresh 。 我不知道这是否可以解决您的未知错误。

Answer 2

您退出excel.application不关闭对象objWorkbook打开的工作簿。 不论是否保存，这都会在打开的工作簿之外产生错误。