通過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的網頁連接

回答

相關問題