Excel Datei importieren, Daten mit Datenbank verlgeichen, doc ändern ....

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkspace
	Dim session As New NotesSession
	Dim vw As NotesView
	Dim db As NotesDatabase
	Dim e  As Excel
	Dim iknrexcel As String
	Dim kunnrexcel As String
	Dim zeile As Long
	Dim vcl As NotesViewEntryCollection
	Dim ventry As NotesViewEntry
	Dim filename As Variant

	Set db = session.CurrentDatabase
	Set vw = ws.CurrentView.View

	filename = ws.OpenFileDialog( _
	True, "Wählen Sie die Datei für den Import!",,"") 


	Set e = New Excel()
	Call e.open(Cstr(filename(0))) 

	For zeile = 2 To 65000 

		iknrexcel = Cstr(e.getCells(zeile,1))
		If Len(Trim(iknrexcel)) > 0 Then	
			Set vcl = vw.GetAllEntriesByKey(iknrexcel,True) 

			If vcl.Count > 0 Then 
				Set ventry = vcl.GetFirstEntry 
				Call e.setCells(zeile,8,ventry.ColumnValues(1))
			End If  
		Else
			e.save("")
			Exit For
		End If			
	Next	
End Sub