Hi!
There are several ways to go about this. The ways I know of, you'll need a bit of macro code. You can choose to either save the web-site locally and then fetch the data from the tables, or run the macro within the script.
A logon macro that saves the HTML to files on disk could look like:
sub RetrieveData
dim FileName
dim FilePath
FilePath = "C:\Storage\HTML\"
Set objShell = CreateObject("WScript.Shell")
'Creates our IE object
Set IE = CreateObject("InternetExplorer.Application")
'Browse to our url
IE.Navigate "http://www.randomdomain.com/login.aspx"
IE.Visible = False 'True if you want to see the process
'wait for the page to load
Do While IE.Busy
Loop
'log in to the site - the name of these inputboxes needs to be identified in the HTML-code
IE.Document.All.Item("txtUsername").Value = "JohnDoe"
IE.Document.All.Item("txtPassword").Value = "Abcd1234"
'submit the page - the name of this button needs to be identified in the HTML-code
IE.Document.All.Item("LbtnNext").click
'wait while the form is submitted and the resulting page is loaded.
Do While IE.Busy
Loop
' Following code for each page to load and be saved to the proper folder
IE.Navigate "http://www.randomdomain.com/Data/Page1.aspx"
'wait for the page to load
Do While IE.Busy
Loop
'Assign the webpage results to a variable
sDocHTML = IE.Document.documentElement.innerhtml
'Assign path
FileName = FilePath & "SaveAsThisName.aspx.htm"
'Save the HTML
WriteFile FileName,sDocHTML
' Repeating for each page, can be made more dynamic in case of multiple page retrieval
IE.Navigate "http://www.randomdomain.com/Customers/Page2.aspx"
'wait for the page to load
Do While IE.Busy
Loop
'Assign the webpage results to a variable
sDocHTML = IE.Document.documentElement.innerhtml
'Assign path
FileName = FilePath & "AnotherSaveAsNameHere.aspx.htm"
'Save the HTML
WriteFile FileName,sDocHTML
IE.Quit
end sub
' Function for writing contents to file
function WriteFile(sFilePathAndName,sFileContents)
Const ForWriting = 2
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oFSFile = oFS.OpenTextFile(sFilePathAndName,ForWriting,True)
oFSFile.Write(sFileContents)
oFSFile.Close
Set oFSFile = Nothing
Set oFS = Nothing
End function
I hope it helps you get started!
BR
Jakob Berglund
