在VBA中使用表格变量切换工作簿窗口的报错问题

你的代码触发错误的核心原因是：单元格U3-U11里的内容是文本形式的变量名（比如"D_1"），但Windows(Cur_Window).Activate会把这个文本直接当作工作簿名称去查找，而不是引用变量D_1对应的字符串"Week 1.CSV"。系统找不到名为"D_1"的工作簿，自然抛出运行时错误。

另外代码还有两个不规范的地方：

• 变量Cur_Window的声明放在For循环内部，VBA允许但不符合编程规范，容易引发问题。
• Range("u" & i)没有指定所属工作表，若当前激活的不是主文档工作表，会读取错误单元格的数据。

方法一：用字典映射标识与工作簿名称（推荐） #

这种方式清晰安全，便于后续扩展更多标识与工作簿的对应关系：

Sub Window_Display_Test()
    ' 定义标识与工作簿名称的映射
    Dim wbMap As Object
    Set wbMap = CreateObject("Scripting.Dictionary")
    
    wbMap("D_1") = "Week 1.CSV"
    wbMap("D_2") = "Week 2.CSV"
    ' 可以继续添加更多映射...
    
    Dim i As Integer
    Dim Cur_Window As Range
    ' 指定主文档工作表，替换成你的主文档工作表名称，比如Sheet1
    Dim mainSheet As Worksheet
    Set mainSheet = ThisWorkbook.Worksheets("Sheet1")
    
    For i = 3 To 11
        Set Cur_Window = mainSheet.Range("U" & i)
        ' 检查当前单元格内容是否在映射表中
        If wbMap.Exists(Cur_Window.Value) Then
            ' 用映射后的工作簿名称激活窗口
            Windows(wbMap(Cur_Window.Value)).Activate
            ' 可选：添加延迟，方便看到切换效果
            Application.Wait Now + TimeValue("00:00:01")
        Else
            MsgBox "未找到对应工作簿：" & Cur_Window.Value
        End If
    Next i
End Sub

方法二：使用Eval函数（慎用，仅在可控场景下使用） #

如果你的变量名和单元格文本严格对应，可以用Eval函数将文本转换为变量值，但Eval会执行字符串代码，若单元格内容被篡改可能有风险：

Sub Window_Display_Test()
    Dim D_1 As String: D_1 = "Week 1.CSV"
    Dim D_2 As String: D_2 = "Week 2.CSV"
    ' 定义更多变量...
    
    Dim i As Integer
    Dim Cur_Window As Range
    Dim wbName As String
    Set mainSheet = ThisWorkbook.Worksheets("Sheet1") ' 指定主文档工作表
    
    For i = 3 To 11
        Set Cur_Window = mainSheet.Range("U" & i)
        ' 将单元格文本转换为变量值
        wbName = Eval(Cur_Window.Value)
        ' 检查工作簿是否打开
        If IsWorkbookOpen(wbName) Then
            Windows(wbName).Activate
            Application.Wait Now + TimeValue("00:00:01")
        Else
            MsgBox "工作簿未打开：" & wbName
        End If
    Next i
End Sub

' 辅助函数：检查工作簿是否已打开
Function IsWorkbookOpen(wbName As String) As Boolean
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Workbooks(wbName)
    On Error GoTo 0
    IsWorkbookOpen = Not wb Is Nothing
End Function

额外提示 #

• 确保所有要切换的工作簿已经在Excel中打开，否则Windows().Activate会报错。
• 工作簿名称要完全匹配，包括后缀（比如".CSV"和".csv"是不同的，注意大小写）。

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