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

多学点 · 发表于 2007-9-14 19:18

在＜＜我的文档＞＞里有一文本（原始数据），这文本有1万行数字，如何把它按顺序导入到工作部总报表中的表1，表2，表3，。。。。。。表10的b列。

文本的第1行到1000行导入到表1；

文本的第1001到2000行导入到表2；

文本的第2001到3000行导入到表3；

。。。。。。。。。。。。。。。。

谢谢高手的帮助！附件在下面，

下面的附件是工作部总报表

Sqhl67D2.rar (107.07 KB, 下载次数: 671)

我真实的数据量不是1万（但我压缩80万的文本上传不了，只用1万来做样本而已），我真正用到的80万，每一个表要装2.5万，

要是80万一个表就装不了了，所以只能用文本来放原始数据。

[此贴子已经被作者于2007-9-15 16:10:01编辑过]

圈圈2005 · 发表于 2007-9-14 19:27

a5LSz4ko.rar (222.97 KB, 下载次数: 421)

可用筛选序号<1000; >2000>1000;将表一数据分别粘贴到其他表中

LangQueS · 发表于 2007-9-14 19:37

将10000行数据复制到总表中（如果需要分列就以"，"为分隔符分列），再按钮执行宏：

18BCwEGc.rar (194.48 KB, 下载次数: 441)

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

谢谢楼上朋友的帮助，我真实的数据量不是1万（但我压缩80万的文本上传不了，只用1万来做样本而已），我真正用到的80万，每一个表要装2.5万，

要是80万一个表就装不了了，所以只能用文本来放原始数据。

请高手继续帮忙。谢谢！

多学点 · 发表于 2007-9-15 22:53

高手们帮帮好吗?先谢谢了

northwolves · 发表于 2007-9-15 23:28

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
MsgBox "ok"
End Sub

多学点 · 发表于 2007-9-16 12:40

高手northwolves：

你好! 谢谢你的帮助,但表1得到的全是原始数据的第一行数据,(表2得到的全部是1001行的数据)

我是目的是：

表一得到的是1至1000行的的数据,

表二得到的是1001到2000行的数据，如此类推

请再帮改一下好吗？

hbkeguojin · 发表于 2007-9-16 14:46

LangQueS版主:

请你关注一下:http://club.excelhome.net/viewthread.php?tid=266590

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

QUOTE:

以下是引用多学点在2007-9-16 12:40:59的发言：

高手northwolves：

你好! 谢谢你的帮助,但表1得到的全是原始数据的第一行数据,(表2得到的全部是1001行的数据)

我是目的是：

表一得到的是1至1000行的的数据,

表二得到的是1001到2000行的数据，如此类推

请再帮改一下好吗？

低级错误,改为:

Sheets("表" & i \ 1000 + 1).[a1:a1000] = Worksheetfunction.Transpose(arr)

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

把

Sheets("表" & i \ 1000 + 1).[a1:a1000] = arr

改为

Sheets("表" & i \ 1000 + 1).[a1:a1000] = Worksheetfunction.Transpose(arr)

还是老样子，表里的内容还是一样的，和没改一个样，请再帮帮改一下，谢谢

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