1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Set ie = CreateObject("InternetExplorer.Application")
Set objFSO= CreateObject("Scripting.FileSystemObject")
ie.Navigate ("https://www.epexspot.com/en/market-data/auction/auction-table/"""& Year(date) &"""-"""& Month(date) &"""-"""& Day(date) &"""/FR")
ie.Visible=false
DO WHILE ie.busy
LOOP
Data = ie.document.documentElement.innertext
DataHTML = ie.document.documentElement.innerHTML
strFileHTML = "exportHTML.txt"
Set objHTMLFile = objFSO.OpenTextFile(strFileHTML,2,True)
objHTMLFile.WriteLine(DataHTML)
objHTMLFile.Close
ie.Quit
Set ie=Nothing
call Explorer(strFileHTML)
wscript.Quit
Function Explorer(File)
Set ws=CreateObject("wscript.shell")
ws.run "Explorer.exe "& File & "\"
end Function |
Partager