Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код: URL = "http://www.atsenergo.ru/results/market/svnc/svnc_month/index.htm" POST = "?period=012014&ftempl=3&step=1&published=20140204" Set ie = CreateObject("InternetExplorer.Application") Set FSO = CreateObject("Scripting.FileSystemObject") Set objTextStream=FSO.OpenTextFile("xlslist.txt",2,1) ie.navigate URL & POST, 14 ie.Visible = False do while ie.busy Wscript.Sleep (100) Loop For Each Link in ie.document.getElementById("monthdata").getElementsByTagName("a") If Not (Link.href="") Then objTextStream.WriteLine Link.href Next ie.Quit MsgBox "File created." |
|