Help with code: Web query for security agreement
 

Hello,

I am trying to make a web query to access a website and download
natural gas market data. I am to the point where I almost have the
code, (thanks to help on this site). Any more input would be greatly
appreciated.

I need to access https://www.services.nymex.com/otcse.../OTCSettle.jsp,
agree to the User agreement and click the link "Download all available
OTC settlement data" I then need to open the .csv file and copy it
into my excel sheet. I am having trouble clicking submit on the first
page Here is the code I have so far, any help???

Thanks so much!

___________________

Sub Basis_web_query()

Dim ie As Object
Dim nFile As Integer

Set ie = CreateObject("InternetExplorer.Application")


ie.Visible = True
ie.Navigate "https://www.services.nymex.com/otcsettlement/
OTCSettle.jsp"
Do Until ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

'Agrees with the Disclaimer form
If ie.LocationURL Like "*disclaimer*" Then
'Selects 'I agree'
ie.Document.Links(4).Click

'submits the form
[[[PROBLEM HERE!!!]]]

End If

Do Until ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

'clicks on "Download all available..."
ie.Document.all.Item("ctl00_btnExport").Click
'
End Sub

Help with code: Web query for security agreement
 

Try:

ie.Document.getElementById("aspnetForm").submit

Tim

wrote in message
...
Hello,

I am trying to make a web query to access a website and download
natural gas market data. I am to the point where I almost have the
code, (thanks to help on this site). Any more input would be greatly
appreciated.

I need to access
https://www.services.nymex.com/otcse.../OTCSettle.jsp,
agree to the User agreement and click the link "Download all available
OTC settlement data" I then need to open the .csv file and copy it
into my excel sheet. I am having trouble clicking submit on the first
page Here is the code I have so far, any help???

Thanks so much!

___________________

Sub Basis_web_query()

Dim ie As Object
Dim nFile As Integer

Set ie = CreateObject("InternetExplorer.Application")


ie.Visible = True
ie.Navigate "https://www.services.nymex.com/otcsettlement/
OTCSettle.jsp"
Do Until ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

'Agrees with the Disclaimer form
If ie.LocationURL Like "*disclaimer*" Then
'Selects 'I agree'
ie.Document.Links(4).Click

'submits the form
[[[PROBLEM HERE!!!]]]

End If

Do Until ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

'clicks on "Download all available..."
ie.Document.all.Item("ctl00_btnExport").Click
'
End Sub

Help with code: Web query for security agreement
 

That did the trick! Thanks so much!

On Jan 3, 8:22 pm, "Tim Williams" <timjwilliams at gmail dot com
wrote:
Try:

ie.Document.getElementById("aspnetForm").submit

Tim

wrote in message

...

Hello,

I am trying to make a web query to access a website and download
natural gas market data. I am to the point where I almost have the
code, (thanks to help on this site). Any more input would be greatly
appreciated.

I need to access
https://www.services.nymex.com/otcse.../OTCSettle.jsp,
agree to the User agreement and click the link "Download all available
OTC settlement data" I then need to open the .csv file and copy it
into my excel sheet. I am having trouble clicking submit on the first
page Here is the code I have so far, any help???

Thanks so much!

___________________

Sub Basis_web_query()

Dim ie As Object
Dim nFile As Integer

Set ie = CreateObject("InternetExplorer.Application")

ie.Visible = True
ie.Navigate "https://www.services.nymex.com/otcsettlement/
OTCSettle.jsp"
Do Until ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

'Agrees with the Disclaimer form
If ie.LocationURL Like "*disclaimer*" Then
'Selects 'I agree'
ie.Document.Links(4).Click

'submits the form
[[[PROBLEM HERE!!!]]]

End If

Do Until ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

'clicks on "Download all available..."
ie.Document.all.Item("ctl00_btnExport").Click
'
End Sub