018-优化“获得外网IP”-疑难千寻千解丛书（VBA）

小妖

ET疑难千寻千解丛书之EXCEL2010编程与实践

罗刚君 章兰新 黄朝阳 编著

疑难18
如何优化过程“获取外网IP地址”

以下代码可以获取本机的外网地址，如何对其简化、提速？

1. 
   
2. Sub 查询外网IP()
   
3.   Dim xmlhttp As Object, strURL As String, i As Integer, j As Integer, IPStr
   
4.   As String
   
5.   '指定网址，该网具有获取IP的功能，本程序通过读取网页的数据来获取IP地址
   
6.   strURL = "http://www.ip138.com/ip2city.asp"
   
7.   Set xmlhttp = CreateObject("Microsoft.XMLHTTP")  
   
8.   '利用XMLHTTP对象获取网页数据
   
9.   xmlhttp.Open "GET", strURL, False  '打开网页
   
10.   xmlhttp.send    '获取信息
    
11.   IPStr = xmlhttp.responsetext  '取得包括IP地址的网页代码
    
12.   '[a1] = IPStr
    
13.   If xmlhttp.Status = 200 Then
    
14.     i = InStr(IPStr, "[")  '对
    
15.     j = InStr(IPStr, "]")
    
16.     [a1] = Mid$(IPStr, i + 1, j - i - 1)
    
17.   Else
    
18.     [a1] = xmlhttp.Status & IPStr
    
19.   End If
    
20.   Set xmlhttp = Nothing
    
21. End Sub
    

复制代码

è解决方案

以上过程中有过多的仅用一次的变量，可以进行简化。同时对字符中提取字符的算法过于繁杂，可以改用数组函数Split来取字符串。

í操作方法

步骤1
通过删除变量，以及借用Split代替Mid$取字符串，完整代码如下：

1. 
   
2. Sub 查询外网IP2() '减少变量，改用 Split来取字符，从而简化代码，也可以提速
   
3.   With CreateObject("Microsoft.XMLHTTP")
   
4.     .Open "GET", "http://www.ip138.com/ip2city.asp", False
   
5.     .send
   
6.     If .Status = 200 Then
   
7.       '利用Split提取[之后的字符，再用Split取]之前的字符
   
8.       [a1] = Split(Split(.responsetext, "["](1), ")")(0)
   
9.     Else
   
10.       [a1] = .Status & .StatusText
    
11.     End If
    
12.   End With
    
13. End Sub
    

复制代码

步骤2
分别执行两段代码，可以获取本机外网IP地址。但第二个过程在书写和执行速度上均占优势。

=============================

以上摘自《EXCEL2010编程与实践》

小妖

V白妖选择性忽略妖言

hhzjxss

辛苦了，妖！

lisachen

太复杂了 收藏慢慢学

UNA123

{:011:}{:011:}{:011:}{:011:}