使用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