標題: VBA抓集保資料 [打印本頁]

---

作者: tsunamix03    時間: 2017-4-15 22:22     標題: VBA抓集保資料

本帖最後由 tsunamix03 於 2017-4-15 22:23 編輯

各位大大好
請教一下我用VBA抓集保庫存
例如抓2330台積電
並用對話框顯示抓到的資料
但對話框跳出來卻看不到股權分散表
只有程式作者、程式日期、表單編號等資料
是不是我哪個地方搞錯了
請高手指點一下
感恩
程式如下

Sub 按鈕1_Click()
    'Application.ScreenUpdating = False ' 關閉螢幕更新，加快速度。
    Dim path As String, thePOSTdata, URL

    Dim StockNo As Integer

    StockNo = 2330     '抓2330台積電
    d = 20160401         '集保庫存資料日期
    URL = "https://www.tdcc.com.tw/smWeb/QryStock.jsp"

                Set XML = CreateObject("Microsoft.XMLHTTP")
                Set Stream = CreateObject("ADODB.stream")
               
               
                thePOSTdata = "SCA_DATE=" & d & "SqlMethod=StockNo&StockNo=" & StockNo
                XML.Open "POST", URL, 0
                XML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
                XML.send thePOSTdata
        
                With Stream            
                    .Type = 1
                    .Mode = 3
                    .Open
                    .Write XML.responseBody
                    .Position = 0
                    .Type = 2
                    .Charset = "Big5"
                    ByteToText = .ReadText
                    MsgBox ByteToText
                End With
End Sub

---

作者: tsunamix03    時間: 2017-4-16 22:10

回復 1# tsunamix03


    補充附檔   謝謝

[attach]27038[/attach]

---

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