HTML以Word或Excel打开

<html>
<script lanage="javascript">
function CellAreaExcel(){
 //以Excel打开
 var oXL = new ActiveXObject("Excel.Application");
 var oWB=oXL.Workbooks.Add();
 var oSheet = oWB.ActiveSheet;
 var Lenr = PrintA.rows.length;
 for(i=0;i<Lenr;i++){
  var Lenc = PrintA.rows(i).cells.length;
  for(j=0;j<Lenc;j++){
   oSheet.Cells(i+1,j+1).value=PrintA.rows(i).cells(j).innerText;
  }
 }
 oXL.Visible = true;
}
//指定页面区域内容以Excel打开
function AllAreaExcel(){
 var oXL = new ActiveXObject("Excel.Application");
 var oWB = oXL.Workbooks.Add();
 var oSheet = oWB.ActiveSheet;
 var sel = document.body.createTextRange();
 sel.moveToElementText(PrintA);
 sel.select();
 sel.execCommand("Copy");
 oSheet.Paste();
 oXL.Visible = true;
}
//指定页面区域内容以Word打开
function AllAreaWord(){
 var oWD = new ActiveXObject("Word.Application");
 var oDC = oWD.Documents.Add("",0,1);
 var oRange = oDC.Range(0,1);
 var sel = document.body.createTextRange();
 sel.moveToElementText(PrintA);
 sel.select();
 sel.execCommand("Copy");
 oRange.Paste();
 oWD.Application.Visible = true;
}
</script>
<body>
<table id ="PrintA" border = "1">
<tr><td clospan="2">S0A1</td></tr>
<tr><td>S1</td><td>A1</td></tr>
<tr><td>S2</td><td>A2</td></tr>
<tr><td>S3</td><td>A3</td></tr>
</table>
</body>
<input type="button" onclick="CellAreaExcel();" value="Excel"><br>
<input type="button" onclick="AllAreaWord();" value="Word"><br>
<input type="button" onclick="AllAreaExcel();" value="DaYin">
</html>

你可能感兴趣的:(JavaScript,html,Excel,J#)