|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
请参考
Sub 查询最新汇率()
Dim SURL$
Dim oHttp, tt$
DoEvents
' SURL = "https://www.xe.com/currencyconverter/convert/?Amount=1&From=" & Cells(1, 1).Value & "&To=" & Cells(1, 2).Value
SURL = "https://exchangerate.guru/cny/usd/1/" '& Cells(1, 1).Value & "&To=" & Cells(1, 2).Value
' SURL = "https://www.x-rates.com/average/?from=USD&to=CNY&amount=1&year=2019" '& Cells(1, 1).Value & "&To=" & Cells(1, 2).Value
' SURL = "https://www.x-rates.com/table/?from=CNY&amount=1" '& Cells(1, 1).Value & "&To=" & Cells(1, 2).Value
Set oHttp = CreateObject("MSXML2.XMLHTTP")
With oHttp
.Open "GET", SURL, False
.send
tt = .responseText
End With
Debug.Print tt
Cells(1, 3) = Split(Split(tt, "value=""")(2), """")(0)
End Sub
|
评分
-
4
查看全部评分
-
|