VBA EXCEL 代码：当前股票价格

Question

我是编码和编程的新手，如果您在创建我的第一个真正的代码时给我任何建议，我将不胜感激。

我想要它做的是询问用户股票的代码名称是什么，一旦输入，一个消息框应该显示股票的当前价格。

我知道提取当前股价的公式。 例如：要查找 Netflix 的当前值，您只需在电子表格中将“NFLX”放入单元格（A1）并在单元格（A2）中放入以下公式： =NUMBERVALUE(WEBSERVICE("http://finance.yahoo.com/d/quotes.csv?s="&A1&"&f=l1"))

昨天在学习如何在 VBA 中定义变量时，我试图尝试这个概念，并想出了以下显然不起作用的代码：-

Sub Declaring_Variables()

    Dim TickerName As String

    TickerName = InputBox("Ticker Symbol")

    Dim CurrentPrice As Integer

    CurrentPrice = Formula ="=NUMBERVALUE(WEBSERVICE("finance.yahoo.com/d/quotes.csv?s="&TickerName&"&f=l1"))

    MsgBox (CurrentPrice)
End Sub

我确定问题出在我声明 CurrentPrice 公式的方式上。如果您能教我如何使用我们在 VBA 电子表格中使用的普通公式，我将不胜感激。我认为这将是我变得更好的一个很好的例子，因为它涵盖了一个非常重要的概念。

感谢您的宝贵时间。

问候， 在伍兹

Answer 1

试试这个：

Option Explicit

Sub Declaring_Variables()

    Dim TickerName As String

    TickerName = InputBox("Ticker Symbol")

    Dim CurrentPrice As String

    CurrentPrice = Application.WebService("finance.yahoo.com/d/quotes.csv?s=" & TickerName & "&f=l1")

    MsgBox "Text Format: " & CurrentPrice & Chr(10) & _
        "Number Format: " & Application.NumberValue(CurrentPrice)
End Sub