Добрый день!
[vba]Код
' Вариант 1
Private Sub Download1()
InetFile = "http://zakupki.gov.ru/epz/order/orderCsvSettings/extendedSearch/download.html?placeOfSearch=FZ_44&placeOfSearch=FZ_223&orderPriceFrom=&orderPriceTo=&orderPriceCurrencyId=-1&deliveryAddress=&participantName=&orderPublishDateFrom=31.03.2015&orderPublishDateTo=&orderUpdateDateFrom=&orderUpdateDateTo=&customer.title=&customer.code=&customer.fz94id=&customer.fz223id=&customer.inn=&agency.title=&agency.code=&agency.fz94id=&agency.fz223id=&agency.inn=&orderStages=AF&orderStages=CA&searchTextInAttachedFile=&applSubmissionCloseDateFrom=&applSubmissionCloseDateTo=&searchString=??????&morphology=false&strictEqual=false&quickSearch=false&userId=null&conf=true;true;true;true;true;true;true;true;true;true;true;true;true;true;true;true;true;"
With CreateObject("InternetExplorer.Application")
.Navigate InetFile
Do While .ReadyState = 1
DoEvents
Loop
.Quit
End With
End Sub
' Вариант 2
Private Sub Download2()
InetFile = "http://zakupki.gov.ru/epz/order/orderCsvSettings/extendedSearch/download.html?placeOfSearch=FZ_44&placeOfSearch=FZ_223&orderPriceFrom=&orderPriceTo=&orderPriceCurrencyId=-1&deliveryAddress=&participantName=&orderPublishDateFrom=31.03.2015&orderPublishDateTo=&orderUpdateDateFrom=&orderUpdateDateTo=&customer.title=&customer.code=&customer.fz94id=&customer.fz223id=&customer.inn=&agency.title=&agency.code=&agency.fz94id=&agency.fz223id=&agency.inn=&orderStages=AF&orderStages=CA&searchTextInAttachedFile=&applSubmissionCloseDateFrom=&applSubmissionCloseDateTo=&searchString=??????&morphology=false&strictEqual=false&quickSearch=false&userId=null&conf=true;true;true;true;true;true;true;true;true;true;true;true;true;true;true;true;true;"
localFile = "C:\123.csv" ' сюда сохраняем
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
.Open "GET", InetFile, 0
.send
End With
With CreateObject("ADODB.Stream")
.Mode = 3
.Type = 1
.Open
.Write oXMLHTTP.responseBody
.SaveToFile localFile, 2
End With
End Sub
[/vba]