a guest Jun 16th, 2019 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- Sub Create_Change()
- Dim i As Long
- Dim URL As String
- Dim IE As Object
- Dim objElement As Object
- Dim objCollection As Object
- Dim HWNDSrc As Long
- Set IE = CreateObject("InternetExplorer.Application")
- IE.Visible = True
- URL = "URL to Navigate"
- IE.Navigate URL
- Application.StatusBar = URL & " is loading. Please wait..."
- Do While IE.ReadyState = 4: DoEvents: Loop
- Do Until IE.ReadyState = 4: DoEvents: Loop
- Application.StatusBar = URL & " Loaded"
- ' IE.Document.All("Search for a template").Value = "text to search"
- Set IE = Nothing
- Set objElement = Nothing
- Set objCollection = Nothing
- End Sub
RAW Paste Data