我想要一个VBA代码在XE货币转换器网站上转换货币并给我结果。我没有得到如何从列表中选择一种货币。下面是我的代码：
Dim ie As InternetExplorer
Dim html As HTMLDocument
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate "http://www.xe.com/currencyconverter/"
Do While ie.readyState <> READYSTATE_COMPLETE
Application.StatusBar = "loading web page...."
DoEvents
Loop
Set html = ie.document
Dim drp As HTMLFormElement
html.getElementById("amount").Value = 100
'html.getElementById("from").Value = "Euro"
Set drp = html.getElementById("from_sc")
drp.Click
试一试，让我知道我是否错过任何事情。根据需要更改包含GBP - British Pound或的字段EUR - Euro。
Sub Get_Result()
Dim IE As New InternetExplorer, html As HTMLDocument
Dim post As Object, elem As Object
With IE
.Visible = True
.navigate "http://www.xe.com/currencyconverter/"
Do Until .readyState = READYSTATE_COMPLETE: Loop
Set html = .document
End With
html.getElementById("amount").Value = 100
html.getElementById("from_sc").Click
For Each post In html.getElementsByClassName("ac_odd ac_recent")
If InStr(post.innerText, "EUR - Euro") > 0 Then post.Click: Exit For
Next post
html.getElementById("to_sc").Click
For Each elem In html.getElementById("to_scroller").getElementsByClassName("ac_even ac_recent")
If InStr(elem.innerText, "GBP - British Pound") > 0 Then elem.Click: Exit For
Next elem
html.getElementById("ucc_go_btn_svg").Click
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句