Not much so far, I'm stuck on this point...
Sub PullData()
' Comment out the below line to stop pop-up box!
' MsgBox ("Be patient, the script will run after you click ok.")
' Reference MS Internet Controls
' Declare variables
Dim IE As InternetExplorer
Set IE = New InternetExplorer
' Navigate to correct page
With IE
.Visible = True
.Navigate "website here"
End With
' Wait for page to load - allows server to fail
Application.Wait (Now + TimeValue("00:00:03"))
' Fill in the search form
With IE
.Document.form1 <<<stuck here
End With
With IE
'.Quit
End With
Set IE = Nothing
End Sub
EDIT:
Might be important to mention that the table output one the button is pressed will always be a different size
Bookmarks