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