HTML以Word或Excel打开

最新推荐文章于 2021-06-30 06:19:11 发布

hlhpyasd

最新推荐文章于 2021-06-30 06:19:11 发布

阅读量275

点赞数

文章标签： Excel HTML J# JavaScript ViewUI

本文链接：https://blog.csdn.net/hlhpyasd/article/details/83879625

版权

<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" οnclick="CellAreaExcel();" value="Excel"><br>
<input type="button" οnclick="AllAreaWord();" value="Word"><br>
<input type="button" οnclick="AllAreaExcel();" value="DaYin">
</html>

hlhpyasd

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
HTML以Word或Excel打开

&lt;html&gt;&lt;script lanage="javascript"&gt;function CellAreaExcel(){ //以Excel打开 var oXL = new ActiveXObject("Excel.Application"); var oWB=oXL.Workbooks.Add(); var oSheet = oWB.ActiveSheet; var Lenr...
复制链接

扫一扫