如果获得实时汇率

yqi

各位大虾们,
请教一下, 如何在窗体上显示当前的汇率.

这个问题实把我难坏了. 请教高手们, 能不能指点一下.

万分感谢.

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

复制代码

tmtony

Set Oie = CreateObject("InternetExplorer.Application")
    Oie.Visible = True
    strTemp = "http://www.safe.gov.cn/model_safe/search/rmb.jsp?sdate=" & Format(strDate, "YYYY-MM-DD")

    strAddress = strTemp
    Oie.Navigate (strAddress)
   
使用上面的代码 来取相关资料，取回来后自己分析

yanghua1900363

Private Sub ComOpen_Click()
Dim oie As object
Set oie = CreateObject("InternetExplorer.Application")
    oie.Visible = True
    strTemp = "http://www.safe.gov.cn/model_safe/search/rmb.jsp?sdate=" & Format(strDate, "YYYY-MM-DD")

    strAddress = strTemp
    oie.Navigate (strAddress)


End Sub

tmtony 老师 ：红色字体部分 是我加上去的，单击“comopen”后提示“strDate”没有定义，请问怎么做才好？