VBA遍历工作簿工作表导出指定范围至TXT失败问题排查

问题原因 #

你的代码无法遍历所有工作表执行导出操作，核心原因是saveText子过程中使用的Range对象没有指定工作表限定符，默认会引用当前活动工作表，而非循环中正在处理的工作表。

修正后的代码 #

遍历工作表的主过程 #

Sub vba_loop_sheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Call saveText(ws) ' 将当前遍历到的工作表传递给saveText
    Next
End Sub

导出文本的子过程（接受工作表参数） #

Sub saveText(ws As Worksheet)
    Dim filename As String, lineText As String
    Dim myrng As Range, i, j
    
    ' 使用传入的工作表对象限定Range，确保读取当前工作表的B2单元格
    filename = ThisWorkbook.Path & "\" & ws.Range("B2") & ".txt"
    
    Open filename For Output As #1
    
    ' 限定要导出的单元格区域为当前工作表的B31:B74
    Set myrng = ws.Range("B31:B74")
    
    For i = 1 To myrng.Rows.Count
        lineText = "" ' 每次循环重置行文本，避免残留上一行内容
        For j = 1 To myrng.Columns.Count
            lineText = IIf(j = 1, "", lineText & ",") & myrng.Cells(i, j)
        Next j
        Print #1, lineText
    Next i
    
    Close #1
End Sub

关键修改说明 #

• 给saveText添加了ws As Worksheet参数，允许主过程传递当前要处理的工作表
• 所有Range和Cells引用都通过ws.限定，确保操作的是循环中的目标工作表
• 新增了lineText = ""的重置操作，避免导出时出现行内容拼接错误

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