如果获得实时汇率

cjnt007

要有实时汇率的数据源，比如某个网站的网页上有的话，可以用VBA代码获取。
我提供一个查询IP地址所属地的代码给你参考下：

1. Function getIP(IP As String) As String
   
2. On Error GoTo getIP_err
   
3.     Set ie = CreateObject("internetexplorer.application")
   
4.     ie.navigate "http://www.ip138.com/ips.asp?ip=" & IP
   
5.     Do While ie.busy Or ie.readystate <> 4
   
6.     Loop
   
7.    
   
8.     Dim li As Object
   
9.     Set li = ie.Document.getElementsByTagName("li")
   
10.     i = li.length - 1
    
11.     For j = 0 To i
    
12.         getIP = getIP & li(j).innerText & vbCrLf
    
13.     Next j
    
14. 
    
15. getIP_Exit:
    
16.     ie.Quit
    
17.     Set ie = Nothing
    
18.     Exit Function
    
19. 
    
20. getIP_err:
    
21.     If getIP = "" Then
    
22.         getIP = "很遗憾没有查询到此IP！"
    
23.     End If
    
24.     Err.Clear
    
25.     Resume getIP_Exit
    
26. End Function

复制代码