Domino 9 und frühere Versionen > Entwicklung

Excelexport von eingebetteter Ansicht

<< < (5/7) > >>

koehlerbv:
Poste mal den Code, den Du schon fertig hast.

Catrex:
Ok, aber nicht lachen :D

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete