- var oExcel; // Open Excel
- var oExcelSheet; // Sheet Excel
- var oWkBooks;
-
- // COPY THE CURRENT PAGE
- textRange = document.body.createTextRange();
- textRange.moveToElementText(divMain);
- textRange.execCommand("Copy");
-
- // OPEN EXCEL
- oExcel = new ActiveXObject('Excel.Application');
- oWkBooks = oExcel.Workbooks.Add;
- oExcelSheet = oWkBooks.Worksheets(1);
- oExcelSheet.Application.Visible = true;
-
- oExcelSheet.Activate();
-
- oExcel.ActiveSheet.Range('A1').Select;
- oExcel.ActiveSheet.PasteSpecial(0,false,false);
-
-
- oExcel.ActiveSheet.Cells.EntireColumn.AutoFit;
- oExcel.ActiveSheet.Range('A1').Select;
-
-
var oExcel; // Open Excel
var oExcelSheet; // Sheet Excel
var oWkBooks;
// COPY THE CURRENT PAGE
textRange = document.body.createTextRange();
textRange.moveToElementText(divMain);
textRange.execCommand("Copy");
// OPEN EXCEL
oExcel = new ActiveXObject('Excel.Application');
oWkBooks = oExcel.Workbooks.Add;
oExcelSheet = oWkBooks.Worksheets(1);
oExcelSheet.Application.Visible = true;
oExcelSheet.Activate();
oExcel.ActiveSheet.Range('A1').Select;
oExcel.ActiveSheet.PasteSpecial(0,false,false);
oExcel.ActiveSheet.Cells.EntireColumn.AutoFit;
oExcel.ActiveSheet.Range('A1').Select;