Här är ett enkelt script om du behöver importera data från Excel till Lotus Notes. Scriptet skapar ett dokument för varje rad i excel.
För varje rad hämtar scriptet kolumn 1, 2 och 3 och lagrar i fält i Lotus Notesdokumenten.
Ett exempel på när detta kan vara användbart är om du har kontakter i Excel och vill importera dessa till din personliga Addressbok i Lotus Notes
Du behöver ange följande i scriptet
- Var excelfilen ligger.
- Hur många rader som ska läsas i excelfilen. dvs hur många dokument som ska skapas i Lotus Notes.
- Vilken Lotus Notesdatabas du vill skapa dokumenten i.
- Vilket formulärnamn du vill ha på dokumenten som skapas i Lotus Notes.
- Vad ska fälten heta som värdena ska lagras i.
Scriptet förutsätter att du har excel installerat på den maskin där scriptet går samt att du har dina värden i första bladet i arbetsboken i kolumnerna 1,2 eller 3.
Sub Initialize
Dim session As New notessession,xdb As notesdatabase
Dim excel As Variant,excelbok As Variant,excelblad As Variant
Dim doc As notesdocument,i As Integer
Const Filename = "c:\minakontakter.xls"
Const MaxRader = 10
Set xdb=session.GetDatabase("","names.nsf")
Set excel = CreateObject("Excel.Application")
excel.Visible = False
Set excelbok=excel.Workbooks.Open(Filename)
Set excelblad =excelbok.Worksheets(1)
For i = 1 To MaxRader
Set doc = xdb.createdocument
doc.Form = "Contact"
doc.fld1 = excelblad.cells(i,1).value
doc.fld2 = excelblad.cells(i,2).value
doc.fld3 = excelblad.cells(i,3).value
Call doc.save(True,False)
Next
Call excelbok.close()
Call excel.quit()
End Sub
Lämna gärna en kommentar