用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);
var sheet1 = excelFile.Worksheets(1);
4、獲取Excel工作表中單元格對象
var cell1 = sheet1.Cells(行號,列號);
//以下是獲取第一行第一列
var cell1 = sheet1.Cells(1,1);
//以下是獲取第一行第一列
var cell1 = sheet1.Cells(1,1);
5、獲取單元格中的值
var cell1Value = cell1.value;
alert(cell1Value);
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();
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();
運行效果如下:
附件:Domino數據庫,版本7.0.2