VBA代码无法识别Excel工作表名称 运行报下标越界错误如何解决？

我方收到供应商发送的Excel文件，需将其导入Access数据库。流程第一步为用户选择目标文件，代码自动读取该工作簿内所有工作表名称，生成表单下拉选项供用户选择要上传的工作表。

执行到Set wsobj = xlobj.worksheets(Me.Param_SheetName)行时报“下标越界”错误，存在两个参考正常场景：

• 从表单复制工作表名称，手动加引号硬编码到代码中运行一切正常
• 使用相同来源的表单变量Me.Param_FileName作为参数的GetObject代码段可正常运行
  已尝试给变量加字符串引号、调整字符编码等方案，均未解决问题。

Private Sub Command_Test_Click()

Dim xlobj
Dim wsobj
Dim rngobj

Set xlobj = GetObject(Me.Param_FileName)
Set wsobj = xlobj.worksheets(Me. Param_SheetName)
Set rngobj = wsobj.usedrange
MsgBox rngobj.Address

Set xlobj = Nothing

End Sub

按照以下顺序排查修复即可：

1. 先修正语法笔误：代码中Me. Param_SheetName中间存在多余空格，会导致VBA变量识别异常，直接删掉空格即可
2. 排除参数带不可见字符的问题：下拉选项生成时可能意外带入了空格、换行符等不可见字符，取值时先做Trim处理，修改对应行代码为：

Set wsobj = xlobj.Worksheets(Trim(Me.Param_SheetName))

3. 兼容特殊类型工作表：如果工作簿中存在图表表、宏表等特殊表，不属于Worksheets集合范畴，会触发下标越界，需要兼容的话可以将Worksheets替换为覆盖所有表类型的Sheets集合：

Set wsobj = xlobj.Sheets(Trim(Me.Param_SheetName))

4. 定位匹配差异：如果以上操作仍未解决，可以在报错行前加入调试代码，确认工作簿实际可识别的表名和选中值的差异：

Dim s As Object, debugStr As String
For Each s In xlobj.Sheets
    debugStr = debugStr & "|" & s.Name & "|" & vbCrLf
Next
MsgBox "当前工作簿所有表名：" & vbCrLf & debugStr
MsgBox "当前选中的表名：|" & Me.Param_SheetName & "|"

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