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]