如何使用 VBA 在文本文件中用换行符正确替换文本？

Question

我正在尝试替换一些文本，包括换行符，但是它不起作用。正在使用 Chr(10)、Chr(13) 和 Chr(10)+Chr(13) 组合。没有工作。有任何想法吗？代码如下：

Sub Replacetext()

 Dim MyFolder As String
 Dim MyFile As String
 Dim Fname As String


 MyFolder = "D:\Excel" 
 MyFile = Dir(MyFolder & "\*.txt")

 Do While MyFile <> ""
 Fname = MyFolder & "\" & MyFile
 Workbooks.OpenText Fname

 Cells.Replace What:="a" & Chr(13) & "a", Replacement:="b" & Chr(13) & "b" _
    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, lookat:=xlWhole

 ActiveWorkbook.Close savechanges:=1
 MyFile = Dir
 Loop
End Sub

Answer 1

简答

您要查找的 ANSI 代码只是 10

更长的答案

好的，也许这会对您有所帮助。我在这样的单元格中创建了多行数据：

This is
Multiline

在"A1"。然后我想看看空白的代码是什么。

Public Sub ToAnsi()
    Dim strCellData As String
    strCellData = Range("A1").Value

    For i = 1 To Len(strCellData)
        MsgBox Asc(Mid$(strCellData, i, 1))
    Next
End Sub

从某种意义上说并不优雅，但我们从 MsgBox 中得到了答案。我能够确定换行符空格代码是10。这对我来说是一个惊喜。我的测试是在 Excel 2010 上进行的。

更新

我注意到您在Cells.replace 的第一行缺少一个尾随逗号。所以应该是：

Cells.Replace What:="a" & Chr(13) & "a", Replacement:="b" & Chr(13) & "b", _

还请考虑以下数据。第一行包含多行数据。

     A           B          C
1    This is     a
     Multiline   a  
2

如果我用我的 ANSI 数字对我的工作表运行你的代码，甚至用类似的数据编辑单元格 C1。

Range("C1").Value = "c" & Chr(10) & "c"
Cells.Replace What:="a" & Chr(10) & "a", Replacement:="b" & Chr(10) & "b", _
    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, lookat:=xlWhole

     A           B          C
1    This is     b          c
     Multiline   b          c   
2

如果它不适合您，我认为您需要更多调试或更多信息。如果 "cells" 的格式不是最好的，这里还有一张图片。