返回列表下一主題上一主題發帖

VBA抓集保資料

tsunamix03

中學生 Rank: 2

帖子: 16
主題: 10
精華: 0
積分: 68
點名: 0
作業系統: win7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2015-2-26
最後登錄: 2021-10-4

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 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