VBA多工作簿变量设置问询：批量命名工作簿变量实现方法

嘿，我完全懂你的需求——批量打开2到50个独立工作簿，还想按选择顺序用1Book、2Book这种好记的名字来引用它们对吧？在VBA里直接动态生成1Book、2Book这类命名变量其实不太高效，但我们有更灵活的替代方案，既满足你的引用需求，又能轻松处理任意数量的文件：

方法一：使用工作簿数组（最推荐） #

数组的索引可以直接对应你想要的“1Book”“2Book”逻辑，books(1)就代表第一个选中的工作簿，books(2)代表第二个，以此类推，处理50个文件毫无压力。

完整代码示例 #

Sub OpenAndNameWorkbooks()
    Dim books() As Workbook
    Dim filePaths As Variant
    Dim i As Integer
    
    ' 让用户选择多个Excel文件（支持多选）
    filePaths = Application.GetOpenFilename( _
        FileFilter:="Excel Files (*.xlsx;*.xlsm), *.xlsx;*.xlsm", _
        Title:="请选择要打开的工作簿", _
        MultiSelect:=True)
    
    ' 检查用户是否取消了选择
    If IsArray(filePaths) Then
        ' 根据选中的文件数量重新定义数组大小
        ReDim books(1 To UBound(filePaths))
        
        ' 循环打开每个文件并赋值到数组对应位置
        For i = 1 To UBound(filePaths)
            Set books(i) = Workbooks.Open(filePaths(i))
            ' 这里可以添加你需要的初始化操作，比如激活工作表等
        Next i
        
        ' 示例：引用第一个和第二个工作簿
        MsgBox "第一个工作簿名称：" & books(1).Name
        MsgBox "第二个工作簿名称：" & books(2).Name
        
        ' 后续代码里直接用books(1)、books(2)...即可引用对应工作簿
    End If
End Sub

方法二：使用集合（支持自定义键名） #

如果你特别想用1Book、2Book作为引用标识，可以用集合，把每个工作簿以"1Book"、"2Book"作为键存入集合，之后通过键名引用：

代码示例 #

Sub OpenWithCollection()
    Dim bookCollection As New Collection
    Dim filePaths As Variant
    Dim i As Integer
    
    filePaths = Application.GetOpenFilename( _
        FileFilter:="Excel Files (*.xlsx;*.xlsm), *.xlsx;*.xlsm", _
        Title:="请选择要打开的工作簿", _
        MultiSelect:=True)
    
    If IsArray(filePaths) Then
        For i = 1 To UBound(filePaths)
            ' 以"1Book"、"2Book"作为键存入集合
            bookCollection.Add Workbooks.Open(filePaths(i)), Key:=CStr(i) & "Book"
        Next i
        
        ' 示例：通过键名引用工作簿
        Debug.Print "第一个工作簿：" & bookCollection("1Book").Name
        Debug.Print "第二个工作簿：" & bookCollection("2Book").Name
    End If
End Sub

不推荐的方式：硬编码命名变量 #

如果你一定要生成Book1、Book2这类独立变量，只能提前声明所有可能用到的变量（最多到Book50），然后通过Select Case赋值，但这种方式非常繁琐，且无法灵活适配文件数量变化：

' 模块顶部提前声明所有可能用到的变量
Dim Book1 As Workbook, Book2 As Workbook, Book3 As Workbook
' ... 一直声明到Book50（要写50行，非常麻烦）

Sub OpenWithHardcodedVars()
    Dim filePaths As Variant
    Dim i As Integer
    
    filePaths = Application.GetOpenFilename( _
        FileFilter:="Excel Files (*.xlsx;*.xlsm), *.xlsx;*.xlsm", _
        Title:="请选择要打开的工作簿", _
        MultiSelect:=True)
    
    If IsArray(filePaths) Then
        For i = 1 To UBound(filePaths)
            Select Case i
                Case 1: Set Book1 = Workbooks.Open(filePaths(i))
                Case 2: Set Book2 = Workbooks.Open(filePaths(i))
                Case 3: Set Book3 = Workbooks.Open(filePaths(i))
                ' ... 一直写Case到50
            End Select
        Next i
    End If
End Sub

总结 #

优先选择数组方案，它最简洁高效，索引和选择顺序完全对应；集合方案适合需要自定义键名的场景；硬编码变量只适合文件数量固定且很少的情况，不推荐用于2-50个文件的场景。

内容的提问来源于stack exchange，提问作者CptGoodar