' Вариант 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