html保存表格到word,excel.

<script language="vbscript"> sub builddoc set table = document.all.test row = table.rows.length column = table.rows(1).cells.length set objworddoc = createobject("word.document") objworddoc.application.documents.add() objworddoc.application.visible=true dim thearray(20,10000) for i=0 to row-1 for j=0 to column-1 thearray(j+1,i+1) = table.rows(i).cells(j).innertext next next objworddoc.application.activedocument.paragraphs.add.range.insertbefore("北林心理测评结果") //显示表格标题 objworddoc.application.activedocument.paragraphs.add.range.insertbefore("") set rngpara = objworddoc.application.activedocument.paragraphs(1).range with rngpara .bold = true //将标题设为粗体 .paragraphformat.alignment = 1 //将标题居中 .font.name = "隶书" //设定标题字体 .font.size = 18 //设定标题字体大小 end with set rngcurrent = objworddoc.application.activedocument.paragraphs(3).range set tabcurrent = objworddoc.application.activedocument.tables.add(rngcurrent,row,column) for i = 1 to column objworddoc.application.activedocument.tables(1).rows(1).cells(i).range.insertafter thearray(i,1) objworddoc.application.activedocument.tables(1).rows(1).cells(i).range.paragraphformat.alignment=1 next for i =1 to column for j = 2 to row objworddoc.application.activedocument.tables(1).rows(j).cells(i).range.insertafter thearray(i,j) objworddoc.application.activedocument.tables(1).rows(j).cells(i).range.paragraphformat.alignment=1 next next end sub </script><script LANGUAGE="javascript" defer> function excel() { var oxl = new ActiveXObject("Excel.Application"); var owb = oxl.Workbooks.Add(); var osheet = owb.Activesheet; var table = document.all.test; var hang = table.rows.length; var lie = table.rows(0).cells.length; for (m=0;m

学号姓名年龄
02824505小小菜鸟23
02824555大虾10

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值