VBA基于现有工作簿单元格范围新建并重命名工作表时触发‘Run time error 9 - Subscript out of range’错误求助

这个报错大概率是因为你的代码找不到目标工作簿，咱们来拆解问题并解决：

核心原因分析 #

你用Application.Workbooks("S11_Arrays")引用工作簿，但这个写法只对已经在当前Excel实例中打开的文件有效。如果你的"S11_Arrays"文件没打开，哪怕路径正确，代码也会找不到它，直接触发下标越界错误。另外还有两个容易踩的坑：

• 工作簿名称没带扩展名：如果文件是.xlsm或.xlsx，Workbooks集合里的名称是包含扩展名的，比如应该写"S11_Arrays.xlsx"而不是"S11_Arrays"
• 源工作表不存在：如果Sheet6在目标工作簿里不存在，后续也会报错，但当前的错误是先找不到工作簿

修正后的代码示例 #

我给你调整了代码，加入了工作簿检查/打开的逻辑，还优化了新建工作表的流程：

Sub RenameNewSheets()
    Dim r As Byte
    Dim NewBook As Workbook
    Dim SourceWB As Workbook
    Dim ShNew As Worksheet
    
    ' 先检查源工作簿是否已打开，没打开就自动打开
    On Error Resume Next
    Set SourceWB = Workbooks("S11_Arrays.xlsx") ' 这里要写完整的文件名（带扩展名）
    On Error GoTo 0
    
    If SourceWB Is Nothing Then
        ' 替换成你的文件实际路径，比如"C:\Users\YourName\Documents\S11_Arrays.xlsx"
        Set SourceWB = Workbooks.Open("你的文件完整路径\S11_Arrays.xlsx")
    End If
    
    ' 新建工作簿
    Set NewBook = Workbooks.Add
    
    ' 可选：删除默认的3个工作表（如果不需要保留的话）
    Application.DisplayAlerts = False
    Do While NewBook.Worksheets.Count > 0
        NewBook.Worksheets(1).Delete
    Loop
    Application.DisplayAlerts = True
    
    ' 循环新建并命名工作表
    For r = 1 To 8
        Set ShNew = NewBook.Worksheets.Add
        ' 从源工作簿的Sheet6取A7到A14的值
        ShNew.Name = SourceWB.Worksheets("Sheet6").Range("A" & r + 6).Value
    Next r
End Sub

额外注意事项 #

• 确保Sheet6确实存在于源工作簿中，不然会触发另一个下标越界错误
• A7:A14里的单元格值不能包含工作表名称禁止的字符：/ : * ? " < > |，否则重命名会失败
• 如果你的源工作簿已经打开，代码会直接使用已打开的实例，避免重复打开

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