vba - Excel 2007 VBA宏逐行读取文本文件如何停止对逗号定界(，)

我有一个简单的Excel 2007 Macro，它逐行读取文本文件并显示输出。

该宏用逗号分隔。我希望它简单地读取整个行数，以偿还报酬。

我究竟做错了什么？

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

最佳答案

要快速修复，请尝试使用Line input而不是input。

有关更现代的解决方案，请查看FileSystemObject，尤其是OpenTextFile。