|
本帖最后由 tcmsod 于 2017-7-18 21:18 编辑
需导入每行文本,按7列导入到excel中,以下代码测试不成功,可能和间隔的特殊符号有关,请高手指教如何解决,谢谢。
1 A11 S00 A 50 ea 0.3
Sub heTxt()
Dim arr(1 To 10000, 1 To 7), F$, brr, j&
F = Dir(ThisWorkbook.Path & "\*.txt")
Do While F <> ""
Open ThisWorkbook.Path & "\" & F For Input As #1
Do While Not EOF(1)
n = n+1
Line Input #1, x
brr = Split(Trim(x), " ")
For j = 0 To 6
arr(n, j + 1) = brr(j)
Next j
Loop
Close #1
F = Dir
Loop
[a1].Resize(n, 7) = arr
End Sub
- brr = Split(Application.Trim(x), " ")
复制代码
|
|