Hallo liebe Gemeinde,
ich würde gerne ein Array in einem Dokument speichern. Hintergrund ist, dass eine relativ Umfangreiche Auswertung gefahren wird, die den Client sonst 1 Stunde lahmlegt. Diese Auswertung soll auf den Server geschoben werden, so dass dieser nachts in Ruhe die Auswertung fahren kann und der User morgens nur noch "Exportiere nach Excel" drücken muss. Dazu muss dieses Array ja irgendwo geparkt werden.
Ich habe bereits hier im Forum gesucht und gefunden, dass ich ein Array über notesitem in ein Dokument speichern kann, wenn ich das allerdings versuche, erscheint der Fehler:
Fehler 4078 - Could not create field
Bisher liegt die Code für die Auswertung in einer Scribtlb, da ich erstmal nur die Sache mit dem Speichern eines Arrays in einem Dokument schaffen will. Alternativ hatte ich auch die Funktion direkt in das New Notesitem(....,Jahresabschluss()) geschrieben, hier gab der Funktionsaufruf das Array as Variant zurück. Hat aber auch nicht funktionert.
Die Dimension des Arrays ist im Bereich (1-11000,1-5,0-1).
| Sub Click(Source As Button) |
| On Error Goto Fehlermeldung |
| Dim ws As New Notesuiworkspace |
| Dim uidoc As Notesuidocument |
| Dim frontdoc As NotesDocument |
| |
| Set uidoc = ws.CurrentDocument |
| Set frontdoc = uidoc.Document |
| |
| Dim notesitem As Notesitem |
| Dim FehlerNExcel () As String |
| Call Jahresabschluss (FehlerNExcel) |
| Set notesitem = New Notesitem(frontdoc,"Abschluss", FehlerNExcel) |
| Call frontdoc.Save(1,1) |
| |
| |
| Exit Sub |
| |
| Fehlermeldung: |
| |
| Msgbox "Fehler " + Cstr(Err) + ": " + Error() + " in Zeile " + Cstr(Erl) + "aufgetreten(Jahreswechsel-Button) " |
| |
| Exit Sub |
| |
| End Sub |
Thorsten