使用 VBA 从 Web 获取股票信息答案

【问题标题】：Using VBA to Grab Stock Info from the Web使用 VBA 从 Web 获取股票信息
【发布时间】：2013-06-25 03:10:18
【问题描述】：

我一直在尝试编写一个宏，它可以从互联网上获取财务信息并将其粘贴到我的宏中以供进一步分析。我一直在尝试使用来自我现有连接之一的查询（MSN 股票报价）。

使用我的代码（如下），我已经能够弹出查询，但我不知道如何在弹出的框中输入任何内容。我基本上在寻找的是如何（在我在下面列出的代码之后）告诉 excel 在弹出的框中输入某些值并单击“确定”以运行查询。

下面是我的代码，它启动了询问代码的查询框

With ActiveSheet.QueryTables.Add(Connection:= _
    "FINDER;C:\Program Files\Microsoft Office\Office12\QUERIES\MSN MoneyCentral Investor Stock Quotes.iqy" _
    , Destination:=Range("$A$1"))
    .Name = "MSN MoneyCentral Investor Stock Quotes"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = False
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingAll
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = True
    .Refresh BackgroundQuery:=False
End With

【问题讨论】：

标签： vba stockquotes

【解决方案1】：

Sean，看看 VB.NET 与 VBA 的对比——你会发现它更有利于这样的事情。至于好的财务数据库 - 看看这个库：

https://code.google.com/p/yahoo-finance-managed/

【讨论】：