→ waiter337: 最扯的一頁有15*3萬多個f(x)運算 10/04 14:01
推 lin99: 2010 版本？ 轉成二進位 壓縮 檔案 10/04 16:21
→ lin99: 可砍一半 size 10/04 16:21
→ waiter337: 謝謝 慢慢來 我昨天已經靠vba刪掉大概30多萬個f(x) 10/04 17:12
→ waiter337: 就原先是靠f(x) 改成用vba傳純文字這樣 10/04 17:13
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:
版本:
小弟的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工作表,來不及運作
不曉得小弟的猜測是否有錯
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.35.158.244
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1475528828.A.21B.html