将页面中指定表格的数据导入到Excel中

来源：互联网发布：js 获取数组长度编辑：程序博客网时间：2024/05/16 15:47

<HTML><HEAD><TITLE>将页面中指定表格的数据导入到Excel中</TITLE><SCRIPT LANGUAGE="javascript"><!--function AutomateExcel(){var oXL = new ActiveXObject("Excel.Application"); //创建应该对象var oWB = oXL.Workbooks.Add();//新建一个Excel工作簿var oSheet = oWB.ActiveSheet;//指定要写入内容的工作表为活动工作表var table = document.all.data;//指定要写入的数据源的idvar 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).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).Font.Name = '微软雅黑';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" name="out_excel" onclick="AutomateExcel();" value="导出到excel"></BODY></HTML>

From http://blog.sina.com.cn/s/blog_586f1baf01000ako.html