i'm working with a VB script, this is a code:
sub izvoziExcel
Dim sHTML,oExcel,oBook,oCells
naslovR=document.getElementById("naslovReklame").Value
if naslovR<>"" then
vsebinaR=document.all.item("tblReklame").outerHtml
dolzina=instr(1,vsebinaR,"<tr",1)...