Как я могу автоматизировать диалоговое окно загрузки в IE с помощью VBA?

Я совершенно новый здесь и использую VBA всего около 6 месяцев. Излишне говорить, что сообщения на форуме здесь и в нескольких других местах очень помогли мне до сих пор.

Я пытаюсь разработать скрипт для получения данных от Morningstar и копирования их в Excel (обратите внимание, что это для моего личного некоммерческого использования). Я уверен, что могу кодировать большую часть необходимого VBA, но застрял на автоматизации выбора «сохранить», когда появляется диалоговое окно загрузки IE. Я видел несколько связанных сообщений, но пока ничего не смог перепроектировать, и любая помощь будет очень признательна!

Мой код для этой части пока выглядит следующим образом:

Sub Download_Morningstar_Data()
'
'  Download Morningstar Data
'

    my_Page = "http://financials.morningstar.com/balance-sheet/bs.html?t=SCCO&region=usa&culture=en-US"
    Set IE = CreateObject("InternetExplorer.Application")

    With IE
        .Visible = True
        .Navigate my_Page
        Do Until .ReadyState = 4: DoEvents: Loop
    End With

   Application.EnableEvents = True
   IE.ExecWB 17, 0
   Do Until IE.ReadyState = 4: DoEvents: Loop
   IE.ExecWB 12, 2

' click the "export" button
   IE.Document.parentWindow.execScript "SRT_stocFund.Export()"

И тут я застрял...

Обратите внимание, что я использую Windows 7, Excel 2010 и IE11.

Заранее спасибо!


person yousey88    schedule 21.02.2015    source источник


Ответы (1)


использовать

Workbooks.Open ("http://financials.morningstar.com/ajax/ReportProcess4CSV.html?&t=XNYS:SCCO®ion=usa&culture=en-US&cur=&reportType=bs&period=12&dataType=A&order=asc&columnYear=5&curYearPart=1st5year&rounding=3&view=raw&r=404338&denominatorView=raw&number=3")

Внимательно посмотрите на URL-адрес, и вы сможете изменить почти все настройки в URL-адресе.

Загляните за страницу Morningstar в режиме отладки IE или Chrome, и вы легко узнаете, какой URL-адрес (использованный здесь) создал файл CSV.

введите здесь описание изображения

person cyboashu    schedule 21.02.2015