|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
请参考
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
查看全部评分
-
|