Excelexport von eingebetteter Ansicht

[koehlerbv]

Poste mal den Code, den Du schon fertig hast.

[Catrex]

Ok, aber nicht lachen

Sub Click(Source As Button)
   
Dim workspace As New NotesUIWorkspace   
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ansicht As NotesView
Dim auswahl As NotesDocumentCollection   
Dim uidoc As NotesUIDocument
Dim maske As NotesForm
   
Set db = session.CurrentDatabase
Set maske = db.GetForm("Auswertung - Kunde + Jahr")
Set ansicht = db.GetView("Auswertung Kunde und Jahr")
Set auswahl = ansicht.GetAllDocumentsByKey("TextXY", True)   
Messagebox(auswahl.count)
Messagebox(maske.Name)   
Messagebox(ansicht.Name)
   
End Sub


Naja und da wo nun TextXY steht muss ich ja irgendwie den Wert des Selektionsfeldes reinbekommen.
Ich habe das schon mit Getfieldtext versucht aber das lief immer auf eine Fehlermeldung raus

[koehlerbv]

Schick mir mal eine PM mit Deiner Mailadresse. Lotus hat vor Jahren sowohl zu R4 als auch zu R5 ein "LotusScript Technical Learning Center" veröffentlicht (Freeware), die sich heute aber leider nicht mehr als Download findet.
Die Datenbank beschreibt Schritt für Schritt und mit Beispielen den Umgang mit den LotusScript NotesClasses. Sowas hilft Dir bestimmt weiter. Ich schick' Dir das Ding gerne.

Bernhard

[Axel]

Hi,

so sollte es gehen:

Sub Click(Source As Button)
   
Dim workspace As New NotesUIWorkspace  
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ansicht As NotesView
Dim auswahl As NotesDocumentCollection  
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
'Dim maske As NotesForm
   
Set db = session.CurrentDatabase

'Zugriff auf das aktuell geöffnete Dokument
Set uidoc = workspace.CurrentDocument

'Die Zeile brauchst du nicht
'Set maske = db.GetForm("Auswertung - Kunde + Jahr")

Set ansicht = db.GetView("Auswertung Kunde und Jahr")

'Mit uidoc.FieldGetText("Name des Auswahlfeldes") bekommst du den Wert aus
'dem Feld mit dem entsprechenden Namen.
'Den Feldnamen "Name des Auswahlfeldes" mußt du natürlich durch deinen Feldnamen ersetzen.
Set auswahl = ansicht.GetAllDocumentsByKey(uidoc.FieldGetText("Name des Auswahlfeldes"), True)  

Messagebox(auswahl.count)
Messagebox(ansicht.Name)


'Zugriff auf die gefundenen Dokumente
Set doc = auswahl.GetFirstDocument
While Not (doc Is Nothing)
  'Tu was du willst mit den Dokumenten
  ...
  Set doc = auswahl.GetNextDocument(doc)
Wend

   
End Sub

Die Änderungen habe ich fett geschrieben

Axel

[Markus Henke]

Jo, so sollte es laufen. Jetzt musst Du nur noch den Export da rein basteln.

@Bernhard und alle anderen :-) : Bei Codestore gibts das "LotusScript Technical Learning Center" online http://www.codestore.net/docs/ls50ltlc.nsf/0/c2f0b87ac131def3852564f0000817e1?OpenDocument

[koehlerbv]

... und auch den Verweis, wo man es herunterladen kann:
http://web.archive.org/web/20001022055345/www.lotus.com/wwbpp/action.nsf/101b68a264bc2592852564c000556c79/aadd59b3e427f00c852564e3004929df?OpenDocument

Danke für den Hinweis, Markus !

[Catrex]

Hallo ich hoffe ihr hattet alle ein schönes Wochenende denn nun nerve ich wieder ein wenig

So nach langem hin und her habe ich nun auch einen fertigen Export - dachte ist. Das doofe ist nur er klappt nicht

Ich habe folgendes geschrieben:


Set doc = auswahl.Getfirstdocument
   cols = 1
   rows = 2
   maxcols = auswahl.count
   
   While Not (doc Is Nothing)
      For cols = 0 To maxcols-1
      getfield = Cstr(doc.ColumnValues(cols))
      xlsheet.Cells(rows,cols+1).Value = getfield
      Next
      rows = rows + 1
      cols = 0
      Set doc = auswahl.Getnextdocument(doc)
   Wend
   xlApp.Statusbar = "Import der Daten beendet..."

Der Fehler liegt so wie ich das sehe in der Zeile mit getfield = Cstr(...)
Ich bekomme dann folgende Fehlermeldung: "Variant does not contain to countainer" und das verstehe ich nicht wirklich. muss ich vielleicht doch was anderes machen weil sich sich ja um eine DocumentColletion handelt und nicht um eine komplette View !

Wäre nett wenn einer was weiss !

mfg

Sebastian ! ! !

[Markus Henke]

Klar musst Du da was anderes machen.  

Ich geh mal davon aus, dass Du ein paar Felder aus dem Dok exportieren möchtest. Folgender Code sollte laufen (Du musst nur Deine Feldnamen eintragen)  

<sup>Set doc = auswahl.Getfirstdocument
   rows = 2
   
   While Not (doc Is Nothing)
      xlsheet.Cells(rows,1).Value = doc.Feld1(0)
      xlsheet.Cells(rows,2).Value = doc.Feld2(0)
      xlsheet.Cells(rows,3).Value = doc.Feld3(0)
      xlsheet.Cells(rows,4).Value = doc.Feld4(0)
      rows = rows + 1
      Set doc = auswahl.Getnextdocument(doc)
   Loop

   xlApp.Statusbar = "Import der Daten beendet..."</sup>


Markus

[Catrex]

Mmmh, das wäre sicherlich ein Alternative aber ist es denn nicht auch möglich die Werte aus er Ansicht, also aus den jeweiligen Spalten zu exportieren ?

Das geht ja bei einer normalen Ansicht auch, oder ist das dann der Nachteil einer DocumentCollection ?

[Axel]

Hi,

das ist kein Nachteil der DocumentCollection, sondern das hängt mit der Eigenschaft ColumnValues zusammen.

...
If you do not access the document through a view, this property has no value.
...

Dieser Satz aus der Online-Hilfe sagt eigentlich alles. Du greifst nicht über eine Ansicht zu, sondern über eine Kollektion. Damit kannst du mit dieser Eigenschaft nichts anfangen, sondern musst über die Felder gehen. So wie es Markus beschrieben hat.


Axel

[koehlerbv]

Obicht, Sebastian - übernimm' nichts an Code, was Du nicht wirklich und grundsätzlich verstanden hast. NotesView, NotesDocumentCollection und NotesViewEntryCollection sind erstmal grundverschiedene Klassen, mit denen Du Dich vorab vertraut machen musst.

Was mir immer sehr hilft: Mach' Dir eine simple Test-Datenbank (z.B. eine Adress-DB, über deren Sinn udn Zweck und Funktionieren man sich keine Gedanken mehr machen muss) und probiere dort prinzipiell aus, was Du später in Deiner eigentlichen Entwicklungsarbeit verwenden möchtest. So entfällt schon erstmal das Nachdenken über und die Nebenwirkungen von komplexeren Situatonen.

Und nie-nie-niemals Code verwenden, den man nicht komplett verstanden hat.

HTH,
Bernhard

[Catrex]

Nein das mache ich auch nicht. Das ist ja am Ziel vorbeigeschossen.

Also ich mach da Thema nun zu, ich denke es ist alles gesagt.

Zumindest hoffe ich das !;)