好喜欢这段代码，好想好想用它，可是为什么出错呢？在线等！

<HTML> 
<HEAD> 
<TITLE> 将页面中指定表格的数据导入到Excel中 </TITLE> 
<SCRIPT>  
function aa(){
alert('ff');
var oXL = new ActiveXObject("Excel.Application");  //创建应该对象  
oXL.Visible = true; 
var  oWB  =  oXL.Workbooks.Add();//新建一个Excel工作簿 
var  oSheet  =  oWB.ActiveSheet;//指定要写入内容的工作表为活动工作表 
var  table1  =  document.all.data;//指定要写入的数据源的id 
var  hang  =  table1.rows.length;//取数据源行数 
var  lie  =  table1.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).NumberFormatLocal  =  "@ "; 
        //!!!!!!!上面这一句是将单元格的格式定义为文本 
        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> 
</HEAD> <BODY > 
<table  border= "0 "  width= "300 "  id= "data "  bgcolor= "black "  cellspacing= "1 "> 
  <tr  bgcolor= "white "> 
    <td> 编号 </td> 
    <td> 姓名 </td> 
    <td> 年龄 </td> 
    <td> 性别 </td> 
  </tr> 
  <tr  bgcolor= "white "> 
    <td> 0001 </td> 
    <td> 张三 </td> 
    <td> 22 </td> 
    <td> 女 </td> 
  </tr> 
  <tr  bgcolor= "white "> 
    <td> 0002 </td> 
    <td> 李四 </td> 
    <td> 23 </td> 
    <td> 男 </td> 
  </tr> 
</table> 
<INPUT  type='button' value="Start Excel" onclick="aa()">
</BODY> 
</HTML> 

解决方案 »

  1.   


    <HTML> 
    <HEAD> 
    <TITLE> 将页面中指定表格的数据导入到Excel中 </TITLE> 
    <SCRIPT>  
    function aa(){
    alert('ff');
    var oXL = new ActiveXObject("Excel.Application");  //创建应该对象  
    oXL.Visible = true; 
    var  oWB  =  oXL.Workbooks.Add();//新建一个Excel工作簿 
    var  oSheet  =  oWB.ActiveSheet;//指定要写入内容的工作表为活动工作表 
    var  table1  =  document.getElementById('data');//指定要写入的数据源的id 
    alert(table1)
    var  hang  =  table1.rows.length;//取数据源行数 
    var  lie  =  table1.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).NumberFormatLocal  =  "@ "; 
            //!!!!!!!上面这一句是将单元格的格式定义为文本 
            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  =  table1.rows(i).cells(j).innerText;//向单元格写入值 
        }  
    }  
    oXL.Visible  =  true;  
    oXL.UserControl  =  true;  }</SCRIPT> 
    </HEAD> <BODY > 
    <table  border= "0 "  width= "300 "  id= "data"  bgcolor= "black "  cellspacing= "1 "> 
      <tr  bgcolor= "white "> 
        <td> 编号 </td> 
        <td> 姓名 </td> 
        <td> 年龄 </td> 
        <td> 性别 </td> 
      </tr> 
      <tr  bgcolor= "white "> 
        <td> 0001 </td> 
        <td> 张三 </td> 
        <td> 22 </td> 
        <td> 女 </td> 
      </tr> 
      <tr  bgcolor= "white "> 
        <td> 0002 </td> 
        <td> 李四 </td> 
        <td> 23 </td> 
        <td> 男 </td> 
      </tr> 
    </table> 
    <INPUT  type='button' value="Start Excel" onclick="aa()">
    </BODY> 
    </HTML>