|
不好意思,忘了你是超大数据量了,代码改了一下:- Sub byWanao()
- Dim fN$, lineText$, arr, jsNum%, Dic As Object, i%, j%, getData$, brr(1 To 65535, 1 To 14)
-
- Set Dic = CreateObject("Scripting.Dictionary")
- Dic(2) = 2
- Dic(3) = 18
- Dic(4) = 17
- Dic(5) = 10
- Dic(6) = 9
- Dic(7) = 14
- Dic(8) = 11
- Dic(9) = 13
- Dic(10) = 8
- Dic(11) = 4
- Dic(12) = 1
- Dic(13) = 6
- Dic(14) = 5
-
-
- jsNum = 0
- fN = ThisWorkbook.Path & "\列表.txt"
- Open fN For Input As #1
- Do While Not EOF(1)
- Line Input #1, lineText
- jsNum = jsNum + 1
- arr = Split(Replace(lineText, """", ""), ",")
- For j = 2 To 14
- getData = arr(Dic(j))
- If j = 2 Then
- brr(jsNum, j) = Split(getData, " ")(1)
- brr(jsNum, j - 1) = Split(Split(getData, " ")(0), ":")(1)
- Else
- brr(jsNum, j) = Split(getData, ":")(1)
- End If
- Next
- Loop
- Close #1
- Sheet2.[a2].Resize(jsNum + 1, 14) = brr
- End Sub
复制代码
|
|