使用 vbs 脚本从批处理文件中获取数据到 Excel

Question

我有一个批处理文件，它运行一组 SQL 查询并将数据加载到表中。

我已经编写了用于在 excel 中单击按钮以从上表中检索数据的 VBA 脚本。

但是现在我的要求已更改为无需单击按钮即可将数据填充到 excel 中。我也不希望我的代码出现在工作簿打开事件中。

我必须将我的 vba 代码更改为 .vbs 脚本，以便我可以从批处理文件中调用它。 请帮我。如果我的方法有误，请纠正我。

Answer 1

编写一个 VBscript：

执行蝙蝠

shell.Run """C:\...\my.bat"""

然后执行宏（下例）

    RunMacro
     Sub RunMacro()
     Dim xl
     Dim xlBook      
     Dim sCurPath
     path = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
     Set xl = CreateObject("Excel.application")
     Set xlBook = xl.Workbooks.Open(path & "\Workbook.xlsm", 0, True)      
     xl.Application.Visible = False
     xl.DisplayAlerts = False    
     xl.Application.run "Workbook.xlsm!Module.RunMacro"
     xl.ActiveWindow.close
     xl.Quit

     Set xlBook = Nothing
     Set xl = Nothing
 End Sub