- 帖子
- 7
- 主題
- 2
- 精華
- 0
- 積分
- 12
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- WIN7
- 閱讀權限
- 10
- 註冊時間
- 2016-9-28
- 最後登錄
- 2017-3-5
|
各位前輩大家好,
我最近開始學VBA有許多問題，可能有很多問題太基本還請各位多多海涵，也請不吝給予建議，謝謝!
以下是目前遇到的問題，我將Web表格匯入A sheet，再將A sheet 中的"股東權益報酬率"複製到B sheet，可是每次大約跑80筆資料後就會卡住，強制停止程式再重新啟動會顯示 .Refresh BackgroundQuery:=False 這一行錯誤，但關掉Excel 再重新開始就可以繼續跑，在論壇中好像有看到類似問題但還是解不出來，還請各位前輩幫忙看我的問題是出在哪，感謝!
For i = 281 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[/code] |
|
發表於 2016-11-28 22:41
| 
