У меня есть некоторый 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
Спасибо за любые предложения.