如何在VBA中通过文件名引用具有相同前缀的其他工作簿

Dim file As String
file = Dir("C:\路径\文件夹\前缀*.xlsx")

Dim wb As Workbook
Set wb = Workbooks.Open("C:\路径\文件夹\" & file)

wb.Worksheets("Sheet1").Range("A1").Value = "Hello"

file = Dir

Sub ReferenceWorkbooksWithSamePrefix()
    Dim file As String
    Dim wb As Workbook
    
    ' 获取指定文件夹中的所有文件名
    file = Dir("C:\路径\文件夹\前缀*.xlsx")
    
    ' 循环处理所有符合条件的文件
    Do While file <> ""
        ' 打开文件
        Set wb = Workbooks.Open("C:\路径\文件夹\" & file)
        
        ' 引用文件中的数据
        wb.Worksheets("Sheet1").Range("A1").Value = "Hello"
        
        ' 关闭文件
        wb.Close SaveChanges:=True
        
        ' 获取下一个符合条件的文件名
        file = Dir
    Loop
End Sub