如何通过变量引用Excel工作表？VB代码索引匹配工作表遇阻

你当前代码的核心问题是把LOOKUP公式的文本字符串直接当成了工作表名称，而没有实际执行这个公式得到对应的月份缩写结果。MonthIndexResult变量里存的只是一段公式文本，不是计算后的月份缩写，所以Sheets(" & MonthIndexResult & ")这行根本无法定位到正确的工作表。

下面提供几种可行的解决方案：

方案1：用WorksheetFunction.LOOKUP计算实际月份缩写 #

直接调用Excel的LOOKUP函数计算出对应月份缩写，再用这个结果定位工作表：

Dim DestWS1 As Worksheet
Dim InputValue As Integer
Dim MonthIndexResult As String

InputValue = InputBox("Please enter your month index number", "Selecting month index to generate your report")

' 验证输入是否在1-12范围内，避免无效值
If InputValue < 1 Or InputValue > 12 Then
    MsgBox "请输入1-12之间的月份索引！"
    Exit Sub
End If

' 实际计算LOOKUP结果，而非存储公式文本
On Error Resume Next ' 处理LOOKUP找不到值的情况
MonthIndexResult = WorksheetFunction.Lookup(InputValue, _
    ThisWorkbook.Sheets("InputData").Range("Q3:Q14"), _
    ThisWorkbook.Sheets("InputData").Range("P3:P14"))
On Error GoTo 0

If MonthIndexResult = "" Then
    MsgBox "未找到对应月份的工作表名称！"
    Exit Sub
End If

' 检查目标工作表是否存在
On Error Resume Next
Set DestWS1 = ThisWorkbook.Sheets(MonthIndexResult)
On Error GoTo 0

If DestWS1 Is Nothing Then
    MsgBox "工作表 " & MonthIndexResult & " 不存在！"
    Exit Sub
End If

DestWS1.Select

方案2：用数组直接映射月份索引到缩写（更高效） #

如果月份缩写是固定的（比如Jan、Feb...Dec），可以直接用数组映射，无需依赖工作表数据：

Dim DestWS1 As Worksheet
Dim InputValue As Integer
Dim MonthAbbrs As Variant
Dim TargetSheetName As String

' 定义月份缩写数组，索引1对应Jan，索引12对应Dec
MonthAbbrs = Array("", "Jan", "Feb", "Mar", "Apr", "May", "Jun", _
    "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

InputValue = InputBox("Please enter your month index number", "Selecting month index to generate your report")

If InputValue < 1 Or InputValue > 12 Then
    MsgBox "请输入1-12之间的月份索引！"
    Exit Sub
End If

TargetSheetName = MonthAbbrs(InputValue)

' 检查目标工作表是否存在
On Error Resume Next
Set DestWS1 = ThisWorkbook.Sheets(TargetSheetName)
On Error GoTo 0

If DestWS1 Is Nothing Then
    MsgBox "工作表 " & TargetSheetName & " 不存在！"
    Exit Sub
End If

DestWS1.Select

方案3：直接从工作表单元格读取对应值 #

你的索引1-12对应InputData表的Q3:Q14（第3到14行Q列），对应的月份缩写在P3:P14，可直接通过行号定位取值：

Dim DestWS1 As Worksheet
Dim InputValue As Integer
Dim TargetSheetName As String
Dim InputDataWS As Worksheet

Set InputDataWS = ThisWorkbook.Sheets("InputData")
InputValue = InputBox("Please enter your month index number", "Selecting month index to generate your report")

If InputValue < 1 Or InputValue > 12 Then
    MsgBox "请输入1-12之间的月份索引！"
    Exit Sub
End If

' 索引1对应第3行，行号=InputValue + 2
TargetSheetName = InputDataWS.Range("P" & (InputValue + 2)).Value

If TargetSheetName = "" Then
    MsgBox "未找到对应月份的工作表名称！"
    Exit Sub
End If

' 检查目标工作表是否存在
On Error Resume Next
Set DestWS1 = ThisWorkbook.Sheets(TargetSheetName)
On Error GoTo 0

If DestWS1 Is Nothing Then
    MsgBox "工作表 " & TargetSheetName & " 不存在！"
    Exit Sub
End If

DestWS1.Select

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