php导入excel为txt,这样从Txt文件导入excel怎么处理？

Sub t()

Dim Str$, arr, i%, j%

j = 2: p = 18

Str = "/仪器数据.txt"

Application.DisplayAlerts = False

Open ThisWorkbook.Path & "" & Str For Input As #1

arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)

Close #176

For i = 3 To 2755 Step 18

Range("a" & j) = Split(arr(i), ":")(1)

Range("b" & j) = Split(arr(i + 11), Chr(9))(1)

Range("c" & j) = Split(arr(i + 11), Chr(9))(2)

Range("d" & j) = Split(arr(i + 11), Chr(9))(3)

Range("e" & j) = Split(arr(i + 11), Chr(9))(4)

Range("f" & j) = Split(arr(i + 11), Chr(9))(5)

Range("g" & j) = Split(arr(i + 11), Chr(9))(6)

Range("h" & j) = Split(arr(i + 11), Chr(9))(7)

Range("i" & j) = Split(arr(i + 11), Chr(9))(8)

Range("j" & j) = Split(arr(i + 11), Chr(9))(9)

Range("k" & j) = Split(arr(i + 11), Chr(9))(10)

Range("l" & j) = Split(arr(i + 11), Chr(9))(11)

Range("m" & j) = Split(arr(i + 11), Chr(9))(12)

Range("n" & j) = Split(arr(i + 11), Chr(9))(13)

Range("k" & j) = Split(arr(i + 11), Chr(9))(14)

Range("o" & j) = Split(arr(i + 11), Chr(9))(15)

Range("p" & j) = Split(arr(i + 11), Chr(9))(16)

Range("q" & j) = Split(arr(i + 11), Chr(9))(17)

j = j + 1

Range("b" & j) = Split(arr(i + 12), Chr(9))(1)

Range("c" & j) = Split(arr(i + 12), Chr(9))(2)

Range("d" & j) = Split(arr(i + 12), Chr(9))(3)

Range("e" & j) = Split(arr(i + 12), Chr(9))(4)

Range("f" & j) = Split(arr(i + 12), Chr(9))(5)

Range("g" & j) = Split(arr(i + 12), Chr(9))(6)

Range("h" & j) = Split(arr(i + 12), Chr(9))(7)

Range("i" & j) = Split(arr(i + 12), Chr(9))(8)

Range("j" & j) = Split(arr(i + 12), Chr(9))(9)

Range("k" & j) = Split(arr(i + 12), Chr(9))(10)

Range("l" & j) = Split(arr(i + 12), Chr(9))(11)

Range("m" & j) = Split(arr(i + 12), Chr(9))(12)

Range("n" & j) = Split(arr(i + 12), Chr(9))(13)

Range("k" & j) = Split(arr(i + 12), Chr(9))(14)

Range("o" & j) = Split(arr(i + 12), Chr(9))(15)

Range("p" & j) = Split(arr(i + 12), Chr(9))(16)

Range("q" & j) = Split(arr(i + 12), Chr(9))(17)

j = j + 1

Next

For i = 2757 To 8293 Step 16

Range("a" & j) = Split(arr(i), ":")(1)

Range("b" & j) = Split(arr(i + 11), Chr(9))(1)

Range("c" & j) = Split(arr(i + 11), Chr(9))(2)

Range("d" & j) = Split(arr(i + 11), Chr(9))(3)

Range("e" & j) = Split(arr(i + 11), Chr(9))(4)

Range("f" & j) = Split(arr(i + 11), Chr(9))(5)

Range("g" & j) = Split(arr(i + 11), Chr(9))(6)

Range("h" & j) = Split(arr(i + 11), Chr(9))(7)

Range("i" & j) = Split(arr(i + 11), Chr(9))(8)

Range("j" & j) = Split(arr(i + 11), Chr(9))(9)

Range("k" & j) = Split(arr(i + 11), Chr(9))(10)

Range("l" & j) = Split(arr(i + 11), Chr(9))(11)

Range("m" & j) = Split(arr(i + 11), Chr(9))(12)

Range("n" & j) = Split(arr(i + 11), Chr(9))(13)

Range("k" & j) = Split(arr(i + 11), Chr(9))(14)

Range("o" & j) = Split(arr(i + 11), Chr(9))(15)

Range("p" & j) = Split(arr(i + 11), Chr(9))(16)

Range("q" & j) = Split(arr(i + 11), Chr(9))(17)

j = j + 1

Next

End Sub