VBA EXCEL代码: Current Stock Price

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