Office中国论坛/Access中国论坛

标题: 如果获得实时汇率 [打印本页]

作者: yqi 时间: 2011-9-14 09:25
标题: 如果获得实时汇率
各位大虾们,
请教一下, 如何在窗体上显示当前的汇率.

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

万分感谢.

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

Function getIP(IP As String) As String
On Error GoTo getIP_err
Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://www.ip138.com/ips.asp?ip=" & IP
Do While ie.busy Or ie.readystate <> 4
Loop
Dim li As Object
Set li = ie.Document.getElementsByTagName("li")
i = li.length - 1
For j = 0 To i
getIP = getIP & li(j).innerText & vbCrLf
Next j
getIP_Exit:
ie.Quit
Set ie = Nothing
Exit Function
getIP_err:
If getIP = "" Then
getIP = "很遗憾没有查询到此IP！"
End If
Err.Clear
Resume getIP_Exit
End Function

复制代码

作者: tmtony 时间: 2011-9-14 16:11
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 时间: 2011-9-15 11:33
本帖最后由 yanghua1900363 于 2011-9-15 11:36 编辑

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”没有定义，请问怎么做才好？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)