- 帖子
- 7
- 主題
- 2
- 精華
- 0
- 積分
- 12
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- WIN7
- 閱讀權限
- 10
- 註冊時間
- 2016-9-28
- 最後登錄
- 2017-3-5
|
GBKEE 大大 抱歉沒有說清楚，是下面這一段程式，一開始可以跑得蠻順的，可是跑個80~200筆後就會卡住不跑，指標呈現等待的圖案。- Sub ROE()
- For i = 10 To Sheets("個股資料").Range("B281").End(xlDown).Row
- Worksheets("ROE總表").Range("B1").Value = "++++++++++++++++++++++++++++++++++++++++++++++++++++"
- Worksheets("ROE").Select
- With ActiveSheet.QueryTables.Add(Connection:= _
- "URL;http://stockchannelnew.sinotrade.com.tw/z/zc/zcr/zcra/zcra_" & Sheets("個股資料").Range("B" & i) & ".djhtm", Destination:=Range("B1"))
- .Name = "0000000"
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = True
- .RefreshOnFileOpen = False
- .BackgroundQuery = True
- .RefreshStyle = xlInsertDeleteCells
- .SavePassword = False
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingNone
- .WebTables = "1"
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = True
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- End With
-
- Range("C1:C500").Find("股東權益報酬率").Select
- Range(Selection, Selection.End(xlToRight)).Copy
- Worksheets("ROE總表").Select
- Worksheets("ROE總表").Range("B1").Select
- ActiveCell.End(xlDown).Select
- lastrow = ActiveCell.Row
- ActiveSheet.Paste Destination:=Worksheets("ROE總表").Range("b" & lastrow + 1)
- Worksheets("ROE總表").Range("A" & lastrow + 1).Value = Worksheets("個股資料").Range("C" & i).Value
- Worksheets("ROE").Select
- Worksheets("ROE").Range("B1").Select
- Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Delete
- Next
- End Sub
|
|
發表於 2016-12-1 23:06
| 
