Hello,
I have been frustrated by the website shown in the some of the VBA code below. What I attemtoping to do is to navigate successfully to the export window, choose the option MS Excel 97-2000 (Data Only) and then export the data.
Ideally, I would like to be to get to the export point and then export the file to download loaction on my hard drive without having to confirm to overwite or anything like that. Simply, export the data and save it.
Main problem seems to be the window which appears with the export options just can't be activated from VBA - can't seem to be able activate the handle for the window or anything.
Greatly appreciate any insight from the smarter people out there.
Basic VBA code is below
Thank you.
Sub Update()
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "http://infopost.panhandleenergy.com/InfoPost/jsp/OperAvailByLoc.jsp?varDate_MM=08&varDate_DD=25&varDate_YY=2006&search=Retrieve"
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
.Navigate "javascript:doExport('exportdlg')"
'Do Until .ReadyState = 4: DoEvents: Loop
'Do While .Busy: DoEvents: Loop
end sub
I have been frustrated by the website shown in the some of the VBA code below. What I attemtoping to do is to navigate successfully to the export window, choose the option MS Excel 97-2000 (Data Only) and then export the data.
Ideally, I would like to be to get to the export point and then export the file to download loaction on my hard drive without having to confirm to overwite or anything like that. Simply, export the data and save it.
Main problem seems to be the window which appears with the export options just can't be activated from VBA - can't seem to be able activate the handle for the window or anything.
Greatly appreciate any insight from the smarter people out there.
Basic VBA code is below
Thank you.
Sub Update()
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "http://infopost.panhandleenergy.com/InfoPost/jsp/OperAvailByLoc.jsp?varDate_MM=08&varDate_DD=25&varDate_YY=2006&search=Retrieve"
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
.Navigate "javascript:doExport('exportdlg')"
'Do Until .ReadyState = 4: DoEvents: Loop
'Do While .Busy: DoEvents: Loop
end sub