function PrintTableToExcelEx(objTab)

　　...{

　　try

　　...{

　　var xls = new ActiveXObject( "Excel.Application" );

　　}

　　catch(e)

　　...{

　　alert( "您必須安裝Excel電子表格軟件，同時瀏覽器須使用“ActiveX 控件”，您的瀏覽器須允許執行控件。 請點擊【幫助】了解瀏覽器設置方法!");

　　return false;

　　}

　　xls.visible = true;

　　var xlBook　= xls.Workbooks.Add;

　　var xlsheet = xlBook.Worksheets(1);

　　var CurX = 1;

　　var CurY = 1;

　　for (var i = 0; i < objTab.rows.length; i++)

　　...{

　　for (var j = 0; j < objTab.rows[i].cells.length; j++)

　　...{

　　var cell = objTab.rows[i].cells[j];

　　var v = cell.outerText;

　　if ( cell.children != null && cell.children.length != 0 )

　　...{

　　v = "";

　　for ( var k = 0; k < cell.children.length; k++ )

　　...{

　　var cc = cell.children[k];

　　switch (cc.type)

　　...{

　　case "select-one":

　　for ( var l = 0; l < cc.options.length; l++ )

　　if ( cc.options[l].selected )　　v += cc.options[l].text;

　　break;

　　case "text":

　　v += cc.html' target='_blank'>value;

　　break;

　　case "checkbox":

　　v += cc.checked ? "是" : "否";

　　break;

　　case undefined:

　　v += cell.outerText;

　　break;

　　case "hidden":

　　break;

　　default:

　　//v += cc.id + "/";

　　//v += cc.tagname + "/";

　　//v += cc.type + "/"

　　v += cc.value;

　　break;

　　}

　　}

　　}

　　while ( xlsheet.Cells(CurX,CurY).MergeCells )　　　　CurY++;

　　xlsheet.Cells(CurX, CurY).HorizontalAlignment = 2;

　　var align = cell.getAttribute("align");

　　switch ( align )

　　...{

　　case "left":

　　xlsheet.Cells(CurX, CurY).HorizontalAlignment = 2;//XlHalign.xlHalignLeft;

　　break;

　　case "center":

　　xlsheet.Cells(CurX, CurY).HorizontalAlignment = 3;;//XlHalign.xlHalignCenter;

break;

case "right":

xlsheet.Cells(CurX, CurY).HorizontalAlignment = 4;//XlHalign.xlHalignRight;

break;

}

xlsheet.Cells(CurX, CurY).WrapText = true;

xlsheet.Cells(CurX, CurY).VerticalAlignment = 2;

xlsheet.Cells(CurX, CurY).Value = v;

xlsheet.Cells(CurX, CurY).Borders.LineStyle = 1;



var rowSpan = cell.getAttribute("RowSpan");

var colSpan = cell.getAttribute("ColSpan");

if ( rowSpan >= 2 || colSpan >= 2 )

...{

var R = xls.Range(xls.Cells(CurX, CurY), xls.Cells(CurX + rowSpan - 1, CurY + colSpan - 1));

R.MergeCells = true;

R.Borders.LineStyle = 1;

}

CurY++;　　　　　　　　　　　　

}



CurX++;

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。