[已解决]麻烦高手修改一下代码

dfshm · 发表于 2013-12-8 10:30

本帖最后由 dfshm 于 2013-12-8 19:13 编辑

附件

yyyydddd8888 · 发表于 2013-12-8 10:39

本帖最后由 yyyydddd8888 于 2013-12-8 10:47 编辑

刚刚改好，不知道效果怎么样，请测试：

dfshm · 发表于 2013-12-8 11:37

yyyydddd8888 发表于 2013-12-8 10:39
刚刚改好，不知道效果怎么样，请测试：

老师您好，谢谢您修改。

经过对一张工作薄的测试，一组数据（11列），对应一张工作薄，花时约49秒。
再用一组数据，对应22张工作薄，理论上在17分钟应完成，却足足花了24分钟。

昨天两组出错的数据，刚才试了一组，已过关。稍后再试一组，今晚进行大规模测试。

yyyydddd8888 · 发表于 2013-12-8 11:42

dfshm 发表于 2013-12-8 11:37
老师您好，谢谢您修改。

经过对一张工作薄的测试，一组数据（11列），对应一张工作薄，花时约49秒。

我也在测试，看有没有办法再提高点速度。

yyyydddd8888 · 发表于 2013-12-8 13:50

本帖最后由 yyyydddd8888 于 2013-12-8 13:57 编辑

这个代码的速度又快了一点，请测试：

dfshm · 发表于 2013-12-10 10:12

yyyydddd8888 发表于 2013-12-8 13:50
这个代码的速度又快了一点，请测试：

老师您好，经过两天的测试，发现此程序确实快了不少。同时也发现了三个问题。

第一：如果一组数据，工作薄过多，会出现数据装不下的情形，而且会在209列处出现乱码。这个乱码会影响后续程序的运行。如下图
QQ图片20131210094336.jpg

再如

第二个问题：另存为的所有文件，打开时，都会提示一下文件格式不对，虽然影响不大，但每次打开都会提示，有点影响进度。
如：

第三个问题：另存为的文件，空表Sheet1不存在了。因为后续所有程序，都要依赖Sheet1进行，现在只能人工增添。

后面两个问题，可以忽略；第一个问题，是重点。

yyyydddd8888 · 发表于 2013-12-10 15:02

dfshm 发表于 2013-12-10 10:12
老师您好，经过两天的测试，发现此程序确实快了不少。同时也发现了三个问题。

第一：如果一组数据，工 ...

把出现第一个问题时的那一组工作簿及查询的数据用附件发上来，这样我容易调试。
第二和第三个问题很好解决。只是那样的速度就会慢一些。

dfshm · 发表于 2013-12-10 16:49

yyyydddd8888 发表于 2013-12-10 15:02
把出现第一个问题时的那一组工作簿及查询的数据用附件发上来，这样我容易调试。
第二和第三个问题很好解 ...

出现乱码的，一般都有二十多个工作薄，每个5.5M左右。发不上去的。

yyyydddd8888 · 发表于 2013-12-10 17:09

dfshm 发表于 2013-12-10 16:49
出现乱码的，一般都有二十多个工作薄，每个5.5M左右。发不上去的。

没有实际数据就不知道问题出在哪里了，没办法调试。

dfshm · 发表于 2013-12-10 21:19

yyyydddd8888 发表于 2013-12-10 17:09
没有实际数据就不知道问题出在哪里了，没办法调试。

老师您好，我用单个的程序查了一下出现乱码的数据，发现：11组数据中，有个别或多个查出来的数据，超出256列，另存为的文件中，对应的工作表，会出现空白，相应的，在这11组数据中，查出来的数据，就会有乱码出现。

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