关于Excel数据导入数据库的问题?

Set excelApplication=CreateObject("Excel.Application")
Set excelWorkbook =excelApplication.Workbooks.Open("e:\excel\111.xls")
Set excelsheet=excelWorkbook.Worksheets(1)
i = 1
stemp = excelSheet.Cells(i,1).Value
Do Until Cstr(stemp)=""
Set cpdoc=New NotesDocument(db)
cpdoc.form="frmNewPeopleInfo"
cpdoc.txtID = "0"+Cstr(excelsheet.Cells(i,1).Value)    '1ID号
cpdoc.txtName = excelsheet.Cells(i,2).Value   '3姓名
cpdoc.sglSex = excelsheet.Cells(i,3).Value    '4性别
cpdoc.dlgDep = excelsheet.Cells(i,4).Value    '5部门
i = i + 1
Call cpdoc.Save(True,True)
stemp = excelSheet.Cells(i,1).Value
Loop

Print "<script language='JavaScript'>"
Print {alert("从EXCEL向数据库导入数据完毕！");}
Print "</script>"
我简写了这段代码,我觉得这段代码没有问题呀,为什么运行后在数据库中找不到要导入的数据? --------------------编程问答-------------------- e:\excel\111.xls
这是找的服务器上的位置
你代理是在服务器上运行的,所以~~~ --------------------编程问答-------------------- 也许是路径问题吧.. 写点调试信息吧. 看是否得到了 111.xls.等等

如果是B/S的系统.. 可以用JS读Excel,然后JS调用代理,把数据导入到库中去.
--------------------编程问答-------------------- 跟踪调试下程序，否则不知道那步有问题的，看看各个变量是不是都有正确的值． --------------------编程问答-------------------- excelApplication.Workbooks.Open("e:\excel\111.xls")
没有得到服务器上的 111.xls
B/S 你可以先上传到服务器上，然后再做操作 --------------------编程问答-------------------- 但我是在本地运行的呀，就是整个数据库是本地的数据库

补充：企业软件 ,  Lotus