VBA模拟提交查询到他人网站，获得结果数据后写到一个Excel表中

[code]

 

Dim db As String
db = "D:/jason-files/GEOdata.mdb"

 

 

 

Dim IE As New InternetExplorer

 

Dim htmldoc As HTMLDocument
Dim rrr As HTMLTableRow

 

IE.Navigate2 "http://www.ip.cn/"

 

IE.Visible = True

 

n = 1
Dim conn As New ADODB.Connection, connstr As String, rs As New ADODB.Recordset

 

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
conn.Open connstr

 

rs.Open "select * from ips where city is null ", conn, 1, 3
While Not rs.EOF
waitLoading IE
Set htmldoc = IE.Document

 

htmldoc.getElementById("q").Value = rs("startip")
'MsgBox htmldoc.getElementsByTagName("Input").Item(1).onclick
htmldoc.getElementsByTagName("Input").Item(1).Click
waitLoading IE
wait 3
Set htmldoc = IE.Document
 Cells(n, 1) = htmldoc.getElementById("queryIp").innerText
n = n + 1

 

rs.MoveNext

 

Wend

 

rs.Close
conn.Close

 

 

[/code]