- 帖子
- 22
- 主題
- 8
- 精華
- 0
- 積分
- 30
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 7.0
- 閱讀權限
- 10
- 註冊時間
- 2014-4-6
- 最後登錄
- 2024-3-31
|
取得網頁原始碼的資料
請問一下小弟目前想取得http://www.tdcc.com.tw/smWeb/QryStock.jsp這網站的原始代碼中的<option >後的全部日期
以下是小弟參考資料寫的一段
Dim web, url, webdata
url = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
Set web = CreateObject("Microsoft.XMLHTTP")
web.Open "get", url, False
web.send
webdata = Split(web.responseText, "<option >") <<<<<<<這裡一值顯示錯誤
For j = 0 To UBound(webdata)
ThisWorkbook.Worksheets("工作表1").Cells(j + 1, 1).Value = webdata(j)
Next
End Sub
請問小弟該如何修改才能取得所有日期資料
懇請指導感謝 |
|
發表於 2015-11-8 12:21
| 
