调整Excel拆分文件宏：让新工作簿以被拆分文件工作表命名

先给你修复并优化后的宏代码，它会自动用被拆分文件的活动工作表名称来命名拆分后的文件，同时解决了原代码里的几个潜在问题：

Sub Split_File()
    Dim iCalc As Long, i As Long
    Dim my_FileName As Variant
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim sheetName As String
    
    ' 保存当前Excel设置，避免运行宏时卡顿或触发不必要的事件
    iCalc = Application.Calculation
    With Application
        .Calculation = xlManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    ' 弹出文件选择对话框，限定只选Excel文件
    my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx;*.xls), *.xlsx;*.xls", Title:="选择要拆分的文件")
    If my_FileName = False Then GoTo Cleanup ' 用户取消选择时直接退出
    
    ' 打开选中的文件，并获取目标工作表信息
    Set wbSource = Workbooks.Open(Filename:=my_FileName, ReadOnly:=False)
    Set wsSource = wbSource.ActiveSheet
    sheetName = wsSource.Name ' 这里获取的是被拆分文件的活动工作表名称
    
    With wsSource
        ' 从第2行开始，每15000行拆分一次
        For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row Step 15000
            ' 复制表头 + 当前批次的15000行数据
            .Range("A1:BP1," & .Cells(i, "A").Resize(15000, 68).Address).Copy
            ' 创建新工作簿并粘贴值（避免带格式或公式的冗余）
            With Workbooks.Add
                .Worksheets(1).Range("A1").PasteSpecial xlPasteValues
                ' 用被拆分工作表的名称命名新文件，注意路径分隔符要正确
                .SaveAs Filename:="itsownfolder\" & sheetName & "Rows" & i & ".xlsx"
                .Close SaveChanges:=False
            End With
        Next i
    End With
    
Cleanup:
    ' 恢复Excel的默认设置
    With Application
        .Calculation = iCalc
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    ' 关闭被拆分的源文件（如果已打开）
    If Not wbSource Is Nothing Then
        wbSource.Close SaveChanges:=False
    End If
End Sub

关键修改点说明 #

• 修复了致命的未初始化对象错误：原代码在打开目标文件前就尝试引用wb.ActiveSheet，这会直接触发运行时错误。现在我们先打开文件，再获取它的活动工作表名称。
• 替换为被拆分文件的工作表名：新增sheetName = wsSource.Name变量，专门存储目标文件的工作表名称，彻底解决命名错误的问题。
• 优化了范围引用逻辑：把原代码中冗余的范围拼接改成.Cells(i, "A").Resize(15000, 68)，其中68是BP列对应的列号，代码更简洁易读。
• 增加了用户取消选择的处理：如果用户在文件选择对话框点击取消，宏会优雅退出，不会报错。
• 修正了路径格式：把原代码里的"itsownfolder"改成"itsownfolder\"，确保路径分隔符正确，避免文件名变成itsownfolderSheetNameRows...这种错误格式。
• 添加了源文件自动关闭：拆分完成后自动关闭被拆分的文件，避免留下多余的Excel窗口。

你直接替换原宏代码即可，运行时选择要拆分的文件，拆分后的新文件会自动用被拆分文件的工作表名称命名，完全不用手动输入。

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