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作为文件句柄。