用javascript实现把表格内容导出到excel和把excel里面内容导入表格的方法.docx_第1页
用javascript实现把表格内容导出到excel和把excel里面内容导入表格的方法.docx_第2页
用javascript实现把表格内容导出到excel和把excel里面内容导入表格的方法.docx_第3页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

用javascript实现把表格内容导出到excel和把excel里面内容导入表格的方法 文件作者 谢晓文 2010-06-08 09:53 阅读 (133) 点评 (3) 资料说明南京泉峰项目的客户提出可以把excel的数据导入到表格中,但是客户这边的服务器环境没有安装excel,所以不能写ls代理实现。所以找了一个js方法可以满足他们的需求,这里简单推荐一下。顺便把表格导出到excel的js方法也说一下。一、把excel里面内容导入表格,其实就是把excel每个单元格数据取出赋值到表格之中1.js方法/从excel导入数据到表格的方法function importExcel(fileName)objCon=new ActiveXObject(ADODB.Connection);objCon.Provider=Microsoft.Jet.OLEDB.4.0;objCon.ConnectionString=Data Source=+fileName+;Extended Properties=Excel 8.0;objCon.CursorLocation=1;objCon.Open;var strQuery;var strSheetName=Sheet1$;var rsTemp=new ActiveXObject(ADODB.Recordset);rsTemp=objCon.OpenSchema(20);if(!rsTemp.EOF) strSheetName=rsTemp.Fields(Table_Name).Value;rsTemp=null rsExcel=new ActiveXObject(ADODB.Recordset);strQuery=SELECT * FROM +strSheetName+;rsExcel.ActiveConnection=objCon;rsExcel.Open(strQuery);var j = 1;while(!rsExcel.EOF)for(i=0;irsExcel.Fields.Count;i+)/取出excel表格每一个单元格的值,赋值到表格中tFeeList.rowsj.cellsi+1.all.F_TmpInput.value = rsExcel.Fields(i).value;rsExcel.MoveNext;j+;objCon.Close;objCon=null;rsExcel=null;2.在表单需要的地方加上导入的按钮3.直接用方法实现不负责,不过ie的安全需要设置一下二、把表格内容导出到excel1.js方法function exportExcel(tableid) /整个表格拷贝到EXCEL中 var curTbl = document.getElementById(tableid); var oXL = new ActiveXObject(Excel.Application); /创建AX对象excel var oWB = oXL.Workbooks.Add(); /获取workbook对象 var oSheet = oWB.ActiveSheet; /激活当前sheet var Lenr = curTbl.rows.length; /取得表格行数 oSheet.columns.columnwidth = 20oSheet.columns(1).columnwidth = 5/oSheet.columns(2).columnwidth = 0for (i = 0; i Lenr; i+) var Lenc = curTbl.rows(i).cells.length; /取得每行的列数 for (j = 0; j Lenc; j+) if (j = 0) oSheet.Cells(i + 1,1).value = curTbl.rows(i).cells(j).innerText;else if (j = 1) continue;else if (j = 5) oSheet.Cells(i + 1, j).value = No:+curTbl.rows(i).cells(j).innerText;else oSheet.Cells(i + 1, j).value = curTbl.rows(i).cells(j).innerText; /赋值 oXL.Visible = true; /设置excel可见属性 2.调用上面方法

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论