[求助]分割文本并导入到EXCEL

northwolves · 发表于 2007-9-16 15:50

For j = i To i + 999
arr(j - i, 1) = s(j)
Next
Sheets("表" & i \ 1000 + 1).[a1:a1000] = arr

多学点 · 发表于 2007-9-16 15:57

这下对了，谢谢你，高手就是不一样。

mantuoluoyx · 发表于 2008-7-31 22:48

为什么附件下载下来不能打开呢

jinmin2008 · 发表于 2008-8-1 07:16

[em02][em02][em02][em02]

whlneed2008 · 发表于 2008-11-10 18:03

不错，我也需要这么个程序

saxonping · 发表于 2008-12-1 08:10

ok谢谢留爪

天天吸收 · 发表于 2009-3-11 00:02

学习中……

jb1200 · 发表于 2009-3-11 09:02

我先将该页收起来

fujison · 发表于 2009-3-11 13:57

Sub macro1()
Dim s() As String, i As Long, arr()
Open ThisWorkbook.Path & "\原始数据.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
For i = 0 To UBound(s) Step 1000
ReDim arr(999, 1 To 1)
For j = i To i + 999
arr(j - i, 1) = s(i)
Next
Sheets("表" & i \ 1000 + 1).[a1:a1000] = arr
Next
End Sub
有大大解释一下是什么意思吗

zeuger · 发表于 2009-3-11 21:38

我也来学习学习

		自动登录	找回密码
密码			免费注册