使用VBA从Web上获取股票信息

我一直在尝试编写一个宏，从互联网上获取金融信息，并将其粘贴到我的宏中进行进一步分析。我一直在尝试使用来自我现有连接之一（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

---

肖恩，看看VB.NET和VBA的不同之处——你会发现它对这样的事情更有帮助。关于良好的金融数据库，请查看此库：