Felder nach Excel exportieren

Aspirin · 21. Februar 2006

Hallo Leute,

ich habe ein kleines Problem. :-? Ich muss aus einem Notes-Dokument bestimmte Felder nach Excel exportieren.

Kurze Beschreibung:

Ich möchte in einer View einen Button in der Menüleiste haben, der "Export to excel" ermöglicht.

Folgende Text-Felder sollen exportiert werden:

Issue No -> nach Spalte Issue No
Issue -> nach Spalte Issue
Action-> nach Spalte Action
owner-> nach Spalte owner *
Source -> nach Spalte Source Call
DueDate-> nach Spalte DueDate
Sector -> nach Spalte Sector
IMT-> nach Spalte IMT
coverage -> nach Spalte Coverage

Dabei sollen die Spalten ganz einfach nur Fett formatiert werden und die Daten einfach in die Spalten gesetzt werden.

Frage:

Da ich nur Formelsprache kann und in der Hilfe nichts dazu finden konnte, würde ich gerne wissen, ob das überhaupt möglich wäre dies in Formelsprache zu realisieren? Wenn nicht, bin ich für jeden fertigen Script dankbar...

Danke sehr!

-Aspi-

erzengel · 22. Februar 2006

also ich hab ja nicht viel Ahnung, aber wenn du ein Export in eine CSV schaffst, die so formatiert ist:

Name;Adresse;Strasse;PLZ;
Name;Adresse;Strasse;PLZ;
Name;Adresse;Strasse;PLZ;

Dann kannst die mit excel öffnen und, ich glaub dann auch als Arbeitsmappe speichern.

Ein richtiges Excel Format xls, ist nicht realisierbar glaub ich, da im moment die Dateiformatierungen ja noch geschützt sind, durch Microsoft.
Aber OpenOffice Org klagt ja schon dagegen :-D.

pegasus · 22. Februar 2006

Warum generierst du dir nicht eine View die nur diese Felder enthält und dann machst du "Auswahl als Tabelle kopieren"?

Dann benötigst du keinen extra Button

dnotes · 22. Februar 2006

Ein Anfang waere dieser Code:

Code

Dim s As New notessession
	Dim ws As New notesuiworkspace
	Dim uiv As notesuiview

	Set uiv = ws.currentview
	Dim db As notesdatabase
	Set db = s.currentdatabase
	Dim Doc As notesdocument
	Dim coll As notesdocumentcollection
	Set coll = db.unprocesseddocuments


	Print "Connecting to Excel..."
	Set Excel = CreateObject("Excel.Application")
	Excel.visible = True
	Excel.Workbooks.Add
	Set xlWorkbook = Excel.ActiveWorkbook
	Set xlSheet = xlWorkbook.ActiveSheet
	xlsheet.Name = "Datenexport"
	Dim counter As Integer
	Dim row As Integer
	row = 1
	counter = 3
	Set doc = coll.getfirstdocument
	While Not (doc Is Nothing)

		xlSheet.cells(row,counter).value = doc.~$UpdatedBy(0)
		xlSheet.cells(row,counter + 1).value = doc.form(0)
		Set doc = coll.getnextdocument(doc)
		'counter = counter +1
		row = row +1
	Wend

	Excel.Rows("1:" & row).select
	Excel.selection.Font.Bold=True
	Excel.selection.columns.Autofit

Alles anzeigen

Gilt fuer alle gewaehlten Dokumente!

Aspirin · 22. Februar 2006

Guten Morgen Zusammen,

danke sehr für die tollen Vorschläge.

Eine Export-View habe ich eben erstellt und das klappt soweit super. Auch wenn es "Excel" als Auswahl nicht gibt, so kann ich "Louts 123" auswählen, aber trotzdem mit *.xls abspeichern und es funktioniert!

dnotes

Danke vielmals für den super script - aber es exportiert falsch.
Er exportiert nur die erste Zeile und nur die Spalte "owner" und "action" und das ohne die Titel der Spalten mitzunehmen.

Vielleicht noch als Info (falls notwendig):
Excel Version 10
Alle Spalten als Text deklariert "@Text(Feld)"

Eine Idee woran das liegt, dass er falsch exportiert?

dnotes · 22. Februar 2006

Poste doch mal Deine while-Schleife

Aspirin · 22. Februar 2006

Zitat

dnotes schrieb:
Poste doch mal Deine while-Schleife

Ich habe deine while Schleife 1 zu 1 von Dir übernommen..

Code

While Not (doc Is Nothing)

		xlSheet.cells(row,counter).value = doc.~$UpdatedBy(0)
		xlSheet.cells(row,counter + 1).value = doc.form(0)
		Set doc = coll.getnextdocument(doc)
		'counter = counter +1
		row = row +1
	Wend

Ich habe einen neuen Action-Button erstellt, bin dann unten in "Click" rein und habe es innerhalb "Sub Click(Source As Button)" und "End Sub" eingefügt.

Ich erhalte auch keine Fehlermeldung beim Export..

Danke,

Aspi

dnotes · 22. Februar 2006

Na ja, in meinem Beispielcode wird auch nur der erste Wert aus den Feldern $Updatedby und Form gezogen. Das muesstest Du schon noch etwas anpassen auf Deine Beduerfnisse.

Aspirin · 22. Februar 2006

Zitat

dnotes schrieb:
Na ja, in meinem Beispielcode wird auch nur der erste Wert aus den Feldern $Updatedby und Form gezogen. Das muesstest Du schon noch etwas anpassen auf Deine Beduerfnisse.

Ich brauch eine LotusScript Schulung...................

Danke Dir Dirk!

dnotes · 22. Februar 2006

Wer ist Dirk????????? :-?

Aspirin · 22. Februar 2006

Zitat

dnotes schrieb:
Wer ist Dirk????????? :-?

jetzt musste ich wirklich lachen, hahahaha..

SORRY!! Kleine Verwechslung von einem anderen Thread

oh man.. jetzt hole ich mir erstmal nen kaffee :pint:

wuhogo · 23. Juni 2006

Hallo dnotes,

ich wollte mich auch ganz recht herzlich für das Skript bedanken. Ich habe es als Grundstock für eine ganz nette Exportfunktion, die wir in einer DB haben wollten genommen.
:laola:

Grüße & nochmals herzlichen Dank

Christian

Diali · 24. Juni 2006

Zitat

jetzt musste ich wirklich lachen, hahahaha..

SORRY!! Kleine Verwechslung von einem anderen Thread

oh man.. jetzt hole ich mir erstmal nen kaffee :pint:

der, der im Urlaub war

Gruß
Dirk

Felder nach Excel exportieren

Teilen

Benutzer online in diesem Thema