Saturday, November 13, 2010

UDF to find redirect Web URL

Sometimes you have a list of web links which are redirecting to other links and you want to find out the new URL. Try this UDF:

Function redirect_url(url1 As String)
    Dim myIE As Object
    Set myIE = CreateObject("InternetExplorer.Application")
    myIE.Navigate url1
    Do While myIE.Busy
    redirect_url = myIE.Document.URL
    Set myIE = Nothing

End Function

No comments:

Post a Comment

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...