vba - 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 input而不是input 。

要获得更现代的解决方案，请查看 FileSystemObject ，特别是OpenTextFile .