Allt om Lotus Notes & Domino

• 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.

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
	
	' Var finns excelfilen
	Const Filename = "c:\minakontakter.xls"
	
	' Hur många rader ska läsas i excel
	Const MaxRader = 10
	
	' Ange notesdatabasen du vill skapa dokument i
	Set xdb=session.GetDatabase("","names.nsf")
	
	' Koppla upp mot Excel
	Set excel = CreateObject("Excel.Application")
	excel.Visible = False
	
	' Öppna Exceldokumentet
	Set excelbok=excel.Workbooks.Open(Filename)
	Set excelblad =excelbok.Worksheets(1)
	
	' Skapa 1 dokument i Notes för varje rad i Excel
	' Lägg till värden i kolumnerna 1,2,3 i Excel till notesdocumentet.
	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
	
	' Stäng arbetsboken och Excel
	Call excelbok.close()
	Call excel.quit()
	
End Sub