我想用VBA抓取http://www.cninfo.com.cn/information/companyinfo.html上面的資料，
想抓取 投資者關系資訊->調研活動 下面每一條新聞的標題內的日期以及新聞發布的日期
uj5u.com熱心網友回復：
頂一下~~~~~~~~~~~~~uj5u.com熱心網友回復：
http://club.excelhome.net/thread-893760-1-1.htmluj5u.com熱心網友回復：
版主大大，我按照那個教程試著做了一下，但是不能post提交上去不知道怎么做啊，初學不懂啊。。。
Sub test()
Dim strRespText$, tt$, i&, DW$
Dim URL
URL = "http://www.cninfo.com.cn/information/companyinfo.html"
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", URL, False
.send
tt = .responseText
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText tt
.PutInClipboard
End With
'tt = BytesToBstr(.ResponseBody, "GB2312")
'tt = StrConv(.ResponseBody, vbUnicode，&H804)
tt = StrConv(.ResponseBody, vbUnicode)
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText tt
.PutInClipboard
End With
End With
viewstate = Split(Split(tt, "hlmname"" value=""")(1), """")(0)
eventvalidation = Split(Split(tt, "hstockcode"" value=""")(1), """")(0)
'MsgBox (viewstate)
Dim Leibie
Leibie = "tzzgxxx"
Dim code
code = "000001"
With CreateObject("WinHttp.WinHttpRequest.5.1")
tt = ""
.Open "POST", URL, False
.setRequestHeader "Referer", URL
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
.setRequestHeader "Connection", "Keep-Alive"
.send "hlmname=" & Leibie & "&hstockcode=" & code
tt = .responseText
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText tt
.PutInClipboard
End With
End With
viewstate = Split(Split(tt, "hlmname"" value=""")(1), """")(0)
eventvalidation = Split(Split(tt, "hstockcode"" value=""")(1), """")(0)
MsgBox (viewstate)
End Sub
uj5u.com熱心網友回復：
能幫我看看這個code么？
Sub test()
Dim strRespText$, tt$, i&, DW$
Dim URL
URL = "http://www.cninfo.com.cn/information/companyinfo.html"
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", URL, False
.send
tt = .responseText
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText tt
.PutInClipboard
End With
'tt = BytesToBstr(.ResponseBody, "GB2312")
'tt = StrConv(.ResponseBody, vbUnicode，&H804)
tt = StrConv(.ResponseBody, vbUnicode)
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText tt
.PutInClipboard
End With
End With
viewstate = Split(Split(tt, "hlmname"" value=""")(1), """")(0)
eventvalidation = Split(Split(tt, "hstockcode"" value=""")(1), """")(0)
'MsgBox (viewstate)
Dim Leibie
Leibie = "tzzgxxx"
Dim code
code = "000001"
With CreateObject("WinHttp.WinHttpRequest.5.1")
tt = ""
.Open "POST", URL, False
.setRequestHeader "Referer", URL
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
.setRequestHeader "Connection", "Keep-Alive"
.send "hlmname=" & Leibie & "&hstockcode=" & code
tt = .responseText
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText tt
.PutInClipboard
End With
End With
viewstate = Split(Split(tt, "hlmname"" value=""")(1), """")(0)
eventvalidation = Split(Split(tt, "hstockcode"" value=""")(1), """")(0)
MsgBox (viewstate)
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/115380.html
標籤：網絡編程
上一篇：txt匯入ACCESS