- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
[發問] 網站透過QueryTable下載的日期問題
各位大大好,小弟想透過VBA 的QueryTable 下載鉅亨網的股票資訊
網址如下:
https://www.cnyes.com/twstock/ps_historyprice/2327.htm
遇到的問題如下:
無法用程式碼控制起始日期.postText送出的資訊,無法正確查詢到我所指定的日期
但網站實際上是可以控制起始日期的
想請問各位大大要如何修改程式碼?
下載到(DL分頁)的程式碼如下:- Sub test1()
- Dim QT As QueryTable
- Dim WebAddress As String
- WebAddress = "http://www.cnyes.com/twstock/ps_historyprice/2327.htm"
- With ThisWorkbook.Worksheets("DL")
- .Cells.Clear
- Set QT = .QueryTables.Add("URL;" & WebAddress, .Range("$A$1"))
- End With
- With QT
- .PostText = "ctl00$ContentPlaceHolder1$startText=" & " 2019/01/01" & "&ctl00$ContentPlaceHolder1$endText=" & " 2020/03/06"
- .WebTables = "1"
- .Refresh False
- .Delete
- End With
- End Sub
|
|
發表於 2020-3-7 21:07
| 
