VBA写入文本文件重复输出对象名，如何改为写入实际值？

别担心，这种小问题在刚接触VBA操作文本文件时太常见了，完全不是你的问题～

问题根源 #

你写入Excel时正常，是因为在Excel的环境里，直接使用单元格对象（比如Range）时，VBA会自动调用它的默认属性.Value，所以能输出实际内容。但写入文本文件时，VBA不会做这个自动转换——如果你直接把对象变量丢进去，它只会输出这个对象的类型名称（比如"Range"），而不是你要的单元格值。

解决方法：明确获取对象的实际值 #

核心就是不要直接写对象本身，而是写对象的属性值，最常用的就是.Value或者.Value2（后者跳过单元格的格式，读取效率更高）。

举个简单的对比：

• ❌ 错误写法（输出对象名称）：

  Print #fileNum, myCell  ' 会输出类似"Range"的内容
  

• ✅ 正确写法（输出实际值）：

  Print #fileNum, myCell.Value  ' 输出单元格里的实际内容
  

完整示例代码 #

这里给你一个从Excel读取单元格并写入文本文件的完整正确示例：

Sub WriteCellValuesToText()
    Dim targetRange As Range
    Dim singleCell As Range
    Dim savePath As String
    Dim fileNumber As Integer
    
    ' 1. 设置文本文件的保存路径
    savePath = "C:\YourFolder\output.txt"  ' 替换成你的路径
    ' 2. 选择要读取的Excel单元格范围
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A1:C10")  ' 替换成你的范围
    
    ' 3. 打开文本文件（Output模式会覆盖已有内容，Append模式是追加）
    fileNumber = FreeFile
    Open savePath For Output As #fileNumber
    
    ' 4. 遍历每个单元格，写入实际值
    For Each singleCell In targetRange
        ' 确保只写入非空值（可选，根据你的需求调整）
        If Not IsEmpty(singleCell.Value) Then
            Print #fileNumber, singleCell.Value
        End If
    Next singleCell
    
    ' 5. 关闭文件（非常重要，否则文件会被锁定）
    Close #fileNumber
    
    MsgBox "文本文件写入完成！"
End Sub

额外注意事项 #

• 如果需要写入多列数据（比如CSV格式），可以拼接字符串：

  Print #fileNumber, singleCell.Value & "," & singleCell.Offset(0, 1).Value
  

• 如果是自定义对象，要找到存储实际数据的属性（比如MyObject.Name、MyObject.ID），而不是直接写MyObject。

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