[發問] 跑到一半會卡住~~

power82843

test.rar (476.9 KB)

下載次數: 17

2016-12-1 23:09

各位先進小弟這個程式跑到一半就會卡住，可否幫我看看問題出在哪，感謝!

power82843

GBKEE 大大 抱歉沒有說清楚，是下面這一段程式，一開始可以跑得蠻順的，可是跑個80~200筆後就會卡住不跑，指標呈現等待的圖案。

1. Sub ROE()
   
2. 
   
3. For i = 10 To Sheets("個股資料").Range("B281").End(xlDown).Row
   
4. Worksheets("ROE總表").Range("B1").Value = "++++++++++++++++++++++++++++++++++++++++++++++++++++"
   
5. Worksheets("ROE").Select
   
6.     With ActiveSheet.QueryTables.Add(Connection:= _
   
7.         "URL;http://stockchannelnew.sinotrade.com.tw/z/zc/zcr/zcra/zcra_" & Sheets("個股資料").Range("B" & i) & ".djhtm", Destination:=Range("B1"))
   
8.         .Name = "0000000"
   
9.         .FieldNames = True
   
10.         .RowNumbers = False
    
11.         .FillAdjacentFormulas = False
    
12.         .PreserveFormatting = True
    
13.         .RefreshOnFileOpen = False
    
14.         .BackgroundQuery = True
    
15.         .RefreshStyle = xlInsertDeleteCells
    
16.         .SavePassword = False
    
17.         .SaveData = True
    
18.         .AdjustColumnWidth = True
    
19.         .RefreshPeriod = 0
    
20.         .WebSelectionType = xlSpecifiedTables
    
21.         .WebFormatting = xlWebFormattingNone
    
22.         .WebTables = "1"
    
23.         .WebPreFormattedTextToColumns = True
    
24.         .WebConsecutiveDelimitersAsOne = True
    
25.         .WebSingleBlockTextImport = False
    
26.         .WebDisableDateRecognition = False
    
27.         .WebDisableRedirections = False
    
28.         .Refresh BackgroundQuery:=False
    
29.     End With
    
30.    
    
31.     Range("C1:C500").Find("股東權益報酬率").Select
    
32.     Range(Selection, Selection.End(xlToRight)).Copy
    
33.     Worksheets("ROE總表").Select
    
34.     Worksheets("ROE總表").Range("B1").Select
    
35.     ActiveCell.End(xlDown).Select
    
36.     lastrow = ActiveCell.Row
    
37.     ActiveSheet.Paste Destination:=Worksheets("ROE總表").Range("b" & lastrow + 1)
    
38.     Worksheets("ROE總表").Range("A" & lastrow + 1).Value = Worksheets("個股資料").Range("C" & i).Value
    
39.     Worksheets("ROE").Select
    
40.     Worksheets("ROE").Range("B1").Select
    
41.     Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Delete
    
42. 
    
43. Next
    
44. 
    
45. End Sub

複製代碼

power82843

GBKEE 您好!
就像下方畫面，跑了100多筆之後就一直卡在這個畫面。

下載 (84.17 KB)

2016-12-3 12:15

power82843

回復 5# 准提部林

准提部林 大大
您的程式跑起來快很多，但是還是會卡住，如下畫面，可以再幫忙看是什麼問題嗎?感謝!

下載 (84.17 KB)

2016-12-3 12:18

power82843

回復 4# GBKEE

GBKEE 您好!
就像下方畫面，跑了100多筆之後就一直卡在這個畫面。

下載 (84.17 KB)

2016-12-3 12:19

power82843

回復 10# 准提部林
請問遇到這樣的情況要如何避免?