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

如何读取包含逗号的文本文件？例如：

Test.txt文件内容：

item 1, item 2, item 3

要读取该文件，请执行以下操作：

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

---

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

使用

行输入

，而不仅仅是

输入

这将一次读取一行；因此保留逗号

此外，您应该使用函数

FreeFile

而不是硬编码1作为文件句柄