vba读取txt文件

亲，已经改好了，代码如下：

Sub Macro1()

'

' Macro1 Macro

'

'

Dim AAA As Long

Dim BBB As Long

Dim s As String

BBB = 1

Open "D:\a.txt" 消咐For Input As #1

While 察明Not EOF(1)

    Line Input #1, s

    Cells(BBB, 1) = Mid(s, 2, 1)

   拿没纯 BBB = BBB + 1

Wend

Close #1

End Sub

Sub 读文本文件()

 '以下在C盘根目录建立测试文件棚塌州1.txt

  Open "c:\1.txt" For Append As #1 '存在打开不存在建立

  Print #1, "测试写1行"

  Print #1, "测试再写1行"

  Close #1 '关闭文件

 '以下读以上建立链蔽的文件

  Dim txt As String '定义读取用数组

  Open "c:\1.txt" For Input As #1 '打开文件

  Do While Not EOF(1) '循环到文件尾

    Line Input #1, txt '读1行到数组

    MsgBox txt '显示数组中的内容

  Loop

  Close 衫雀#1 '关闭文件

End Sub

前面加输入框，输入文件路径即可 ：枣祥

Sub bb()

Dim a, b, x, k%, i%, j%, q%

x 滚颂= InputBox("输入文档所在路径：", , "e:/file")    '增加输入路径

Open  x & "/" & "a.txt" For Input As #1      '打开路径加文件名

。。凳备搏。以下接你原来的处理

---