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

要快速解決問題，請嘗試使用Line輸入而不是輸入 。

有關更現代的解決方案，請查看FileSystemObject ，尤其是OpenTextFile 。