請問一下代碼錯誤在哪？
Sub getStockData()
Dim xmlhttp As Object
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "POST", "http://sc.hkexnews.hk/gb/www.hkexnews.hk/sdw/search/search_sdw_c.asp", False
xmlhttp.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
StrUrl = "txt_today_d=25&txt_today_m=2&txt_today_y=2016¤t_page=1&stock_market=HKEX&IsExist_Slt_Stock_Id=01165&IsExist_Slt_Part_Id=False&rdo_SelectSortBy=Shareholding&sel_ShareholdingDate_d=26&sel_ShareholdingDate_m=02&sel_ShareholdingDate_y=2016&sessionToken=2562.449&txt_stock_code=00179"
xmlhttp.send StrUrl
Do Until xmlhttp.readyState = 4
DoEvents
Loop
If xmlhttp.Status = 200 Then
getpage = xmlhttp.responseText
If InStr(getpage, "charset=""gb") Or InStr(getpage, "charset=gb") Then getpage = StrConv(xmlhttp.responseBody, vbUnicode)
Debug.Print getpage
End If
Set xmlhttp = Nothing
End Sub
uj5u.com熱心網友回復：
前2天恰好看到，改成winhttp試試....uj5u.com熱心網友回復：
還是不行，可能是字串無法正確傳遞StrUrl = "sel_ShareholdingDate_d=25&sel_ShareholdingDate_m=02&sel_ShareholdingDate_y=2016&txt_stock_code=01165&txt_stock_name=" & "" & "txt_ParticipantID=" & "" & "txt_Participant_name=" & ""
請高手幫忙親手試試，謝謝！
uj5u.com熱心網友回復：
原來是被加密了uj5u.com熱心網友回復：
有沒有解決方法？uj5u.com熱心網友回復：
引數錯了吧？人家表單明明有name="txt_stock_name"，而你表單引數里根本不含txt_stock_name啊
uj5u.com熱心網友回復：
能解決的嗎？我都在找方法。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/79560.html
標籤：VBA
上一篇：win95下vb開發安裝odbc