Sub IElogon() 'Macro zarejestrowane przez M.Nowak @ 2013 Application.ScreenUpdating = False Dim x As String x = Format((Date - 1), "yy""/""mm""/""dd") 'okresl zawartosc zmiennej, w przykladzie data wczorajsza w formacie 2013/11/12 Set ie = CreateObject("internetexplorer.application") ie.navigate2 "http://gmail.com" 'adres www Do Until ie.ReadyState = 4 DoEvents Loop ie.Visible = False ' visible oN Set lform = ie.Document.forms(0) lform("email").Value = "login" 'nazwy pol email i passwd trzeba dostowac do znacznikow html na stronie do ktorej sie logujemy lform("passwd").Value = "password" lform.submit Do DoEvents Loop While ie.ReadyState <> 4 Or ie.Busy = True 'wait Set LinkCollection = ie.Document.getelementsbytagname("A") For Each link In LinkCollection If (link.Innertext = x) Then 'szukaj wczorajszej daty w linku link.Click Exit For End If Next Do DoEvents Loop While ie.ReadyState <> 4 Or ie.Busy = True 'wait Set LinkCollection = ie.Document.getelementsbytagname("A") For Each link2 In LinkCollection If InStr(link2.Innertext, "TEXT") Then 'Szukanie wybranego tekstu w kodzie link2.Click Exit For End If Next Do DoEvents Loop While ie.ReadyState <> 4 Or ie.Busy = True 'wait ie.ExecWB 17, 0 ' Zaznacz wszystko ie.ExecWB 12, 2 ' Kopiuj wszystko ie.Quit ThisWorkbook.Sheets("Arkusz2").Activate Sheets("Arkusz2").Paste Range("A1") ActiveWorkbook.RefreshAll ActiveWorkbook.Save Sheets(Array("Arkusz3", "Arkusz4", "Arkusz5")).Select Sheets.PrintOut Application.EnableEvents = True End Sub