Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim htm As Object Dim IE As Object Dim Doc As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True IE.navigate "http://ec.europa.eu/environment/ets/exportEntry.do?form=transaction&destinationAccountHolder=&startDate=01%2F06%2F2009&destinationRegistry=-1&originatingAccountType=121&endDate=01%2F05%2F2010&transactionID=&suppTransactionType=-1&originatingAccountHolder=&transactionType=-1&languageCode=en&destinationAccountNumber=&destinationAccountType=121&toCompletionDate=&originatingRegistry=-1&destinationAccountIdentifier=&fromCompletionDate=&originatingAccountIdentifier=&transactionStatus=4&originatingAccountNumber=1973¤tSortSettings=" Do While IE.readystate <> 4: DoEvents: Loop Set Doc = CreateObject("htmlfile") Set Doc = IE.document Doc.getelementbyID("btnOK").Click[embed=file 884739] 'I need code here which clicks the save as button as save the file as C:\temp.xml Set IE = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.