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, а не hardcoding 1 в качестве дескриптора файла.