Public Sub EnterForm()

    Dim i As Integer
    Dim ie As Object
    Dim varReturn As Variant

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate ("http://rp5.ru/%D0%90%D1%80%D1%85%D0%B8%D0%B2_%D0%BF%D0%BE%D0%B3%D0%BE%D0%B4%D1%8B_%D0%B2_%D0%A5%D0%B5%D0%B9%D0%B4%D0%B6%D0%B0%D0%BD%D0%B5#map")

'номер станции
ie.Document.Forms("fwmo").elements("wmo_id").Value = "31083"

'максимальные значения
ie.Document.Forms("f_farchive").elements("f_ed0").Value = "31"
ie.Document.Forms("f_farchive").elements("f_ed1").Value = "12"
ie.Document.Forms("f_farchive").elements("f_ed2").Value = "2014"
   
'минимальные значения
ie.Document.Forms("f_farchive").elements("f_ed6").Value = "1"
ie.Document.Forms("f_farchive").elements("f_ed7").Value = "01"
ie.Document.Forms("f_farchive").elements("f_ed8").Value = "2005"

End Sub

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
  "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
    szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long



Sub rp5ru()
    Const URL As String = "http://rp5.ru/inc/f_archive.php"
    Dim req As Object
    Dim params As String
    
    params = "dummy=0"
    
    ' кто такой
    params = params & "&wmo_id=" & "31083"
    
    ' конечная дата - день, месяц, год
    params = params & "&f_ed0=" & "31"
    params = params & "&f_ed1=" & "12"
    params = params & "&f_ed2=" & "2014"
    
    ' если "выбрать только месяц" - месяц (1-январь, 12-декабрь)
    params = params & "&f_ed3=" & "01"
    
    ' если "выбрать только дату" - месяц, день
    params = params & "&f_ed4=" & "01"
    params = params & "&f_ed5=" & "1"
    
    ' начальная дата - день, месяц, год
    params = params & "&f_ed6=" & "1"
    params = params & "&f_ed7=" & "01"
    params = params & "&f_ed8=" & "2005"
    
    ' что выбрать для заданного диапазона: 1-все дни, 2-только месяц, 3-только дату
    params = params & "&f_pe=" & "1"
    
    ' кодировка: 1-ANSI, 2-UTF8, 3-UNICODE
    params = params & "&f_pe1=" & "2"
    
    ' ид языка: 2-ru
    params = params & "&lng_id=" & "2"
    
    Set req = CreateObject("Microsoft.XmlHttp")
    req.Open "POST", URL, False
    req.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
    req.send "{" & params & "}"
    
    Debug.Print req.responseText
 
 'получаем ссылку на сформированный файл
 Dim RegEx As Object
 Dim TextToAnalize As String
 
 Set RegEx = CreateObject("vbscript.regexp")
 
   With RegEx
      .MultiLine = True
      .Global = True
      .IgnoreCase = True
      .Pattern = "<a href=(.*)>"
   End With
   
   TextToAnalize = req.responseText
   
   Set objMatches = RegEx.Execute(TextToAnalize)
 
    result = Mid(TextToAnalize, objMatches.Item(0).FirstIndex + 9, objMatches.Item(0).Length - 20)
     
'выкачиваем сформированный файл
    URLDownloadToFile 0, result, "C:\1\31083.gz", 0, 0
    
    Set req = Nothing
End Sub