title image


Smiley Re: Hab ich da grad Beispiel gelesen?
das ist das beispiel das ich programmiert hab ... is zwar noch ned fertig aber du kannst sehen wie die verbindung zu excel hergestelltl wird ... wenns fragen gibt ... FRAG! :-)Gruß Odi Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Dim namesdb As notesdatabase Dim namesview As notesview Dim namesdoc As notesdocument Dim nn As notesname Dim vorgesetzteview As notesview Dim vorgesetztedoc As notesdocument Dim leserliste () As String Set db = session.currentdatabase Set vorgesetzteview = db.getview("(handybesitzer)") Set namesdb = session.getdatabase("OVIDNOTES01/OVID/AT", "names.nsf") Set namesview = namesdb.getview("($NamesFieldLookup)") pfad = session.getenvironmentstring("hr_pfad") If pfad = "" Then Exit Sub jahr = Inputbox("Bitte geben Sie das Jahr an für welches die Rechnungen gültig sind (z.B.: 1999)") If Not Isnumeric(jahr) Then Msgbox ("Bitte geben Sie eine ganze Zahl für das Rechnungsdatum an!") Exit Sub End If Dim Excel As Variant Dim xlWorkbook As Variant Dim xlSheet As Variant Print "Connecting to Excel..." Set Excel = CreateObject( "Excel.Application" ) Excel.Visible = False '// Don't display the Excel window Excel.workbooks.open(pfad) Set xlWorkbook = Excel.ActiveWorkbook Set xlSheet = xlWorkbook.ActiveSheet '// Cycle through the rows of the Excel file, pulling the data over to Notes Goto Records Do Until 1 > 2 i = i + 1 '---- Nachname temp = "B" + Cstr(i) '---- Betrag temp2 = "N" + Cstr(i) '---- Vorname temp3 = "D" + Cstr(i) If xlsheet.range(temp).value = "" Then Exit Do End If Set doc = New notesdocument(db) namen = Lcase(xlsheet.range(temp).value + " " + xlsheet.range(temp3).value) Set namesdoc = namesview.getdocumentbykey(namen ,True) If Not namesdoc Is Nothing Then Set nn = New notesname(namesdoc.fullname(0)) doc.besitzer = nn.abbreviated Set vorgesetztedoc = vorgesetzteview.getdocumentbykey(nn.abbreviated, True) doc.form = "handyrechnung" doc.jahr = jahr If xlsheet.range(temp2).value "" Then doc.betrag = xlsheet.range(temp2).value Else '-------EXCEPTION -> KEINE RECHNUNGSBETRAG IM EXCEL-Sheet End If Redim Preserve leserliste(1) As String leserliste(0) = "[DokReader]" leserliste(1) = namesdoc.fullname(0) x = 2 y = 0 If Not vorgesetztedoc Is Nothing Then temp_y = Ubound(vorgesetztedoc.vorgesetzte) Do Until y > Cdbl(temp_y) Redim Preserve leserliste(x) As String leserliste(x) = vorgesetztedoc.vorgesetzte(y) x = x + 1 y = y + 1 Loop Else '------ EXCEPTION kein Doc für den Handybesitzer in der Datenbank End If doc.leser = leserliste Call doc.save(True, True) Else '--------- AUSNAHMEROUTINE -> PERSON NICHT IM NAB End If Loop Print "Disconnecting from Excel..." xlWorkbook.Close False '// Close the Excel fi Set view = db.getview("Rechnungen\nach Handynummer") Call view.refresh Set view = db.getview("Rechnungen\nach Name") Call view.refresh

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: