Automatizacija internet explorera iz excela

[ ZorzNS @ 21.09.2015. 21:54 ] @

Pozdrav!
Pokusavam da automatizujem iz excela skracivanje linkova na sajtovima adf.ly i linksert, i krenulo je ok al sam zapeo kod poslednjeg koraka.
Kod adf.ly mi excel otvori stranicu sajta na internet exploreru, ispise proizvoljni link u polje za skracivanje na sajtu, stisne SHRINK, i tu stane. Ne znam kako da ga nateram da stisne COPY i pastuje novi generisani link u excel.
A kod linkserta sve isto, osim sto ne mogu da ga nateram ni da stisne SHRINK. Treba mi pomoc :)

Evo kodova:

Sub adfly()

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
URL = "http://adf.ly/"
IE.navigate (URL)

Do
DoEvents
Loop Until IE.READYSTATE = 4

IE.Document.All("shrink_link").Value = "http://www.google.com"

IE.Document.getelementbyid("shrink_submit").Click

Do
DoEvents
Loop Until IE.READYSTATE = 4

IE.Document.getelementbyid("shrink_copy").Click

End Sub

Sub linksert()

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
URL = "http://linksert.com/"
ie.Navigate (URL)

Do
DoEvents
Loop Until ie.ReadyState = 4

ie.Document.All("url").Value = "http://www.google.com"

End Sub[/code]

[ ZorzNS @ 27.09.2015. 17:17 ] @

Ajte ljudi pomagajte, pa nemoguce da bas niko nema nista da kaze? Evo okacio sam dokument pa pokrenite makro da vidite kako radi. Sve sto mi treba je samo na kraju da se prekopira taj novi link u excel i nista vise.

_{[Ovu poruku je menjao ZorzNS dana 28.09.2015. u 00:39 GMT+1]}