Excel.Application 导出Excel

第一种：逐个单元格导出法（此方法操作相对复杂，但是比较灵和，适合对导出表有要求的情况）

javascript代码如下  
<SCRIPT LANGUAGE="javascript">   
function ExcelExport(tableid)   
{   
    var table = document.getElementById(tableid); //获取页面的table  
    var excel = new ActiveXObject("Excel.Application"); //实例化Excel.Application对象  
    var workB = excel.Workbooks.Add(); ////添加新的工作簿  
    var sheet = workB.ActiveSheet;   
//var sheet= workB.Worksheets(1);//该句代码和上句代码同意，都是激活一个sheet  
/***************常用样式设置语句***************************************/
    //sheet.Rows(1).WrapText = false; //自动换行设置  
    //sheet.Rows(1).Font.Size=18;//设置第一行的字体大小  
    //sheet.Rows(1).Interior.ColorIndex=2;//设置第一行背景色   
    //sheet.Rows(1).Font.ColorIndex=1;//设置第一行字体色     
    //sheet.Range(sheet.Cells(1,1),sheet.Cells(1,7)).mergecells=true;//第一行1到7单元格合并  
    sheet.Columns("A").ColumnWidth =35;//设置列宽  
    sheet.Columns("B").ColumnWidth =35;  
    //sheet.Columns("A:B").ColumnWidth =35;//另一种设置列宽的方式  
    sheet.Rows(1).RowHeight = 35;//设置行高  
    //sheet.Rows(1).Font.Name="黑体";//设置字体  
     //sheet.Columns.AutoFit;//所有列自适应宽度  
     //水平对齐方式(貌似-4108为水平居中)  
    //sheet.Range( sheet.Cells(1,1),sheet.Cells(1,5)).HorizontalAlignment =-4108;  
    //垂直对齐方式  
    //sheet.Range( sheet.Cells(1,1),sheet.Cells(1,5)).VerticalAlignment =-4108;  
    //根据Borders()中参数值设置各个方向边距，1,2,3,4--->top,buttom,left,right  
    //sheet.Range( sheet.Cells(2,1),sheet.Cells(1,5)).Borders(1).Weight = 2;  
/**将页面table写入到Excel中，具体复杂情况（合并单元格等）可在这里面具体操作**********/
    var LenRow = table .rows.length; //以下为循环遍历获取页面table的cell元素  
    for (i = 0; i < LenRow ; i++)   
    {   
        var lenCol = table.rows(i).cells.length;   
        for (j = 0; j < lenCol ; j++)   
        {   
            sheet.Cells(i + 1, j + 1).value = table.rows(i).cells(j).innerText; //通过该语句将table的每个  
                                        //cell赋予Excel 当前Active的sheet下的相应的cell下  
        }   
    }   
    excel.Visible = true;//设置excel为可见  
excel.UserControl = true; //将Excel交由用户控制  
}   
</SCRIPT>
javascript代码如下
<SCRIPT LANGUAGE="javascript">
function ExcelExport(tableid)
{
    var table = document.getElementById(tableid); //获取页面的table
    var excel = new ActiveXObject("Excel.Application"); //实例化Excel.Application对象
    var workB = excel.Workbooks.Add(); ////添加新的工作簿
    var sheet = workB.ActiveSheet;
//var sheet= workB.Worksheets(1);//该句代码和上句代码同意，都是激活一个sheet
/***************常用样式设置语句***************************************/
    //sheet.Rows(1).WrapText = false; //自动换行设置
    //sheet.Rows(1).Font.Size=18;//设置第一行的字体大小
    //sheet.Rows(1).Interior.ColorIndex=2;//设置第一行背景色
    //sheet.Rows(1).Font.ColorIndex=1;//设置第一行字体色  
    //sheet.Range(sheet.Cells(1,1),sheet.Cells(1,7)).mergecells=true;//第一行1到7单元格合并
    sheet.Columns("A").ColumnWidth =35;//设置列宽
    sheet.Columns("B").ColumnWidth =35;
    //sheet.Columns("A:B").ColumnWidth =35;//另一种设置列宽的方式
    sheet.Rows(1).RowHeight = 35;//设置行高
    //sheet.Rows(1).Font.Name="黑体";//设置字体
     //sheet.Columns.AutoFit;//所有列自适应宽度
     //水平对齐方式(貌似-4108为水平居中)
    //sheet.Range( sheet.Cells(1,1),sheet.Cells(1,5)).HorizontalAlignment =-4108;
    //垂直对齐方式
    //sheet.Range( sheet.Cells(1,1),sheet.Cells(1,5)).VerticalAlignment =-4108;
    //根据Borders()中参数值设置各个方向边距，1,2,3,4--->top,buttom,left,right
    //sheet.Range( sheet.Cells(2,1),sheet.Cells(1,5)).Borders(1).Weight = 2;
/**将页面table写入到Excel中，具体复杂情况（合并单元格等）可在这里面具体操作**********/
    var LenRow = table .rows.length; //以下为循环遍历获取页面table的cell元素
    for (i = 0; i < LenRow ; i++)
    {
        var lenCol = table.rows(i).cells.length;
        for (j = 0; j < lenCol ; j++)
        {
            sheet.Cells(i + 1, j + 1).value = table.rows(i).cells(j).innerText; //通过该语句将table的每个
                                        //cell赋予Excel 当前Active的sheet下的相应的cell下
        }
    }
    excel.Visible = true;//设置excel为可见
excel.UserControl = true; //将Excel交由用户控制
}
</SCRIPT>

       第二种方法：整体拷贝法（该方法以较少代码实现Excel数据的导出，但是导出数据格式可能存在样式和页面不一致情况，甚至像背景色等会出现错位，而且如果在html页面中对需要导出的table样式做过设置的话，此处部分样式设置可能不会起作用）

<SCRIPT LANGUAGE="javascript">   
function ExcelExport(tableid)   
{   
    var table = document.getElementById(tableid);   
    var ax =new ActiveXObject("Excel.Application");    
    var workbook = oXL.Workbooks.Add();   
     var sheet = workbook.ActiveSheet;   
     var sel = document.body.createTextRange();   
       
     //把table中的数据移到sel中   
     sel.moveToElementText(table);   
       
     sel.select(); //选中sel中所有数据   
     sel.execCommand("Copy");//复制sel中的数据    
           
      sheet.Columns("A").ColumnWidth =35;//设置列宽  
      sheet.Columns("B").ColumnWidth =35;  
      sheet.Rows(1).RowHeight = 35;//设置表头高  
          
     //将sel中数据拷贝到sheet工作薄中  
     sheet.Paste();           
     ax.Visible = true;   
     //通过打印机直接将Excel数据打印出来  
     sheet.Printout;  
     ax.UserControl = true;   
}   
</SCRIPT>

 

转自： http://blog.csdn.net/lxw503606554/archive/2010/01/14/5189782.aspx