0

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

1 回答 1

0

肖恩，看看 VB.NET 而不是 VBA - 你会发现它更有利于这样的事情。至于好的财务数据库 - 看看这个库：

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

于 2013-06-24T19:10:18.583 回答