Vbscript 运行excel查询的VB脚本

下面的

vb脚本

由批处理文件调用，并在

\Path

中打开

xlsx

，允许执行查询，等待20秒保存并退出。脚本确实会执行，但我正在尝试允许查询执行到完成。。。目前，它等待20秒，目前还可以，但不会随着查询变大而改变。另外，现在它查找所有的

xlsx

，我想使用一个确切的名称。谢谢：）

VB

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

For Each f In fso.GetFolder("\Path").Files
 If LCase(fso.GetExtensionName(f.Name)) = "xlsx" Then
 Set wb = xl.Workbooks.Open(f.Path)
 wb.RefreshAll
 wscript.sleep(20000)
 wb.Save
 wb.Close
End If
Next

xl.Quit

---

我删除了文章的第二部分，以使其更加集中。谢谢。