|
楼主的代码太啰嗦,而且多半是通过录制宏改编而来的,是用EXCEL直接打开TXT文件,再复制,粘贴而成,效率太低,还加密!
给你们一个直接一点的,速度快得很,合计我就不做了,重点在于对TXT文件的操作:
Sub xq1234()
Set fso = CreateObject("scripting.filesystemobject")
Set f = fso.OpenTextFile(ThisWorkbook.Path & "\成绩.txt", 1, True)
filetxt = f.ReadAll
f.Close
Set f = Nothing
Set fso = Nothing
Data1 = Split(filetxt, Chr(13) & Chr(10))
r = UBound(Data1)
c = UBound(Split(Data1(0), Chr(9)))
Dim MyData()
ReDim MyData(0 To r, 0 To c)
For rr = 0 To r
Data2 = Split(Data1(rr), Chr(9))
For c1 = 0 To UBound(Data2) 'c
MyData(rr, c1) = Data2(c1)
Next c1
Next rr
Cells(1, 1).Resize(r, c) = MyData
End Sub |
|