Excel VBA，使用FileDialog打开多个工作簿并引用它们

Sub OpenMultipleWorkbooks()
    Dim FileDialog As FileDialog
    Dim SelectedFiles As Variant
    Dim Workbook As Workbook
    
    ' 创建一个文件对话框对象
    Set FileDialog = Application.FileDialog(msoFileDialogOpen)
    
    ' 设置文件对话框的属性
    FileDialog.AllowMultiSelect = True
    FileDialog.Title = "选择要打开的工作簿"
    
    ' 显示文件对话框并获取用户选择的文件
    If FileDialog.Show = -1 Then
        SelectedFiles = FileDialog.SelectedItems
        
        ' 循环遍历选择的文件
        For Each File In SelectedFiles
            ' 打开工作簿并引用它
            Set Workbook = Workbooks.Open(File)
            
            ' 在这里可以进行对工作簿的操作，例如读取或修改数据
            
            ' 关闭工作簿
            Workbook.Close SaveChanges:=False
        Next File
    End If
    
    ' 释放对象
    Set FileDialog = Nothing
    Set Workbook = Nothing
End Sub