数据导入(Lotus Notes)

从文本导入
Sub Initialize
On Error Goto UnknowError
Msgbox "开始导入"
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim docPerson As NotesDocument
Dim docTemp As NotesDocument
Dim vFile As Variant
Dim strMyname As String
Dim strDeptNO As String
Dim strDeptName As String
Dim strFile As String
Dim V1 As String
Dim NO,myname,sex,deptNo,deptName,duty,office,phone,mobile,fax,mail,IP,postalcode,address,remark As String

Set db=session.CurrentDatabase
Set doc=session.DocumentContext
vFile =Evaluate({@AttachmentNames},doc)
strFile =Cstr(vFile(0))
Msgbox strFile
Dim ebd As NotesEmbeddedObject
Set ebd=doc.GetAttachment(strFile)
Msgbox ebd Is Nothing
Call ebd.extractFile(strFile )
Open strFile For Input As 10
Dim i As Integer
i=1
If Not Eof(10) Then
Input #10,V1
End If
continue: Do While Not Eof(10)
Input #10,V1
If V1="" Then
Goto continue
Else
myname=Strtoken(V1," ",1)
sex=Strtoken(V1," ",2)
deptName=Strtoken(V1," ",3)
duty=Strtoken(V1," ",4)
office=Strtoken(V1," ",5)
phone=Strtoken(V1," ",6)
mobile=Strtoken(V1," ",7)
fax=Strtoken(V1," ",8)
mail=Strtoken(V1," ",9)
IP=Strtoken(V1," ",10)
postalcode=Strtoken(V1," ",11)
address=Strtoken(V1," ",12)
remark=Strtoken(V1," ",13)
End If
If myname="" Then
Print {<script>alert("第} & i & {条记录姓名为空，未导入");history.go(-1);</script>}
Goto continue
End If
If deptName="" Then
Print {<script>alert("第} & i & {条记录部门名称为空，未导入");history.go(-1);</script>}
Goto continue
End If
If phone="" Then
Print {<script>alert("第} & i & {条记录固定电话为空，未导入");history.go(-1);</script>}

Goto continue
End If
If mobile="" Then
Print {<script>alert("第} & i & {条记录手机号码为空，未导入");history.go(-1);</script>}
Goto continue
End If
Set docPerson=db.CreateDocument
docPerson.form="PersonInfo"
docPerson.myName=myname
docPerson.sex=sex
docPerson.dept=deptName
docPerson.duty=duty
docPerson.office=office
docPerson.phone=phone
docPerson.mobile=mobile
docPerson.fax=fax
docPerson.mail=mail
docPerson.IP=IP
docPerson.postalcode=postalcode
docPerson.address=address
Dim ritem As NotesRichTextItem
Set ritem=New NotesRichTextItem(docPerson,"remark")
ritem.text=remark
Call docPerson.Save(True,False)
Loop
Close #10
Kill strFile
Print {<script>alert("导入成功")</script>}
Exit Sub
UnknowError:
Msgbox "错误行:" & Erl & "错误信息:" & Error
Exit Sub
End Sub

b) Excel导入到notes中
Dim session As New notessession
Dim db As notesdatabase
Dim view As notesview
Dim doc As notesdocument
Dim tempdoc As notesdocument
Dim w As New notesuiworkspace
Dim authorsItem As NotesItem
Dim collection As NotesDocumentCollection
Dim v(0) As String
Dim r As Integer
Dim xlapp As Variant
Dim xlbook As Variant
Dim xlsheet As Variant

Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()

Eval = Evaluate(|@IsNotMember("[Administrator]";@UserRoles)|,doc) '用户执行操作时的判断权限
If Eval(0) = 1 Then
Msgbox "对不起,您无权使用此权限!请与管理员联系",0+16,"提示"
Exit Sub
End If

REM 导入数据时，不采用绝对的路径和文档名称
Dim files As Variant
files = w.OpenFileDialog(True, "打开Excel文档","", "D:")
Set db = session.currentdatabase
If Isempty(files(0)) Then
Exit Sub
Else
Set xlApp = CreateObject("Excel.Application") '创建Excel应用类
xlApp.Visible = False '设置Excel为不可见
Set xlBook = xlApp.Workbooks.Open(files(0)) '打开Excel工作薄


REM 设置打开Excel的第几个工作表
num =Cstr(Inputbox$("请问您想导入的工作表为第几个?"))
If num = "" Then
Exit Sub
End If
a = Cint(num)
Set XlSheet = xlBook.Worksheets(a) '打开Excel工作表
End If

r = 4
While Not Cstr(xlsheet.cells(r,1).value) = ""
Set doc = New NotesDocument(db)

doc.Form = "shenqing"
doc.date_1 = xlsheet.cells(r,1).value '申请日期
doc.Deft = xlsheet.cells(r,2).value '申请部门
doc.Text_5 = xlsheet.cells(r,3).value '申请工作区域
doc.Text_1 = xlsheet.cells(r,4).value '来访人员姓名
doc.CheckBox_2 = xlsheet.cells(r,5).value '来访人员有效证件名称
doc.Text_2 = xlsheet.cells(r,6).value '来访人员有效证件号码
doc.Text_3 = xlsheet.cells(r,7).value '来访人员公司名称
doc.sdate = xlsheet.cells(r,8).value '工作有效期限
doc.Text_9 = xlsheet.cells(r,9).value '发放证件编号

r = r+1
Print r

REM "编号的生成"
DateKey1 = Cstr(Format(doc.date_1(0),"yyyy")) '取原始数据中的年
DateKey2 = Cstr(Format(doc.date_1(0),"mm")) '取原始数据中的月
DateKey3 = Cstr(Cint(DateKey1))+"-"+Cstr(Cint(DateKey2))

DateKey = DateKey1+DateKey2

Dim Numview As NotesView
Dim Numdoc As NotesDocument
Dim vc As NotesViewEntryCollection
Dim entry As NotesViewEntry

Set Numview = db.GetView( "AllByNumber" )
Call Numview.refresh
Set vc = Numview.GetAllEntriesByKey(DateKey3,True)

doc.import = 1 '设置表单数据倒入时的参数
doc.date = "" '使数据导入后，打开表单时不显示表单创建的时间

If vc.count =0 Then
doc.Number = DateKey+"001"
Else
Set entry = vc.GetFirstEntry()
Set Numdoc = entry.Document
K = Cint(Right(Numdoc.Number(0),3))+1
If K <10 Then
Key1 = "00"+Cstr(K)
Elseif K<100 Then
Key1 = "0"+Cstr(K)
Else
Key1 = Cstr(K)
End If
doc.Number = DateKey+Key1
End If
doc.SaveOptions = "1"
Call doc.save(False,True)

If doc.Text_9(0) <> "" Then '流程参数设置
doc.lei = "已完成"
doc.actionnumber = "-1"
doc.statu = 2
doc.saveoptions = "1"
Call doc.save(False,True)
End If
Wend

Call xlbook.close(True)
Call xlapp.quit
Msgbox"导入完毕",0+32,"提示"

c) Excel导入notes之java版本
import lotus.domino.*;
import java.io.*;
import java.util.Vector;
import jxl.*;
import java.io.PrintWriter;

public class JavaAgent extends AgentBase {

public void NotesMain() {
System.out.println("11111111");
Session ss = getSession();
String srcFile = null;
String s=null;
Workbook rwb = null;
Document doc = null;
//'Cell ck0 = null;
InputStream inps = null;
Sheet rs=null;
int totalnum=0;
System.out.println("2222222222");
PrintWriter pw = getAgentOutput();
EmbeddedObject ebd = null;
File f=null;
try {
System.out.println("33333333333333");
AgentContext agt = ss.getAgentContext();
Document cdoc = agt.getDocumentContext();
Database cdb = agt.getCurrentDatabase();
DocumentCollection dc = null;
Agent ag=null;
String strdata = null;
String strContent = null;
Double dob=null;
StringBuffer tmpstr=new StringBuffer("1");

Vector vtr = ss.evaluate("@AttachmentNames",cdoc);
srcFile =new String(""+vtr.get(0).toString());
ebd = cdoc.getAttachment(srcFile);
System.out.println(srcFile);
ebd.extractFile(srcFile);
System.out.println("44444444asdfasdf");

//ebd.recycle();
//创建文件流，然后输出excel表格
inps = new FileInputStream(srcFile);
rwb = Workbook.getWorkbook(inps);
if (ebd==null)
{
rwb.close();
rwb = null;
return;
}
if (ebd.getType()!=EmbeddedObject.EMBED_ATTACHMENT)
{
rwb.close();
rwb = null;
return;
}
//读取第一张sheet

rs = rwb.getSheet(0);

Vector errRecord = new Vector();

for (int k=1;k<rs.getRows();k++)
{
System.out.println("44444444444444444444");

Cell ck0 = rs.getCell(0,k);
Cell ck1 = rs.getCell(1,k);
Cell ck2 = rs.getCell(2,k);
Cell ck3 = rs.getCell(3,k);
Cell ck4 = rs.getCell(4,k);
Cell ck5 = rs.getCell(5,k);
Cell ck6 = rs.getCell(6,k);
Cell ck7 = rs.getCell(7,k);
Cell ck8 = rs.getCell(8,k);
Cell ck9 = rs.getCell(9,k);
Cell ck10 = rs.getCell(10,k);
Cell ck11 = rs.getCell(11,k);
Cell ck12 = rs.getCell(12,k);
Cell ck13 = rs.getCell(13,k);

if(!ck0.getContents().equals(""))
{
System.out.println("55555555");
doc=cdb.createDocument();
doc.appendItemValue("Form", "PersonInfo");
if(!ck0.getContents().equals(""))
{
doc.appendItemValue("NO", ck0.getContents());
}
if(!ck1.getContents().equals(""))
{
doc.appendItemValue("myname",ck1.getContents());
}
if(!ck2.getContents().equals(""))
{
doc.appendItemValue("sex", ck2.getContents());
}
if(!ck3.getContents().equals(""))
{
doc.appendItemValue("dept", ck3.getContents());

}
if(!ck4.getContents().equals(""))
{
doc.appendItemValue("duty", ck4.getContents());

}
if(!ck5.getContents().equals(""))
{
doc.appendItemValue("office", ck5.getContents());

}
if(!ck6.getContents().equals(""))
{
doc.appendItemValue("phone", ck6.getContents());

}
if(!ck7.getContents().equals(""))
{
doc.appendItemValue("mobile", ck7.getContents());

}
if(!ck8.getContents().equals(""))
{
doc.appendItemValue("fax", ck8.getContents());

}

if(!ck9.getContents().equals(""))
{
doc.appendItemValue("mail", ck9.getContents());

}
if(!ck10.getContents().equals(""))
{
doc.appendItemValue("IP", ck10.getContents());

}
if(!ck11.getContents().equals(""))
{
doc.appendItemValue("postalcode", ck11.getContents());

}
if(!ck12.getContents().equals(""))
{
doc.appendItemValue("address", ck12.getContents());

}
if(!ck13.getContents().equals(""))
{
RichTextItem rtitem = doc.createRichTextItem("remark");
doc.appendItemValue("remark", ck13.getContents());
}
if (doc.save())
System.out.println("Document has been saved");
else
System.out.println("Unable to save document");
}
}

} catch(Exception e)
{
System.out.println("error>>>>>"+e);

}
finally {
rwb.close();
try
{
inps.close();
boolean success = (new File(srcFile)).delete();
}
catch(Exception ex)
{
System.out.println(ex);
}
}

}

}