网上搜集的代码





导出到Excel代码


<!——
AutomateExcel()函数
{
Excel和应用程序对象。启动
VaR OXL =新的ActiveX对象(Excel应用程序);
新工作簿。
VaR OWB = oxl.workbooks.add();
无功osheet = owb.activesheet;
无功表= document.all.data;
VaR挂= table.rows.length;

撒谎= table.rows VAR(0)。Cells.length;

在单元格中添加表格标题。
对于(i = 0;i <挂;i + +)
{
对于(j = 0;j <谎言;j + +)
{
/ / osheet.cells(i + 1,J + 1)。Font.Bold =真
/ / osheet.cells(i + 1,J + 1 = 50 Font.Size)。
/ / osheet.cells(i + 1,J + 1)= 2。对准
osheet。细胞(I + 1,J + 1)。值= table.rows(我)。细胞InnerText(J);
}

}
OLX。可视=真;
oxl.usercontrol =真;
}






全名
年龄
出生日期


六
二十五
八


一
二
四