(若是和其他不同软件互动之问题 请记得一并填写)
软件:
版本:
小弟的excel报表目前在慢慢锻炼中
总档案41mb多
因为之前不会vba 所以很多都用f(x)来写
目前已经开始慢慢重写转由vba来运算,减轻压力
评估未来可少掉10-20多mb
不过小弟遇到一个问题
我目前蛮多的引数都是靠f(x)的排序或者索引来代入
当我将15000-20000笔的网页原始码以纯文字汇入后
竟然发现某行程式码出问题
Sheets("员工分析").Range("a:k").ClearContents
Sheets("原始码").Range("a:k").Copy
Sheets("员工分析").Range("a:k").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
在这样的情况下,他说发现错误,几乎都是第三行跟第四行出错
然后我改成以下这样
Sheets("员工分析").Select
Sheets("员工分析").Range("a:k").ClearContents
Sheets("原始码").Select
Sheets("原始码").Range("a:k").Copy
Sheets("员工分析").Select
Sheets("员工分析").Range("a:k").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
用select来当作缓冲的时间巴Q.Q (自以为啦)
但确实程式码就不再出问题了
怀疑有时后vba会被来不及运算的excel工作表,或者被f(x)还来不及运算完
导致excel工作表,来不及运作
不晓得小弟的猜测是否有错