<script type="text/vbscript">

Function Export()
msgbox("In Func")
On Error Resume Next
Dim sHTML, oExcel, fso, filePath
Dim oelem
'oelem = document.body.childNodes("grid")
'oelem = document.all("grid")
oelem = document.getElementById("grid")
If oelem Is Nothing Then 'you cannot find it
msgbox("cannot find grid")
Exit Function 'early exit, you can wrap the whole functional part in the else if part if you like
End If
Dim slen
slen = oelem.length 'make sure it is not dispHTMLElementCollection
If err.number = 0 Then
msgbox("error number <> 0")
Exit Function 'there are more than one element of "grid" return, you have to reconsider how to deal with it
End If
err.clear
sHTML = document.all("grid").outerHTML
msgbox(sHTML)
fso = CreateObject("Scripting.FileSystemObject")
filePath = fso.GetSpecialFolder(2) & "\MyExportedExcel.xls"

'fso.CreateTextFile(filePath).Write(sHTML)
fso.CreateTextFile(filePath)
wscript.sleep(1000)
oExcel.Workbooks.open(filePath)
Dim i
'SET i = 0
i = 0
Do While Not fso.fileexists(filePath)
'err.Clear() 'no need
filePath = fso.GetSpecialFolder(2) & "\MyExportedExcel" & i & ".xls"

'why do you write something like this to an xls file??? disregarding exist or not???
'fso.CreateTextFile(filePath).Write(sHTML)
i = i + 1
Loop


oExcel = CreateObject("Excel.Application")
'IF err.number>0 OR oExcel =NULL THEN
If err.number <> 0 Then
msgbox("You need to have Excel Installed and Active-X Components Enabled on your System.")
Exit Function
End If
oExcel.Workbooks.open(filePath)
oExcel.Workbooks(1).WorkSheets(1).Name = "My Excel Data"

oExcel.Workbooks(1).WorkSheets.cells(1, 1) = sHTML
oExcel.Visible = True
fso = Nothing
End Function

</script>