VBScript_ExptExcel

1、IE安全设置：IE浏览器点击“工具”菜单--“Internet 选项”--“自定义级别”
--选择“对没有标记为安全的ActiveX控件进行初始化和脚本运行”选为“启用”
2、rstab：页面Table的ID或Name


<script language=vbscript>             
  sub cmdExport_onclick()        
on error resume next        
dim objExcel,objExlBook,objExlSht,myvar 
    myvar=msgbox("Please confirm your Excel had been installed . Export data to Excel ?",4,"Output Data")          
    if myvar=6 then        
Set objExcel = CreateObject("Excel.Application")      
Set objExlBook = objExcel.Workbooks.Add    
Set objExlSht = objExlBook.Sheets(1)  
objExcel.Visible = False

dim myTbody,cur_tr        
set myTbody=rstab.firstChild        
dim DataRows        
dim DataCols        
DataRows=myTbody.rows.length-1        
DataCols=myTbody.childNodes(0).children.length-1 

        if DataRows < 2 then  
            msgbox "No Data for exporting..." 
            If Not (objExcel Is Nothing) Then
                Set objExlSht = Nothing
                Set objExlBook = Nothing
                Set objExcel = Nothing
            End If