循环浏览文件夹中以"vip“开头的所有Excel文件，然后运行另一个宏

Sub LoopThroughVIPFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim fileExtension As String
    
    ' 设置文件夹路径
    folderPath = "C:\path\to\your\folder\" ' 替换为你的文件夹路径
    
    ' 设置文件扩展名
    fileExtension = "*.xlsx"
    
    ' 获取文件夹中的所有文件
    fileName = Dir(folderPath & fileExtension)
    
    ' 循环遍历文件
    Do While fileName <> ""
        ' 检查文件名是否以"vip"开头
        If Left(fileName, 3) = "vip" Then
            ' 打开Excel文件
            Set wb = Workbooks.Open(folderPath & fileName)
            
            ' 运行宏
            Application.Run "' & wb.Name & "'!RunMyMacro"
            
            ' 关闭工作簿，不保存更改
            wb.Close SaveChanges:=False
        End If
        
        ' 获取下一个文件
        fileName = Dir
    Loop
End Sub