excel - vba - 读取文本文件，保留逗号

Question

您如何阅读包含逗号的文本文件？例如:

Test.txt 文件内容:

item 1, item 2, item 3

VBA读取文件:

Sub readFile()

Dim sFile As String
Dim sPath As String
sFile = "test.txt"
sPath = ThisWorkbook.Path & "\" & sFile

Dim s As String
Dim sFullStr As String
sFullStr = ""

Open sPath For Input As #1
Do Until EOF(1)
    Input #1, s
    sFullStr = sFullStr  + " " + s
Loop
Close #1

Debug.Print sFullStr 

End Sub

输出:

item 1 item 2 item 3

我想要的输出是包含逗号的原始文本文件内容

Answer 1

使用Line Input而不仅仅是Input .

这将一次读取一行；从而保留逗号。

此外，您应该使用函数 FreeFile而不是硬编码 1 作为文件句柄。