VBScript刷新特定文件夹中的所有Excel文件

Question

我有一些应该放在特定文件夹中的VBscript，打开该文件夹中的所有.xlsm文件，刷新所有文件，保存并关闭文件。 Windows任务计划程序每天早上4点开始启动该脚本。

当前，此脚本打开列出的第一个.xlsm文件，刷新但不保存，然后关闭。文件夹中没有其他文件被打开。

这是我当前拥有的代码：

Set fso = CreateObject("Scripting.FileSystemObject")
Set xl  = CreateObject("Excel.Application")
xl.Visible = True

For Each f In fso.GetFolder("[file path to folder i want files updated]").Files
  If LCase(fso.GetExtensionName(f.Name)) = "xlsm" Then
    Set wb = xl.Workbooks.Open(f.Path)
    wb.RefreshAll
    WScript.Sleep 5*60*1000
    wb.Save
    wb.Close
  End If
Next

xl.Quit

谢谢您的任何建议。

Answer 1

只需更改Excel的设置即可在刷新时不在背景中运行。这样可以解决您的问题。