Использование VBA для получения биржевой информации из Интернета

Я пытался написать макрос, который берет финансовую информацию из Интернета и вставляет ее в свой макрос для дальнейшего анализа. Я пытался использовать запрос из одного из моих существующих подключений (котировки акций 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
person Sean Connecticut    schedule 24.06.2013    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Шон, взгляните на VB.NET, а не на VBA — вы обнаружите, что он гораздо более подходит для таких вещей. Что касается хороших библиотек для финансовых данных — посмотрите эту библиотеку:

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

person RutledgePaulV    schedule 24.06.2013