EXCEL查询IP地址所属地的功能，急等高手回答！！！！！

这个要地址库吧

地址库然后vlookup

百度有。。。

这是我粘贴的代码和我的数据，要么报错，要么就是点击工作区没有任何反应，求高手再给指点一下，跪谢啦！

刚刚修改了下函数名字，成功了，结果放在正式的表格里又不运行了，刚刚可以运行的表格也不运行了，高手帮忙再看下好不，多谢了！

@坑你爹呀4

但是我用这套语句确实是计算出了结果了，但是我粘贴到其他的表格中就不行了，再粘贴一些到这个算出来的表格里也不行了，不知道怎么回事，急死！

Function GetIpAdder(ByVal szIPID As String)
Dim html As String, t
With CreateObject("msxml2.xmlhttp")
.Open "GET", "http://www.ip138.com/ips138.asp?ip=" & szIPID & "&action=2", False
.send
If .Status = 200 Then
html = StrConv(.responsebody, vbUnicode)
If InStr(html, "本站主数据") > 0 Then
t = Mid(html, InStr(html, "本站主数据") + Len("本站主数据") + 1, 99)
t = Left(t, InStr(t, "</li>") - 1)
GetIpAdder = t
Else
GetIpAdder = "无效"
End If
End If
End With
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s As String, m
On Error Resume Next
With CreateObject("msxml2.xmlhttp")
For m = 1 To [a65536].End(xlUp).Row
DoEvents
.Open "GET", "http://www.ip138.com/ips138.asp?ip=" & Cells(m, 1) & "&action=2", False
.send
s = StrConv(.responsebody, vbUnicode)
Cells(m, 2) = Split(Split(s, "本站主数据：")(1), "</li>")(0)
Next
End With
End Sub

对我来说简单的一笔 。真心话。简单思路 不停导入百度，出来的页面不停地采集地址。