多工作簿使用Text to Columns函数触发下标越界错误求助

首先咱们直接定位问题：你代码第38行的With Workbooks("Book1.xlsx").Worksheets("Production")触发了下标越界，核心原因是工作簿名称的引用不一致——你前面的代码里都是用Workbooks("Book1")来引用目标工作簿，突然在这行加了.xlsx后缀，而如果Book1还没保存过，Excel里它的名称就是Book1（不带后缀），这就导致代码找不到对应的工作簿了。

第一步：修复核心引用错误 #

把第38行的Workbooks("Book1.xlsx")改成和前面一致的Workbooks("Book1")，修改后代码片段如下：

Dim objRange2 As Range
With Workbooks("Book1").Worksheets("Production")
Set objRange2 = .Range("C2:C300")
objRange2.TextToColumns _
Destination:=.Range("C2"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:":"
End With

第二步：额外防错优化（避免再次踩坑） #

为了减少这类硬编码名称导致的问题，建议用变量存储工作簿和工作表对象，可读性更高也更稳妥。比如在代码开头添加变量定义和检查逻辑：

' 先定义变量存储工作簿/工作表
Dim wbOrders As Workbook
Dim wbBook1 As Workbook
Dim wsProduction As Worksheet

' 检查目标工作簿是否打开
On Error Resume Next
Set wbOrders = Workbooks("orders (3).xlsx")
Set wbBook1 = Workbooks("Book1")
On Error GoTo 0

' 若工作簿未打开，弹窗提示并退出
If wbOrders Is Nothing Then
    MsgBox "请先打开 orders (3).xlsx 工作簿！"
    Exit Sub
End If
If wbBook1 Is Nothing Then
    MsgBox "请先打开 Book1 工作簿！"
    Exit Sub
End If

' 绑定Production工作表
Set wsProduction = wbBook1.Worksheets("Production")

' 后续调用TextToColumns就可以直接用变量
Dim objRange2 As Range
Set objRange2 = wsProduction.Range("C2:C300")
objRange2.TextToColumns _
    Destination:=wsProduction.Range("C2"), _
    DataType:=xlDelimited, _
    Tab:=False, _
    Semicolon:=False, _
    Comma:=False, _
    Space:=False, _
    Other:=True, _
    OtherChar:":"

其他注意事项 #

• 确保Book1工作簿确实在当前Excel实例中打开，且没有被重命名。
• 如果Book1是代码新建的工作簿，建议用Set wbBook1 = Workbooks.Add()来直接获取引用，而非硬编码名称。

内容的提问来源于stack exchange，提问作者matt.auerbach