- 帖子
- 6
- 主題
- 2
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- EXCEL2007
- 閱讀權限
- 10
- 註冊時間
- 2015-2-20
- 最後登錄
- 2021-4-2
|
目的:將鉅亨網上的歷史資料(可以自由選取日期)，以vba程式自動匯入excel內
問題:程式執行後，並非每次都會成功抓取資料，有時成功，有時失敗，
下列說明，是我的程式部分，麻煩各位幫忙解惑，小弟感激不盡!!
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
我是用錄製巨集下去寫的，然後把他複製到按鈕(CommandButton1)裡面
代碼、日期的部分我分別用代碼=cells(1,3)、起始=Cells(2, 3) 、終止=Cells(3, 3)>>>>這個部分也試過以TextBox1、TextBox2、TextBox3當作輸入
接著運行後第一次通常都資料抓取都OK， 然後就都異常了，但有時候還是會忽然又成功一次
Private Sub CommandButton1_Click()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.cnyes.com/twstock/ps_historyprice.aspx?code=" & cells(1,3) & "&ctl00$ContentPlaceHolder1$startText=" & Cells(2, 3) & "&ctl00$ContentPlaceHolder1$endText=" & Cells(3, 3) _
, Destination:=Range("$A$10"))
.Name = "16_24"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With |
|
發表於 2015-2-20 14:46
| 
