- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office 2010
- 閱讀權限
- 10
- 性別
- 女
- 註冊時間
- 2014-6-29
- 最後登錄
- 2014-7-2
|
請教各位高手，我想要把台股的一些基本資料抓下來，做了以下的巨集，但不知道為什麼怎麼跑都只能跑15個
超過就會顯示"沒有回應"而要強制關掉excel (有一次曾經能跑到40個)
爬了之前的文章發現儲存在活頁簿裡面的連線很多
把連線都刪除後再加入
Cells.Hyperlinks.Delete
.Delete
確實連線也沒有再增加了，但是還是只能跑15個(哭)
而且我的excel用掉了180MB的記憶體(這有關係嗎?)
懇請幫我解惑 因為目前還是個新手
若有提供範例程式碼可以大概寫一下要加在程式中的哪一段
以及大概的用途嗎
感激不盡 謝謝!
我的程式碼如下：
Sub 巨集更新基本資料2()
a = Sheets("總表").Range("B1")
b = Sheets("總表").Range("C1")
For i = a To b
s = Sheets("總表").Range("B" & i)
Sheets("基本").Select
Cells.Select
Selection.Delete Shift:=xlUp
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://justdata.yuanta.com.tw/z/zc/zca/zca_" & s & ".asp.htm", Destination:= _
Range("$A$1"))
.Name = "zca_" & s & ".asp"
.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 = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
.Refresh BackgroundQuery:=False
Cells.Hyperlinks.Delete
.Delete
End With
Sheets("基本").Select
Range("C10").Select
Selection.Copy
Sheets("總表").Select
Range("R" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
Next
End Sub |
|
發表於 2014-6-29 23:01
| 
