標題: [發問] 請教web資料擷取問題 [打印本頁]

---

作者: gog1211    時間: 2015-2-20 14:46     標題: 請教web資料擷取問題

目的:將鉅亨網上的歷史資料(可以自由選取日期)，以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

---

作者: gog1211    時間: 2015-2-20 14:52

不好意思我在補充一下: 代碼是股票代碼
                                          起始是起始日值:格式為yyyy/mm/dd ex:2012/01/01 (月、日一定要兩位數)
                                          終止是終止日期:格式為yyyy/mm/dd

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)