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

cokeone · 发表于 2011-7-29 16:13

原帖由 j3yyxh 于 2010-1-9 11:09 发表
请高手解答下，我按版主的代码复制了一个遍却显示我下标越界错误，是哪里出问题了，在线等回答

下标越界应该是你没有"表1"-“表10"这10个表，可能是误删了或者你自己新建的xls文件，还有就是把楼主的txt文件同xls文件要放在一个目录下。

bmdsjxyw · 发表于 2011-9-22 17:42

以后研究看看

学生甲1 · 发表于 2011-12-22 14:08

向狼版学习。

kszcs · 发表于 2011-12-22 18:28

问题无所不在，高手无所不能！

kszcs · 发表于 2011-12-23 01:05

northwolves 发表于 2007-9-16 15:50
For j = i To i + 999arr(j - i, 1) = s(j)NextSheets("表" & i \ 1000 + 1).[a1:a1000] = arr

版主：
当数据不是正好10000行的时候，运行后提示下标越界，怎么能修改？

goldowl2011 · 发表于 2012-1-11 14:10

Thanks a lot.

wushishuangyi · 发表于 2012-1-13 15:35

northwolves 发表于 2007-9-16 15:10
QUOTE:以下是引用多学点在2007-9-16 12:40:59的发言：高手northwolves：你好! 谢谢你的帮助,但表1得到的全是 ...

为什么运行宏的时候都是提醒”内存溢出“的

zpcnb8888 · 发表于 2014-4-19 18:16

学习学习学习学习

难得糊涂_magic · 发表于 2015-3-13 11:56

northwolves 发表于 2007-9-16 15:50
For j = i To i + 999arr(j - i, 1) = s(j)NextSheets("表" & i \ 1000 + 1).[a1:a1000] = arr

想问下您为何运行完下标越界呢

SCL5801 · 发表于 2016-11-16 20:07

vba高手无所不能

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