取得網頁原始碼的資料

請問一下小弟目前想取得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

請問小弟該如何修改才能取得所有日期資料
懇請指導感謝

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2015-11-8 21:24 | 只看該作者

Sub 取出日期清單()
Dim XML, URL$, TT
[A:A].ClearContents
URL = "http://www.tdcc.com.tw/smWeb/QryStock.jsp" & "?" & Rnd
Set XML = CreateObject("Microsoft.XMLHTTP")
XML.Open "post", URL, False
XML.send
If XML.Status = 200 Then
　With CreateObject("ADODB.Stream")
　　　　.Open
　　　　.Type = 1
　　　　.Write XML.ResponseBody
　　　　.Position = 0
　　　　.Type = 2
　　　　.Charset = "BIG5"
　　　　TT = .ReadText
　　　　.Close
　End With
　TT = Replace(TT, "</option><option >", "_")
　TT = Split(TT, "</option>")(0)
　TT = Split(TT, "<option >")(1)
　TT = Split(TT, "_")
　[A1].Resize(UBound(TT) + 1) = Application.Transpose(TT)
End If
Set XML = Nothing
End Sub

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

3^#

發表於 2015-11-8 21:28 | 只看該作者

查詢時另存csv檔　

Sub 保戶股權分散表查詢()
Dim XML, URL$, TT, vDate, vNo, vFile$, X, PP$
vDate = [F1]: vNo = [F2]: vFile = vNo & "_" & vDate & ".csv"
URL = "http://www.tdcc.com.tw/smWeb/QryStock.jsp?SCA_DATE=" & vDate & _
　　　"&SqlMethod=StockNo&StockNo=" & vNo & "&StockName=&sub=%ACd%B8%DF"
Set XML = CreateObject("Microsoft.XMLHTTP")
XML.Open "post", URL, False
XML.send
If XML.Status = 200 Then
　With CreateObject("ADODB.Stream")
　　　　.Open
　　　　.Type = 1
　　　　.Write XML.ResponseBody

　　　　.Position = 0
　　　　.Type = 2
　　　　.Charset = "BIG5"
　　　　TT = .ReadText
　　　　.Close

　　　　PP = "<table cellspacing=0 cellpadding=0 width=""100%"" border=0>"
　　　　X = Split(TT, PP)
　　　　If UBound(X) < 3 Then Exit Sub
　　　　TT = Replace(X(3) & PP & X(4), "集保戶股權分散表", "")
　
　　　　.Open
　　　　.Writetext TT
　　　　.SaveToFile ThisWorkbook.Path & "\" & vFile, 2
　　　　.Close
　　　　Beep
　End With
End If
Set XML = Nothing
End Sub

附件下載：　

20151108-01(保戶股權分散表查詢).rar (10.47 KB)

只能提供如上範例，其它請自行套用～～

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

4^#

發表於 2015-11-9 10:03 | 只看該作者

這裡有超板的解法，參考：
http://forum.twbts.com/thread-15067-1-7.html

TOP

pideo

小學生 Rank: 1

帖子: 22
主題: 8
精華: 0
積分: 30
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 10
註冊時間: 2014-4-6
最後登錄: 2024-3-31

5^#

發表於 2015-11-9 20:47 | 只看該作者

真是太感謝大大
小弟學到不少東西
上面的基本上都了解
不過有個小問題想請教一下
URL = "http://www.tdcc.com.tw/smWeb/QryStock.jsp" & "?" & Rnd
這段中的 "?"與Rnd是有什麼作用嗎?
Rnd傳回一段隨機值的功能是?
小弟測試了一下不加好像結果也是一樣沒有影響
可以請大大指導一下嗎
感恩

TOP

准提部林