怎么批量复制文本控件内的值？

见附件，是网页上复制下来粘贴到excel内，显示是文本控件，希望将控件内的内容复制出来

用文件内的vba代码会出现“对象库无效...”的提示，无法复制

但是行数比较少的时候，复制是没问题的，不知道具体是什么原因导致的

有很多这种文件，求高手帮忙。

一个附件发不上来，分卷压缩了

[ 本帖最后由 wzg74 于 2011-8-9 18:10 编辑 ]

附件

Book3.part1.rar(290 KB)

2011-8-9 16:14, 下载次数: 2

Book3.part2.rar(265.84 KB)

2011-8-9 16:14, 下载次数: 2

作者: wzg74   发布时间: 2011-08-09

怎么没人帮忙呀
急人啊

作者: wzg74   发布时间: 2011-08-09

引用:

原帖由 wzg74 于 2011-8-9 16:14 发表
见附件，是网页上复制下来粘贴到excel内，显示是文本控件，希望将控件内的内容复制出来

用文件内的vba代码会出现“对象库无效...”的提示，无法复制

但是行数比较少的时候，复制是没问题的，不知道具体是什么原 ...

短信收到，这种控件占用大量内存，估计控件太多了，我的电脑几乎不能运行了，同样出现“对象库无效...”的提示
建议每次复制少量数据，用数组处理以加快速度
下面代码是我以前写的，请参考
特殊工作表控件取值一维数组转换二维数组MOD.rar (150.4 KB)

特殊工作表控件取值一维数组转换二维数组MOD.rar (150.4 KB)
下载次数: 1

2011-8-9 18:59

作者: zhaogang1960   发布时间: 2011-08-09