使用VBA从Web获取股票信息

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

与我的代码（下面）我已经能够使查询弹出，但我不知道该怎么办是输入任何东西到弹出的框中。我基本上在寻找的是如何（在我下面列出的代码之后）告诉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

来源

2013-06-24 Sean Connecticut

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

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

来源

2013-06-24 19:10:18 RutledgePaulV

使用VBA从Web获取股票信息

回答

相关问题