导出table.docVIP

asp中表格导出到EXCEL的方法? 一、第一种? 表格导出到Word代码、导出到EXCEL代码? input?type=hidden?name=out_word?onclick=vbscript:buildDoc?value=导出到word?class=notPrint? input?type=hidden?name=out_excel?onclick=AutomateExcel();?value=导出到excel?class=notPrint? title浏览器表格导出到Excel代码/title? input?type=button?name=out_word?onclick=vbscript:buildDoc?value=导出到word?class=notPrint? input?type=button?name=out_word1?onclick=javascript:AutomateExcel()??value=导出到excel?class=notPrint?? table?id=data?width=200?border=1?tr? ??td11/td???td11/td?/tr?tr? ??td22/td???td22/td?/tr?tr? ??td33/td???td33/td?/tr?tr? ??td44?/td???td44/td?/tr?/table?? SCRIPT?LANGUAGE=JavaScript?!--? function?AutomateExcel()? {? //?Start?Excel?and?get?Application?object.?var?oXL?=?new?ActiveXObject(Excel.Application);?//?Get?a?new?workbook.?var?oWB?=?oXL.Workbooks.Add();?var?oSheet?=?oWB.ActiveSheet;?var?table?=?document.all.data;?var?hang?=?table.rows.length;?var?lie?=?table.rows(0).cells.length;?//?Add?table?headers?going?cell?by?cell.?for?(i=0;ihang;i++)?{? for?(j=0;jlie;j++)?{? oSheet.Cells(i+1,j+1).Value?=?table.rows(i).cells(j).innerText;?}?}? oXL.Visible?=?true;?oXL.UserControl?=?true;?}?//--?/SCRIPT?导出到Word代码? script?language=vbscript?Sub?buildDoc? set?table?=?document.all.data?row?=?table.rows.length? column?=?table.rows(1).cells.length? Set?objWordDoc?=?CreateObject(Word.Document)? #39;objWordDoc.Application.Documents.Add?theTemplate,?False?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