动态添加工作表至工作簿时出现1004运行时错误求助

错误原因分析 #

触发1004错误的常见原因有三个：

• 重复的工作表名称：如果员工姓名重复，或者工作簿中已存在同名工作表，Excel不允许创建同名表，改名操作直接失败。
• 姓名包含非法字符：Excel工作表名称禁止使用/:*?"<>|这些字符，姓名里有这些符号就会触发错误。
• 单元格内容为空：如果A列对应行是空值，试图给工作表命名为空字符串也会报错。

修复后的代码 #

Option Explicit

Sub read_WFH_dockets()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    Dim WB As Workbook
    Dim ws As Worksheet
    Dim Employee_name As String
    Set WB = ActiveWorkbook
    
    Dim Rng_Employees As Range
    Dim EmployeeFAB As Range
    Dim numrows As Long
    Dim Fab As String
    Dim illegalChars As Variant
    Dim char As Variant
    
    ' 定义Excel不允许的工作表名非法字符
    illegalChars = Array("/", "\", ":", "*", "?", """", "<", ">", "|")
    
    ' 确定数据行数（用Rows.Count替代硬编码的100000，更可靠）
    numrows = WB.ActiveSheet.Range("A" & WB.ActiveSheet.Rows.Count).End(xlUp).Row
    Set Rng_Employees = WB.ActiveSheet.Range("B1:B" & numrows)
    
    For Each EmployeeFAB In Rng_Employees.Cells
        ' 获取员工姓名并去除首尾空格
        Employee_name = Trim(WB.ActiveSheet.Range("A" & EmployeeFAB.Row).Value)
        Fab = EmployeeFAB.Value
        
        ' 跳过空姓名的情况
        If Employee_name <> "" Then
            ' 把非法字符替换成下划线
            For Each char In illegalChars
                Employee_name = Replace(Employee_name, char, "_")
            Next char
            
            ' 检查是否已存在同名工作表
            On Error Resume Next
            Set ws = WB.Sheets(Employee_name)
            On Error GoTo 0
            
            ' 不存在则新建并重命名
            If ws Is Nothing Then
                Set ws = WB.Sheets.Add
                ws.Name = Employee_name
            Else
                ' 可选：打印日志提示已存在，也可以改成弹窗提示
                Debug.Print "工作表 '" & Employee_name & "' 已存在，跳过创建"
            End If
        Else
            Debug.Print "第 " & EmployeeFAB.Row & " 行员工姓名为空，跳过创建"
        End If
        
        Set ws = Nothing
        Employee_name = ""
        Fab = ""
    Next
    
    ' 恢复Excel默认设置
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

1. 明确工作表引用：原代码里的Range没有指定所属工作表，容易引发引用错误，现在改成WB.ActiveSheet.Range确保操作的是目标工作表。
2. 非法字符处理：把姓名里的禁用字符统一替换成下划线，避免命名规则冲突。
3. 重复表检查：先尝试获取同名工作表，只有不存在的时候才新建，彻底避免重复命名的错误。
4. 空值过滤：遇到空姓名直接跳过，不会触发空名错误。
5. 恢复Excel设置：原代码最后没恢复DisplayAlerts和ScreenUpdating，可能导致后续操作的提示被屏蔽，现在添加了恢复语句。

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