拆分工作簿为独立TXT文件时触发运行时错误'1004'：无法访问sheet

我之前也碰到过一模一样的问题，这种1004错误大多和Sheet的访问权限、引用方式或者文件状态有关，咱们一步步来排查解决：

• 先确认Sheet本身的状态是否正常
  有时候问题出在Sheet本身，不是代码：

  1. 检查Sheet名称：代码里引用的Sheet名要和实际工作簿里的完全匹配，包括空格、特殊字符（比如销售数据2024不能写成销售数据），虽然Excel不区分大小写，但VBA偶尔会对大小写敏感
  2. 看看Sheet是不是被隐藏了：右键底部的Sheet标签，要是能看到「取消隐藏」选项，说明目标Sheet被隐藏了，先取消隐藏再运行代码
  3. 检查Sheet保护：如果Sheet设置了保护密码，VBA会无法访问单元格内容，先取消保护再操作

• 改用明确的工作簿+Sheet引用方式
  很多新手习惯直接写Sheets("Sheet1")，但如果同时打开了多个工作簿，或者当前激活的不是目标工作簿，就会报错。推荐用更严谨的引用：

  Dim targetWB As Workbook
  Dim targetWS As Worksheet
  ' 绑定当前运行代码的工作簿，避免其他工作簿干扰
  Set targetWB = ThisWorkbook
  ' 替换成你要拆分的Sheet名称
  Set targetWS = targetWB.Sheets("需要拆分的Sheet名")
  

• 排查文件是否被锁定或只读
  如果工作簿是只读模式打开，或者被其他程序（比如另一个Excel进程、杀毒软件）锁定，VBA也会无法访问Sheet：

  1. 关闭工作簿，右键文件→属性，取消「只读」勾选
  2. 打开任务管理器，找到所有Excel进程，结束掉多余的进程后重新打开文件

• 试试用索引引用Sheet
  要是名称引用一直报错，可以试试用Sheet的索引位置（比如第一个Sheet是1）来引用，验证是不是名称的问题：

  Set targetWS = targetWB.Sheets(1)
  

给你贴个经过验证的拆分Sheet为TXT的示例代码，你可以替换成自己的Sheet名直接用：

Sub SplitSheetToTxt()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim saveFolder As String
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim txtContent As String
    
    Set wb = ThisWorkbook
    ' 替换成你的目标Sheet名称
    Set ws = wb.Sheets("数据源")
    ' 保存到工作簿所在文件夹
    saveFolder = wb.Path & "\"
    
    ' 获取数据的最后一行和最后一列
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 逐行逐列拼接内容（用制表符分隔，可换成逗号/空格）
    For i = 1 To lastRow
        For j = 1 To lastCol
            txtContent = txtContent & ws.Cells(i, j).Value & vbTab
        Next j
        txtContent = txtContent & vbCrLf ' 换行
    Next i
    
    ' 保存为TXT文件
    Open saveFolder & ws.Name & ".txt" For Output As #1
    Print #1, txtContent
    Close #1
    
    MsgBox "拆分完成！文件保存在：" & saveFolder
End Sub

内容的提问来源于stack exchange，提问作者Isaiah U. Pegues