实现页面数据表单另存为

1 用WebBrowser控件

<object id="WebBrowser" width=0 height=0
            classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></object>
<button onClick="WebBrowser.ExecWB(4,1)">
            另存为...
</button>

 
2  定义一个名为"tableExcel"的表单，再定义一个按钮来onClick。
对JS中的excel.xls可以改为.doc等形式

<script type="text/javascript"> 
function saveCode(obj) ...{ 
          var winname = window.open('', '_blank', 'top=10000'); 
          var strHTML = document.all.tableExcel.innerHTML; 
          winname.document.open('text/html', 'replace'); 
          winname.document.writeln(strHTML); 
          winname.document.execCommand('saveas','','excel.xls'); 
          winname.close(); 
} 
</script> 

3 将页面中指定表格的数据在Excel中打开，　使用ActiveXObject

<SCRIPT   LANGUAGE= "javascript" >  
function AutomateExcel() ...{  

    var oXL = new ActiveXObject( "Excel.Application");   //创建应该对象  
    var oWB = oXL.Workbooks.Add();                       //新建一个Excel工作簿
    var oSheet = oWB.ActiveSheet;                        //指定要写入内容的工作表为活动工作表
    var table = document.getElementById("data");                       //指定要写入的数据源的id
    var hang = table.rows.length;                        //取数据源行数
    var lie = table.rows(0).cells.length;                //取数据源列数

    //Add table headers going cell by cell.  
    for (i=0;i <hang;i++) ...{//在Excel中写行
    for (j=0;j <lie;j++) ...{//在Excel中写列
        //定义格式
        oSheet.Cells(i+1,j+1).Font.Bold = true;//加粗
        oSheet.Cells(i+1,j+1).Font.Size = 10;//字体大小
        oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;//向单元格写入值
    }  
    } 
     
    oXL.Visible = true;  
    oXL.UserControl = true;  
}  
</SCRIPT>

4 定义一个名为"tableID"的表单，再用一个按钮onClick

<script type="text/javascript">
            function table2xls() ...{  
            
          function String.prototype.Trim() ...{
              return this.replace(/(^s*)|(s*$)/g,"");
          }  
      
             try ...{  
            var e = document.getElementById("tableID");
            var s = "";
            
            for (var j=0; j<e.rows.length; j++) ...{  
              if (e.rows[0].cells[0].innerText.Trim() == "") ...{  
                  for (var i=1; i<e.rows[j].cells.length; i++)  
                    s += e.rows[j].cells[i].innerText.Trim() +"";  
              } else ...{  
                  for (var i=0; i<e.rows[j].cells.length; i++)  
                s += e.rows[j].cells[i].innerText.Trim() +"";  
                 }
                 
              s += " ";  
            }
              
            var xlsWindow = window.open("","","width=0,height=0");  
            xlsWindow.document.write(s);  
            xlsWindow.document.close();  
            xlsWindow.document.execCommand('Saveas',true,'%homeDrive%/Date.txt')  
            xlsWindow.close(); 
          }catch(e)...{}  
      }
</script>