Question

所以，我有这段代码完全符合我的要求：使用单元格A1的内容将新行添加到文本文件中。但是当我查看文件时，这些行具有“新行”字符。如何避免我的代码写出该字符？

这是我的代码。

Sub append_data()
    Dim srtfile_path As String
    strfile_path = "C:\Users\me\textfile.txt"
    output = StrConv(Worksheets("Sheet1").Range("A1"), vbUnicode)
    linebreak = StrConv(vbNewLine, vbUnicode)
    Open strfile_path For Append As #1
    Print #1, output + linebreak
    Close #1
End Sub

Answer 1

如果您不仅要删除明确写入的换行符，还要删除在文本文件中将一行与下一行分开的换行符，则需要在下面放置一个分号（;） Print声明的结尾：

Sub append_data()
    Dim srtfile_path As String
    strfile_path = "C:\Users\me\textfile.txt"
    output = StrConv(Worksheets("Sheet1").Range("A1"), vbUnicode)
    Open strfile_path For Append As #1
    Print #1, output;
    Close #1
End Sub

使用vba宏将新行附加到文本文件时出现新行字符问题

1 个答案: