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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

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

本帖最後由 color790 於 2011-10-28 23:13 編輯

自己拚拚貼貼而成的檔案, 只是.....怎麼越用越慢
不知道哪裡有問題, 望大家幫個忙:dizzy:

樓主熱帖

初學者color

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

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

本帖最後由 luhpro 於 2011-10-26 21:05 編輯

回復 1# color790
檔案讀起來確實很慢,
一般來說若檔案本身並不大所以不應該出現此情形時,
可以考慮將內容全部都搬移到另一個新建立的Excel檔案,
當然不會是整個檔案全部照搬,
那樣問題還是會存在而沒有解決.

我較常使用的方法是 :
1. 分別針對各個 Sheet 執行 -> 移動或複製 -> 將建立副本打勾 -> 目標選新活頁簿確認此動作的時間是否較長,
以判斷毛病應該是在哪幾個 Sheet 上,
確認後請記得關閉(並選不要儲存)新開的 Excel 活頁簿檔案. (本例中我發現 tmp 與 tmp2 兩個 Sheet 明顯讀取時間過長)

2. 沒問題的 Sheet 直接複製到新的 Excel 檔內.

3. 而對於有問題的 Sheet 則善用 "複製 -> 選擇性貼上",
只複製過來有資料的儲存格及其格式就好(資料與格式共兩次分別貼上, 且應避免選整列或整欄),
沒資料的直接捨棄.

4. 將程式內容文字分別 Copy 到與其相對應的程式區塊內.

最後另存新檔即可.

底下是我依上述方式重做過的檔案,
你看看是否符合你的需求.

123-Rebuild.zip (113.91 KB)

TOP

color790

中學生 Rank: 2

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

3^#

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

原來有降的方法.....太謝謝luhpro的幫忙 ^^
只是很奇怪, 怎這兩個工作頁會降
其中一個工作頁程式碼如下...是哪個部份出錯了嗎?

For i = 3 To Worksheets("代碼").[a65536].End(xlUp).Row
num = Worksheets("代碼").Cells(i, 1)
Worksheets("tmp").Range("A:Z").ClearContents

With Worksheets("tmp").QueryTables.Add(Connection:="URL;http://jsjustweb.jihsun.com.tw/z/zc/zcl/zcl_" & num & ".asp.htm" _
, Destination:=Worksheets("tmp").Range("A1"))

.Name = ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

初學者color

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 252
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

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

回復 3# color790

檔案我是根本開不起來
不過光是你這個程式碼
你要下載所有代碼的資料就必須花費相當長的時間
至於若有其他計算的話
那更不用說肯定會慢的

學海無涯_不恥下問

TOP

color790

中學生 Rank: 2

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

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

TOP

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 | 只看該作者

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

TOP

diabo

中學生 Rank: 2

帖子: 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

TOP

diabo