vba – 读取文本文件，保存逗号

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

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