原帖由 shotstar 于 2010-3-31 15:27 发表
问题应该是出在两层循环的设计上。
按照你的程序,实际上执行的次数是excel里行数的平方,也就是5w的平方。。。所以你执行一天也执行不完。
感觉你应该重新修改一下设计,然后先将excel排序之后再处理。
原帖由 crazyoldman 于 2010-3-31 16:00 发表
我把程序改了,做了简单的测试,好像可以,不知道5万条好不好用了。
dim oExcel,mySheet,GetCellValue
set oExcel = CreateObject( "Excel.Application" )
set myExcl = oExcel.WorkBooks.Open( "D:\wl\1.xls" )
...
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) | Powered by Discuz! X3.2 |