如何使用VBScript有效刷新多個Excel電子表格的外部數據？

Question

我有一個宏在一個XLSM工作簿的模塊中刷新所有外部數據，然後保存並關閉該工作簿。

ActiveWorkbook.RefreshAll 
ActiveWorkbook.Save 
ActiveWorkbook.Close 
Application.Quit 

我用VBScript文件來運行宏作爲計劃任務的一部分

objExcel.Workbooks.Open(fname) 
objExcel.Visible = True 
On error resume next 
objExcel.Run "RefreshAllData" 

問：我怎樣才能重新使用現有的工作簿中的現有宏刷新多個其他的所有數據工作簿？ （即，我正在尋找對VBScript文件的必要修改，我想最大限度地減少對宏本身的更改。文件名將包含在VBScript文件中）TIA。

Answer 1

我建議不要重新使用這樣一個微不足道的宏。而是將刷新功能併入VBScript中：

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

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

xl.Quit 

Answer 2

如果你根本不改變宏，你將不得不重新加載excel，然後打開宏工作簿，然後打開目標工作簿，然後運行宏。如果你能刪除：

Application.quit 

，那麼你至少可以保持Excel中打開並只保留每次運行宏之前打開的工作簿的目標。對我來說，將宏代碼放入vbs文件會更簡單，儘管

Answer 3

我想你可以做這樣的事情。

1. 查找所有的Excel文件中的指定文件夾
2. 選擇每個Excel文件並激活
3. 通話refreshdata功能

代碼片段支持這

Sub RefreshAllExcelInFolder() 
    Dim fso 
    Dim ObjFolder 
    Dim ObjFiles 
    Dim ObjFile 
    Dim objExcel 

    'Creating File System Object 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    'Getting the Folder Object 
    Set ObjFolder = fso.GetFolder("<<C:folder path>>") 

    'Getting the list of Files 
    Set ObjFiles = ObjFolder.Files 
     'On Error Resume Next 
     For Each ObjFile In ObjFiles 
      If LCase(Right(ObjFile.Name, 5)) = ".xlsx" Or LCase(Right(ObjFile.Name, 4)) = ".xls" Then 
       Workbooks.Open(ObjFile).Activate 
       RefreshAllData 
      End If 
     Next 
End Sub 

Sub RefreshAllData() 
    ActiveWorkbook.RefreshAll 
    ActiveWorkbook.Save 
    ActiveWorkbook.Close 
    MsgBox ("Going back In") 
End Sub 

希望這將幫助