[Script] Export View nach Excel (neue Version)

[TMC]

Hi,

ich habe das - ursprünglich von Eknori erstellte - Excel-Export - Script verbessert, da ich dieses in eine DB implementiert habe.

Features:
+ ist jetzt eine Sub, die über den Aufruf Call ExcelExport ("MeineView") die angegebene View in Excel exportiert
+ zeigt über eine Notes-ProgressBar den aktuellen Stand des Exports an
+ vieles im ursprünglichen Code bereinigt
+ mit ErrorHandling
+ verbesserte Formatierung der Excel-Datei

Nachdem schon das Script von Eknori OpenSource war, stelle ich hier meine überarbeitete Version rein.

Wie kann man den Code in die eigene Datenbank übernehmen:
Einfach in der angehängten DB auf "How to implement this code to your app" klicken.

Matthias


** Edit **
27.05.2004: Neue Version v2.1
+ Zeilenumbruch-Zeichen [] in Zellen werden entfernt
08.07.2004: Neue Version v2.2
+ Removed bug which occured when fields contained multiple values
+ Only one worksheet
+ worksheet name "LotusNotesExport"
09.07.2004: Neue Version v2.3
+ Bug fix (if field was empty, an error occured)
13.07.2004: Neue Version v2.4
+ Bug fix (if field was scalar and <> string, an error occured)
25.11.2004: Neue Version v2.5 - NUR FÜR ND6 ! (siehe Antwort # 27)
+ Bug fix: if a column formula was "", an error occurred
(---> siehe separaten .lss-Anhang, geht nur für ND6 !)

Download: (52 KB):

[eknori]

Danke für die Überarbeitung  

[TMC]

Gerne geschehen  

Ich danke Dir, Ulrich, für Dein ursprüngliches Script :-)

Ich habe auch schon im Sandkasten geschaut, aber Deine Routine war die sauberste, daher hab ich das darauf aufgebaut :-)

Matthias

[eknori]

funktioniert super;willst du es selber noch irgendwo im web posten, oder darf ich deine DB auf meiner Site veröffentlichen ?

Ulrich

[TMC]

>> funktioniert super
Prima, danke fürs austesten !

>> willst du es selber noch irgendwo im web posten, oder darf ich deine DB auf meiner Site veröffentlichen ?

Hab ich jetzt nicht vor;
go for it, kannst gerne auf eknori.de posten   Bidde dann noch den eknori.de-Link hier posten....

[MartinG]

Danke Euch beiden für das Script - ich habe es gerade auch eingebaut in eine DB von mir. Habe noch ein kl. Problem - in manchen Feldern welche ich exportiere sind Zeilenumbrüche drin und da macht das Script leider etwas hässliche Kästchen rein. Lässt sich das event noch korrigieren?

Gruss
Martin

[TMC]

Schau ich mir bei Gelegenheit an, Martin, und werde das noch einbauen.
Ich befürchte allerdings, dass dann das Script (merklich?) langsamer wird, weil wohl irgend ein Search&Replace laufen muss über alle Felder.

Muss ich mir aber im Detail anschauen.

[animate]

ich kenne das Script nicht, aber ich hab auch mal sowas gemacht und wegen dem, was Martin geschrieben hat, so ein ReplaceSubstring eingebaut.
Gemerkt hab ich nix. Kommt natürlcih auch auf die Strings an, die da durchsucht werden müssen.

Was damals Zeit gekostet hat, war, dass ich über COM auf Excel zugegriffen habe und die Inhalte Zelle für Zelle rausgeschrieben habe.
Ich habs dann mal anders probiert. Alles in eine Textdatei geschrieben. Einzelne Zellen mit einem Zeichen (~)  getrennt, einzelne Zeilen mit neuer Zeile.
Und das dann in Excel importiert. Das ging 1000 Mal schneller.
Also wenns auf Geschwindigkeit ankommen sollte, dann bescheid sagen und ich kram das mal raus.

[MartinG]

Bei mir spielt Speed eigentlich keine Rolle - es handelt sich gerade mal um 450 Dokumente mit 8 Spalten und unser Dominoserver und Netzwerk performt richtig...

Wäre natürlich der absolute Knaller wenn Du das (Matthias) noch einbauen könntest... - scriptechnisch bin ich so unglaublich hilflos...

Gruss
Martin

[TMC]

Habe ich eingebaut  
(siehe oben)

Es war folgender Code notwendig:

Code

         '---> Remove square wordwrap-chars ([])
         While Instr ( vColValues, Chr(13) ) > 0
            vColValues = Left$(vColValues, Instr ( vColValues,Chr(13) ) - 1) & "" & Right$(vColValues, Len(vColValues) - Instr ( vColValues, Chr(13) ))
         Wend
         '<---

Von der Performance her habe ich noch überhaupt keinen Unterschied gemerkt bei 1000 Dokumenten.

Viel Spaß damit  

[MartinG]

Matthias - Du bist genial. Habe jetzt endlich die Zeit gefunden Deinen überarbeiteten Export zu testen. Das ganze funktioniert jetzt perfekt...

Nochmals vielen Dank!

Gruss
Martin

[TMC]

Schön, danke für Deine Rückmeldung.

Eigentlich sollte man ja das ganze in Klassen packen. Na ja, mal schauen, irgendwann vielleicht mal, wenn ich OO mal besser drauf habe  

[DerAndre]

Hallo Matthias.

Der Excelimporter ist genial. Leider habe ich ein kleines Problem und ich habe im Moment keinen vernünftigen Ansatz. Wenn es in der View zwei oder mehr Einträge in einem Feld gibt, z.B. Hans Wurst, Hugo Altbier, wird nur der erste Name angezeigt. An der Stelle sollten dann auch beide Namen in einer Excel-Zelle auftauchen. Wahrscheinlich sehe ich mal wieder den Wald vor lauter Bäumen nicht mehr. Werde mir morgen nochmal den Kopf darum machen.

Gruss

André

[TMC]

André,

danke für die Info, das war sogar ein Bug (zumindest unter R5), da eine Fehlermeldung kam bei Mehrfachwerte-Feldern.

Ist jetzt korrigiert, aktuelle Version kann oben downgeloaded werden.

[DerAndre]

Hallo Matthias.

Ich habe noch einen Verbesserungsvorschlag für den Excel-Exporter.

Wenn vColValue Empty oder Null ist, fällt die Forall-Schleife etwas auf die Nase. Deswegen habe ich die Schleife noch in eine If-Abfrage auf Not Empty und Not Null gepackt, dann klappt es mit dem Nachbarn, Ääääh Export von leeren Feldern.
Ansonsten läuft es Prima...

Gruss

André

[TMC]

Danke André,

das hatte ich auch noch übersehen, und ist auch schon behoben der Bug.

[TMC]

Jo mei, noch einen Fehler entdeckt:
Wenn Feldwert scalar aber <> String war (also z.B. Zahlenfeld), kam ein Fehler.

Ist jetzt auch behoben.....

[robert]

Hi zusammen,

kann mir einer sagen, warum ich es nicht downloaden kann???
Bin eingeloggt und geht trotzdem nicht.

Danke für eure Hilfe.

Gruß

Robert

[MartinG]

Schau mal hier -  vielleicht hilft Dir das weiter?

http://www.atnotes.de/index.php?topic=14166.0

Ansonsten kann ich fürs Surfen Mozilla Firefox wärmstens empfehlen...

[robert]

Hallo Martin,

jou, jetzt geht es, danke für die Info und schönes Wochenende.

Gruß

Robert