Question

我正在尝试在VBA excel中制作货币计算器，但我无法使其工作。我的代码显示了我的目标。我的问题是我无法将网页上的计算数字转换为excel（sDD）。此代码仅涉及从DKK到USD，稍后我会更改，但现在问题是将交换金额转换为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

Answer 1

好吧，我很确定您的问题是我在该网站的源代码中找不到“yui_3_18_1_1_1467628123397_410”。

你的错误恢复接下来是非常糟糕的编码并将隐藏此问题。删除它，再次运行它，看看它是否有问题

通过VBA excel进行网页连接

1 个答案: