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

Question

我有一些 VBscript 应该转到特定文件夹，打开该文件夹中的所有 .xlsm 文件，刷新所有文件，保存并关闭文件。这个脚本每天早上 4 点由 Windows 任务调度程序启动。

当前，此脚本打开列出的第一个 .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的设置更改为刷新时不要在后台运行。这将解决您的问题。