[發問] Range.Copy Destination:=Range報錯

sunnyso

請教各位大大，code 如下，執行後存檔關閉Excel會報錯 “圖片太大，超出的部分將被截去。”
工作表中沒有圖片。請問哪裏有問題？

還有請問如何寫code可以有效率的 copy 大量資料，我用 Range("B11:BG30010").Value = Sheets("Sheet1").Range("A1:BF30000").Value 很慢。
等級有限不能上傳超過1MB附件，只好分3部分。
data copy - sonny1 - Copy.part1.rar (921.6 KB)

下載次數: 10

2013-7-24 14:36

data copy - sonny1 - Copy.part2.rar (921.6 KB)

下載次數: 7

2013-7-24 14:36

data copy - sonny1 - Copy.part3.rar (351.83 KB)

下載次數: 6

2013-7-24 14:36

1. Private Sub Worksheet_Activate()
   
2.     Cells.ClearContents
   
3.     Sheets("Sheet3").UsedRange.Copy Destination:=Range("B11")
   
4. End Sub

複製代碼

下載 (365.01 KB)

2013-7-24 14:35

luhpro

回復 1# sunnyso
我的 Excel 2003 跑起來不會有你說的錯誤耶?
有沒有可能是版本的問題? -> 你提供的畫面看起來不太像我曾經見過的 Excel 的畫面, 不知是哪個版本的呢?
又或者會是開太多程式導致記憶體不夠用呢? -> 單獨只跑 Excel 看看是否還會發生.

kimbal

請教各位大大，code 如下，執行後存檔關閉Excel會報錯 “圖片太大，超出的部分將被截去。”
工作表中沒有圖 ...
sunnyso 發表於 2013-7-24 14:38

    Excel 上有數百個隱藏圖形, 試試全選清理看看

下載 (121.1 KB)

2013-7-24 22:25

sunnyso

回復 3# kimbal

感謝大大，問題已解決。