為什麼這個檔案用起來這麼慢.....

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

13^#

發表於 2011-10-27 21:44 | 只看該作者

回復 12# 棋語鳥鳴

YES

diabo

棋語鳥鳴

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2023-12-5

12^#

發表於 2011-10-27 21:41 | 只看該作者

回復 8# diabo

請問這個巨集是將sheet名稱改過，就能使用了嗎?

color790

帖子: 115
主題: 33
精華: 0
積分: 152
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-1-18

11^#

發表於 2011-10-27 21:20 | 只看該作者

回復 color790

每查一次就會累積一次，可加參數刪除之...
diabo 發表於 2011-10-27 17:04

謝謝解答 , 看來我有好多個檔案需要加入這個參數, ^^

初學者color

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

10^#

發表於 2011-10-27 17:04 | 只看該作者

回復 9# color790

每查一次就會累積一次，可加參數刪除之...

diabo

color790

帖子: 115
主題: 33
精華: 0
積分: 152
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-1-18

9^#

發表於 2011-10-27 16:39 | 只看該作者

回復 color790

用這個清一下不要的QueryTable
diabo 發表於 2011-10-27 15:58

以前從來不知道有這個地方, 太感謝了
再請問一下,QueryTable 什麼時候會有像這樣累積的現象

初學者color

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

8^#

發表於 2011-10-27 15:58 | 只看該作者

回復 1# color790

用這個清一下不要的QueryTable

Sub DeleteTmpQueryTable()
Dim QT As QueryTable
For Each QT In Sheets("tmp").QueryTables
Debug.Print QT.Name
QT.Delete
Next
For Each QT In Sheets("tmp2").QueryTables
Debug.Print QT.Name
QT.Delete
Next
End Sub

複製代碼

diabo

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

7^#

發表於 2011-10-27 15:46 | 只看該作者

本帖最後由 diabo 於 2011-10-27 15:52 編輯

回復 1# color790

Querytabe 用完要刪除.....不然會越來越肥.....

到 tmp 或 tmp 2工作表，按一下「名稱方塊」下拉選單....就會看到有好幾百的....

外部資料_1
外部資料_2
外部資料_3
....
.....

diabo

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2011-10-27 09:27 | 只看該作者

避免設置不必要的格式
如儲存格填滿顏色會讓檔案變得肥大。

color790

帖子: 115
主題: 33
精華: 0
積分: 152
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-1-18

5^#

發表於 2011-10-26 22:22 | 只看該作者

本帖最後由 color790 於 2011-10-26 22:24 編輯

回復 color790

檔案我是根本開不起來
不過光是你這個程式碼
你要下載所有代碼的資料就必須花費相當長 ...
Hsieh 發表於 2011-10-26 21:30

執行是要花一段時間, 但剛開檔案還沒執行前檔案就很慢, 比如游標要選A1, 要4,5秒才會點到
而且本來檔案本來只有幾百K, 執行過幾次後就變2點多Mb, 而且這兩個工作頁只是暫存, 也都有執行以下,
Worksheets("tmp").Range("A:Z").ClearContents
還是說ClearContents 無法真的清除乾淨,而造成檔案越來越慢?????
(把這兩個工作頁刪除再重新加入, 就又變順很多)

初學者color