Question

我有一个excel VBA脚本，我希望在许多Excel工作簿中运行。它们都存储在一个文件夹中。我认为下面的代码可行，但没有任何反应。我甚至没有任何错误。（PSAT是我想在所有工作簿上运行的VBA脚本的名称）。

Sub Batch()    
MyPath = "T:\Program Evaluation\Sam\AP Potential\School Reports\Reports"    
MyTemplate = "*.xls*"    
MyName = Dir(MyPath & MyTemplate)   
Do While MyName <> ""    
    Workbooks.Open MyPath & MyName    
    PSAT    
    Workbooks(MyName).Close (True)    
    MyName = Dir   
Loop    
End Sub

Answer 1

您错过了文件夹路径上的结尾反斜杠。

Sub Batch()    
Dim wb as Workbook, MyPath, MyTemplate, MyName

MyPath = "T:\Program Evaluation\Sam\AP Potential\School Reports\Reports\"   
MyTemplate = "*.xls*"    
MyName = Dir(MyPath & MyTemplate)   
Do While MyName <> ""    
    Set wb = Workbooks.Open(MyPath & MyName)    
    PSAT    
    wb.Close True    
    MyName = Dir()   
Loop    
End Sub

在多个工作簿上运行Excel VBA脚本 - 当前代码没有发生任何事情

1 个答案: