代码如下:<script> function readThis(){ var tempStr = ""; var filePath= document.all.upfile.value; var oXL = new ActiveXObject("Excel.application"); var oWB = oXL.Workbooks.open(filePath); oWB.worksheets(1).select(); var oSheet = oWB.ActiveSheet; try{ for(var i=2;i<46;i++){ if(oSheet.Cells(i,2).value =="null" || oSheet.Cells(i,3).value =="null" ) break; var a = oSheet.Cells(i,2).value.toString()=="...
本人是在实际项目中摸索出,JS读写Excel(模板)数据,包括怎么用JS把图片插入Excel中。首先,添加一个公用的模板地址JS,如下: AddZDaddress.js 代码如下://///////////////////////////////////////////////////////////////////////////////////////////////// ////DocName:信任站点地址添加--AddZDaddress.js ////Author:lify ////Company:Wavenet ////Date:2009-11-04 ////EditDate:2010-03-11 ////MainContent:Findings,Aj...
做法: 修改Input的outerHTML; 具体例子: 代码如下:function resetInput() { var controls = document.getElementsByTagName(input); for(var i=0; i<controls.length; i++){ if(controls[i].type==text) { if(controls[i].value =="") { controls[i].outerHTML=" "; } else { controls[i].outerHTML=controls[i].value; } } } } 这样就可以将Input修改,然后导出到Excel中。(一次循环不能全部修改,根据情况,自己做些修改...
1.保存html页面到word 代码如下:<HTML> <HEAD> <title> </title> </HEAD> <body> <form id="form"> <table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="0" > <TR style="text-align : center;"> <TD>单元格1</TD> <TD>单元格2</TD> <TD>单元格3</TD> <TD>单元格4</TD> </TR> <TR> <TD colSpan=4 style="text-align : center;"><font color="red" face="Verdana">单元格合并</FONT></TD> </TR> </TABLE> ...
首页给个有中文说明的例子,下面的例子很多大家可以多测试。 代码如下:<script language="javascript" type="text/javascript"><!-- function readExcel() { var excelApp; var excelWorkBook; var excelSheet; try{ excelApp = new ActiveXObject("Excel.Application"); excelWorkBook = excelApp.Workbooks.open("C:\\XXX.xls"); excelSheet = oWB.ActiveSheet; //WorkSheets("sheet1") excelSheet.Cells(6,2).value;//cell的值 ...
代码如下:ExcelOperation = function(){ this.oXL = null; this.oWB = null; this.oSheet = null; this.xlsRowCount = 0; //总记录数 this.excelFileName = null; this.currentRow = 2; //当前行 /** * 得到EXCEL表格中的总记录数 */ this.getRowCount = function(){ //oSheet.Range("C1").Sort(oSheet.Columns("C"),xlAscending); var rowsCount = this.oSheet.UsedRange.Cells.Rows.Count; return rowsCount; } /** * 按指定的列...
另外的方法就是用flash了,它可以避开浏览器的安全限制,但是system类中只有set的方法,另外的clipboard类中倒是能访问到,但是似乎需要flash10的版本支持。网上找了一圈,没啥发现。终于想到去看看google sheet是怎么干的。 发现google sheet实现了excel的纯文本的多数据格粘贴,没有安全限制的需要,没有使用flash。可能很多人都知道这种方法了,反正我一开始很惊讶的,但是无奈,google的js文件是处理过的,看起来太累了。然后又...
1创建 var XLObj = new ActiveXObject("Excel.Application" ); var xlBook = XLObj.Workbooks.Add; //新增工作簿 var ExcelSheet = xlBook.Worksheets(1); //创建工作表 2.保存表格 ExcelSheet.SaveAs("C:\\TEST.XLS" ); 3.使 Excel 通过 Application 对象可见 ExcelSheet.Application.Visible = true; 4.打印 xlBook.PrintOut; 或者: ExcelSheet.PrintOut; 5.关闭 xlBook.Close(savechanges=false); 或者: ExcelSheet.Close(savec...
代码如下:<table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor = "#61FF13"> <TR style="text-align : center;"> <TD>单元格A</TD> <TD>单元格A</TD> <TD>单元格A</TD> <TD>单元格A</TD> </TR> <TR> <TD colSpan=4 style="text-align : center;"><font color="BLUE" face="Verdana">单元格合并行A</FONT></TD> </TR> </TABLE> <table id = "PrintB" width="100%" border="1" cellspacing="0" c...
Description Demonstration script that opens an existing Excel spreadsheet named C:\Scripts\New_users.xls. 代码如下:Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\New_users.xls")
Script Code 代码如下:Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(1, 1).Value = "Test value"
Description Demonstration script that reads the values stored in a spreadsheet named C:\Scripts\New_users.xls. Script Code 代码如下:Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open _ ("C:\Scripts\New_users.xls") intRow = 2 Do Until objExcel.Cells(intRow,1).Value = "" Wscript.Echo "CN: " & objExcel.Cells(intRow, 1).Value Wscript.Echo "sAMAccoun...
Description Demonstration script that displays the various colors -- and their related color index -- available when programmatically controlling Microsoft Excel. Script Code 代码如下:set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add For i = 1 to 56 objExcel.Cells(i, 1).Value = i objExcel.Cells(i, 1).Interior.ColorIndex = i Next
Script Code 代码如下:Const xpRangeAutoFormatList2 = 11 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Add() Set objWorksheet = objWorkbook.Worksheets(1) k = 1 For i = 1 to 10 For j = 1 to 10 objWorksheet.Cells(i,j) = k k = k + 1 Next Next Set objRange = objWorksheet.UsedRange objRange.AutoFormat(xp...
代码如下:<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <META http-equiv=Content-Type content="text/html; charset=utf-8"> <TITLE>Top30销控表</TITLE> </HEAD> <BODY> <input name="shanghai" type="button" class="but" id="shanghai" onClick="StartExcel(上海)" value="上海店"> <SCRIPT LANGUAGE="Javascript">... var idTmr = ""; function StartExcel(strFileName) ...{ ...