' ' 根据IP地址获取所在国家地址及运营商 ' ' Sub GetIPArea() Dim s As String, m Dim ipCol, areaCol As Integer '定义Excel表中IP所在列号、将要填写国家地区的列号 ipCol = 2 areaCol = 3 With CreateObject("msxml2.xmlhttp") For m = 2 To [b65536].End(xlUp).Row DoEvents .Open "GET", "http://www.ip138.com/ips138.asp?ip=" & Cells(m, ipCol) & "&action=2", False .send s = StrConv(.responsebody, vbUnicode) Cells(m, areaCol) = Split(Split(s, "本站数据:")(1), "</li>")(0) Cells(m, areaCol + 1) = Split(Split(s, "参考数据1:")(1), "</li>")(0) Next End With End Sub