Environment("Reportpath")="C:\Result.xls"
a=Browser("Google").Page("Google").WebTable
("index:=0").GetROProperty("outerhtml")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WriteFile = FSO.CreateTextFile( Environment
("Reportpath"), True)
writeFile.writeLine(a)
writeFile.close
No comments:
Post a Comment