通过VBA excel的网页连接

-1

我想在VBA excel中做一个货币计算器，但是我无法让它工作。我的代码显示我有多远。我的问题是我无法将网页上的计算数字转换为Excel（sDD）。此代码仅涉及从DKK到USD，我稍后会更改，但现在问题是将交易金额存入Excel。希望你能帮助！通过VBA excel的网页连接

代码：

Sub currency_1() 
    Dim Price As Double 
    Dim IE As New InternetExplorer 
    Price = Range("C4") 
    IE.Visible = True 
IE.Navigate "https://finance.yahoo.com/currency-converter/#from=DKK;to=USD;amt=" & Price 

Do 

    DoEvents 

Loop Until IE.ReadyState = READYSTATE_COMPLETE 

Dim Doc As HTMLDocument 


Set Doc = IE.Document 

On Error Resume Next 

Dim sDD As Double 

sDD = Doc.getElementById("yui_3_18_1_1_1467628123397_410").Value 

IE.Quit 

Range("E4").Value = sDD 

End Sub

来源

2016-07-04 N. G

我不确定这是否仍然在这个时代，但是在很长一段时间里，我使用了MsXml active X控件。通常版本3或版本6.您可能可以下载该页面的文本（而不是Xml），但您最好尝试连接到Web服务。 –

我不熟悉你的方式，但我从雅虎提取了很多次，我认为这个链接将帮助你：[link]（http://access-excel.tips/get-foreign-exchange-rate-excel-vba /） –

好吧，我敢肯定你的问题是我无法找到该网站的源代码中的“yui_3_18_1_1_1467628123397_410”。

您的错误继续下一个是非常糟糕的编码，并会隐藏这个问题。删除它，再次运行，看看它是否出错

来源

2016-07-04 12:48:18

通过VBA excel的网页连接

回答

相关问题