浏览器客户端导出指定区域到Word、Excel

 转自：http://www.zhenhua.org/article.asp?id=568

1. <table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor = "#61FF13">
2. <TR style="text-align : center;">
3.  <TD>单元格A</TD>
4.  <TD>单元格A</TD>
5.  <TD>单元格A</TD>
6.  <TD>单元格A</TD>
7. </TR>
8. <TR>
9.  <TD colSpan=4 style="text-align : center;"><font color="BLUE" face="Verdana">单元格合并行A</FONT></TD>
10. </TR>
11. </TABLE>
12. <table id = "PrintB" width="100%" border="1" cellspacing="0" cellpadding="0">
13. <TR style="text-align : center;">
14.  <TD>单元格B</TD>
15.  <TD>单元格B</TD>
16.  <TD>单元格B</TD>
17.  <TD>单元格B</TD>
18. </TR>
19. <TR>
20.  <TD colSpan=4 style="text-align : center;">单元格合并行B</TD>
21. </TR>
22. </TABLE>
23. <br/>
24. <input type="button" onclick="javascript:AllAreaWord();" value="导出页面指定区域内容到Word">
25. <input type="button" onclick="javascript:AllAreaExcel();" value="导出页面指定区域内容到Excel">
26. <input type="button" onclick="javascript:CellAreaExcel();" value="导出表单单元格内容到Excel">
28. <SCRIPT LANGUAGE="javascript">
29.  //指定页面区域内容导入Excel
30.  function AllAreaExcel() 
31.  {
32.  var oXL = new ActiveXObject("Excel.Application"); 
33.  var oWB = oXL.Workbooks.Add(); 
34.  var oSheet = oWB.ActiveSheet; 
35.  var sel=document.body.createTextRange();
36.  sel.moveToElementText(PrintA);
37.  sel.select();
38.  sel.execCommand("Copy");
39.  oSheet.Paste();
40.  oXL.Visible = true;
41.  }
42.  //指定页面区域“单元格”内容导入Excel
43.  function CellAreaExcel() 
44.  {
45.  var oXL = new ActiveXObject("Excel.Application"); 
46.  var oWB = oXL.Workbooks.Add(); 
47.  var oSheet = oWB.ActiveSheet; 
48.  var Lenr = PrintA.rows.length;
49.  for (i=0;i<Lenr;i++) 
50.  { 
51.  var Lenc = PrintA.rows(i).cells.length; 
52.  for (j=0;j<Lenc;j++) 
53.  { 
54.  oSheet.Cells(i+1,j+1).value = PrintA.rows(i).cells(j).innerText; 
55.  } 
56.  } 
57.  oXL.Visible = true; 
58.  }
59.  //指定页面区域内容导入Word
60.  function AllAreaWord()
61.  {
62.  var oWD = new ActiveXObject("Word.Application");
63.  var oDC = oWD.Documents.Add("",0,1);
64.  var oRange =oDC.Range(0,1);
65.  var sel = document.body.createTextRange();
66.  sel.moveToElementText(PrintA);
67.  sel.select();
68.  sel.execCommand("Copy");
69.  oRange.Paste();
70.  oWD.Application.Visible = true;
71.  //window.close();
72.  }
73. </SCRIPT>