先上代码 <script type="text/javascript" language="javascript"> var idTmr; function getExplorer() { var explorer = window.navigator.userAgent; //ie if (explorer.indexOf("MSIE") >= 0) { return 'ie'; } …
<html> <head> <script type="text/javascript" language="javascript"> var idTmr; function method1(tableid) {//整个表格拷贝到EXCEL中 var curTbl = document.getElementById(tableid); var oXL = new ActiveXObject("Excel.Applicat…
1.添加引用Microsoft Excel 14.0 Object Library 2.编写代码部分 Private Sub Output_Click() Dim i As Integer '定义变量 Dim j As Integer Dim Excelapp As Excel.Application Dim Excelbook As Excel.Workbook Dim Excelsheet As Excel.Worksheet Set Excelapp = New Excel.Applica…