скрипт выдает ошибку, раньше работал
помогите найти ошибку
Zeile 27
Zeichen 3
Fehler Objekt erforderlich
Code 800A01A8
Исходный код
dim objTextFile
dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = 0
IE.navigate "http://datasuite.cmegroup.com/dataSuite.html?template=opt&productCode=6E&exchange=XCME&selected_tab=fx"
Do While IE.Busy
WScript.Sleep 500
'Exit Do
loop
do while asc(left(IE.document.all.Item("1.2900").cells.Item(1).innerText,1))=149
WScript.Sleep 500
loop
do while true
Set objTextFile = objFSO.OpenTextFile (Left(WScript.ScriptFullName,len(WScript.ScriptFullName)-4) + "ta.txt", 2, True)
for i=1050 to 1495 step 5
s = replace(cstr(i/1000),",",".")
if len(s)<6 then
s = s + space(6-len(s))
s = replace(s," ","0")
end if
if not IE.document.all.Item(s) is nothing then
stCALLS_Volume = Trim(IE.document.all.Item(s).cells.Item(0).innerText)
stCALLS_PS = Trim(IE.document.all.Item(s).cells.Item(3).innerText)
stPUTS_Volume = Trim(IE.document.all.Item(s).cells.Item(18).innerText)
stPUTS_PS = Trim(IE.document.all.Item(s).cells.Item(15).innerText)
objTextFile.WriteLine s + ";" + stCALLS_Volume + ";" + stCALLS_PS + ";" + stPUTS_Volume + ";" + stPUTS_PS
end if
next
objTextFile.Close
WScript.Sleep 30000
loop
IE.quit
Set IE = Nothing
Показать весь код