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

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

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

樓主熱帖

初學者color

color790

中學生 Rank: 2

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

2^#

發表於 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

color790

中學生 Rank: 2

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

3^#

發表於 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

color790