将Excel文件中的数据导入到表单

用JavaScript编写将Excel文件数据导入到表单

步骤：

1、创建对象

var exApp = new ActiveXObject("Excel.Application");

2、获取Excel文件对象

var excelFile=exApp.Workbooks.Open("C:\\myExcelFile.xls");

3、获取工作表对象

//获取Excel文件中的第一个工作表sheet1    
var sheet1 = excelFile.Worksheets(1);

4、获取Excel工作表中单元格对象

var cell1 = sheet1.Cells(行号,列号);

//以下是获取第一行第一列
var cell1 = sheet1.Cells(1,1);

5、获取单元格中的值

var cell1Value = cell1.value;
alert(cell1Value);

 

例：以下在Domino数据库表单中加入JavaScript代码完成导入功能

1、新建一个数据库，建立一个表单，然后创建以下内容

2、建立导出Excel热点，onClick事件代码如下：

window.open('loadFile','','width=500,height=100,menubar=yes,status=yes,toolbar=yes,location=yes,scrollbars=no');

 

3、创建loadFile表单

4、在确定按钮上添加事件代码，代码如下：

var exApp = new ActiveXObject("Excel.Application");
var fileFullPath = document.all.myFile.value;
var bk=exApp.Workbooks.Open(fileFullPath);
window.opener.document.all.a1.value = bk.Worksheets(1).Cells(1,1).value;
window.opener.document.all.a2.value = bk.Worksheets(1).Cells(1,2).value;
window.opener.document.all.a3.value = bk.Worksheets(1).Cells(1,3).value;
window.opener.document.all.b1.value = bk.Worksheets(1).Cells(2,1).value;
window.opener.document.all.b2.value = bk.Worksheets(1).Cells(2,2).value;
window.opener.document.all.b3.value = bk.Worksheets(1).Cells(2,3).value;
window.opener.document.all.c1.value = bk.Worksheets(1).Cells(3,1).value;
window.opener.document.all.c2.value = bk.Worksheets(1).Cells(3,2).value;
window.opener.document.all.c3.value = bk.Worksheets(1).Cells(3,3).value;
exApp.Quit();
exApp = null;
window.close();

运行效果如下：