Question

如何提取TXT文本中的数据到EXCLE中？

就是需要循坏提取下图中TXT文本中的数据，按照时间、Ia、Ib、Ic.....一直到f，保存为第二张图片的数据，怎么编程啊？





Answer 1

根据你的截图，大概可以用如下的方式做出来~Ia、Ib、Ic.....一直到f，先写到excel 中，有问题再提出。

Sub read_txt()

j = 1

n = Cells(1, Columns.Count).End(xlToLeft).Column

Filename = "C:\Users\Administrator\Desktop\1.txt"

Open Filename For Input As #1

Do While Not EOF(1)

Line Input #1, mystr

If Trim(mystr) <> "" Then

j = j + 1

arr = Split(mystr, " ")

Cells(j, 1) = arr(0) & " " & arr(1)

For i = 2 To n

Cells(j, i) = Application.Substitute(arr(i), Cells(1, i) & ":", "")

Next

End If

Loop

Close #1

End Sub

追问

我整出来是这样的结果啊？

追答

各个值的栏位名称要先写入仔细看图

追问

您好，按照您说的我加了一下，但是结果是这样的！是什么情况？

追答

把代码发来看看

Sub read_txt()

j = 1

n = Cells(1, Columns.Count).End(xlToLeft).Column

Filename = "C:\Users\Administrator\Desktop\1.txt"

Open Filename For Input As #1

Do While Not EOF(1)

Line Input #1, mystr

If Trim(mystr) "" Then

j = j + 1

arr = Split(mystr, " ")

Cells(j, 1) = arr(0)

For i = 2 To n

Cells(j, i) = Application.Substitute(arr(i-1), Cells(1, i) & ":", "")

Next

End If

Loop

Close #1

End Sub

重新试试，你的日期和时间中间应该是没有空格的，我写的是认为有空格的，所以错位了，