Excel 2007 Макрос VBA, читающий текстовый файл построчно, как прекратить разделять запятую (,)

Question

У меня есть простой макрос Excel 2007, который построчно читает текстовый файл и отображает вывод.

Этот макрос разбит на запятые.Я хочу, чтобы он просто прочитал всю строку, разрывающуюся при возврате каретки.

Что я делаю не так?

Sub Directory()
  Dim strFileName As String
  Dim strDirectory As String
  Dim intFileKey As Integer
  Dim strLine As String

  strDirectory = "C:\Documents and Settings\e1009028\My Documents\embosstest"

  ChDir (strDirectory)

  strFileName = Dir("*.txt")

  Do While Len(strFileName) > 0
    intFileKey = FreeFile
    Open strFileName For Input As intFileKey
    Do While Not EOF(intFileKey)
        Input #intFileKey, strLine
        MsgBox Mid(strLine, 1, 10)
    Loop
    strFileName = Dir
  Loop

End Sub

Вот пример текстового файла:

1 blahblahblabh
2 blah,blahblah

Answer 1

Для быстрого исправления попробуйте использовать Линейный вход вместо Вход .

Для более современного решения взгляните на FileSystemObject , особенно OpenTextFile .