Я загружаю данные Climate XML в Excel 2013. Мне нужно автоматизировать процесс, и я могу сразу перейти к правильной странице, предварительно загруженной с правильными параметрами. Я могу нажать на кнопку ОК, но затем появляется диалоговое окно Internet Explorer - Открыть / Сохранить / Отменить.

Я пробовал различные варианты в Windows 7, чтобы перехватить событие Windows 32770 (??), но я не уверен, как это кодировать. Я просто хочу сохранить файл какc:\temp.xml.

Я не хочу использоватьSendKeys метод как то слишком ненадежный. Кто-нибудь может предложить способ обработки диалога?

Dim htm As Object
Dim IE As Object

Dim Doc As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True

IE.navigate "http://ec.europa.eu/environment/ets/exportEntry.do?form=transaction&destinationAccountHolder=&startDate=01%2F06%2F2009&destinationRegistry=-1&originatingAccountType=-1&endDate=01%2F05%2F2010&transactionID=&suppTransactionType=-1&originatingAccountHolder=&transactionType=-1&languageCode=en&destinationAccountNumber=&destinationAccountType=-1&toCompletionDate=&originatingRegistry=-1&destinationAccountIdentifier=&fromCompletionDate=&originatingAccountIdentifier=&transactionStatus=4&originatingAccountNumber=8&currentSortSettings="

Do While IE.readystate <> 4: DoEvents: Loop

Set Doc = CreateObject("htmlfile")
Set Doc = IE.document

Doc.getelementbyID("btnOK").Click

Set IE = Nothing