Excel VBA导出单元格至TXT遇#Ref错误及逗号变分号问题求助

问题原因及解决方案 #

1. 导出后出现#REF错误 #

原代码直接复制粘贴单元格到新工作簿，由于新工作簿不存在原公式关联的单元格，公式无法解析导致#REF错误。解决核心是导出单元格的计算值而非公式。

2. 逗号被替换为分号 #

Excel默认按系统区域设置的列表分隔符输出文本，部分地区默认分隔符为分号。改用直接写入文件的方式，可自定义分隔符，彻底避免该问题。

修改后的VBA代码 #

Sub ExportRangetoFile()
    Dim saveFile As String
    Dim WorkRng As Range
    Dim rowText As String
    Dim fso As Object
    Dim ts As Object
    
    On Error Resume Next
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("选择要导出的区域", "导出到TXT", WorkRng.Address, Type:=8)
    On Error GoTo 0
    
    If WorkRng Is Nothing Then Exit Sub
    
    saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
    If saveFile = "False" Then Exit Sub
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.CreateTextFile(saveFile, True, True) 'True=覆盖现有文件，第二个True=UTF-8编码
    
    '逐行遍历选中区域，按逗号分隔单元格内容
    For Each row In WorkRng.Rows
        rowText = ""
        For Each cell In row.Cells
            rowText = rowText & cell.Value & ","
        Next cell
        '移除行尾多余的逗号
        rowText = Left(rowText, Len(rowText) - 1)
        ts.WriteLine rowText
    Next row
    
    ts.Close
    Set ts = Nothing
    Set fso = Nothing
    
    MsgBox "导出完成！", vbInformation
End Sub

代码说明 #

• 直接读取单元格的Value属性，确保导出的是公式计算后的结果，无引用错误。
• 使用FileSystemObject写入文件，自定义用逗号分隔单元格内容，可根据需求修改为其他分隔符（如制表符vbTab）。
• 支持UTF-8编码导出，避免中文乱码问题。

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