- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
回復 20# c_c_lai
可以稍微參考這帖 : http://forum.twbts.com/viewthread.php?tid=15544- Sub Test()
- Dim xTable As Object, k As Integer, C As Integer, R As Integer ' , sn As Integer
- Dim url As String, cts As Integer, E As Variant, xDate As String ' , rc As Integer
- Dim oXmlhttp As Object, oHtmldoc As Object, select2 As String ' , tm
- Dim TVal() As Variant
- If Select_Name = -1 Then Exit Sub
- TVal = Array("MS", "ALL", "0049", "0099P", "019919T", "0999", "0999P", "01", "02", "03", _
- "04", "05", "06", "07", "21", "22", "08", "09", "10", _
- "11", "12", "13", "24", "25", "26", "27", "28", "29", _
- "30", "31", "14", "15", "16", "17", "18", "23", "9299", "19", "20", "CB")
- url = "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php"
- xDate = Format(Sheets("總表").[B1], "EE/MM/DD")
- sPost = "qdate=" & Replace(xDate, "/", "%2F") & "&selectType=" & TVal(Select_Name) 'urlencode
- Set oXmlhttp = CreateObject("msxml2.xmlhttp")
- Set oHtmldoc = CreateObject("htmlfile")
- With oXmlhttp
- .Open "Post", url, False
- '.setRequestHeader "Connection", "Keep-Alive" '短時間內多次查詢建議可加這行
- .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
- .setRequestHeader "Content-Length", Len(sPost)
- .Send sPost
- '上面 Open 參數用False(=同步)，可以不用再判斷status
- 'Do While .Status <> 200 Or .readyState <> 4: DoEvents: Loop
- oHtmldoc.write .responseText
- 'MsgBox .responseText
- End With
- Set xTable = oHtmldoc.ALL.tags("TABLE")
- ' Stop
- ' 看看區域變數視窗 xTable 的內容
- Set xTable = oHtmldoc.ALL.tags("TABLE")(0)
- ' Stop
- ' 再次看看區域變數視窗 xTable 的內容
- MsgBox xTable.INNERTEXT
- End Sub
|
|
發表於 2016-6-13 16:16
| 