[Notes R6] Selektion und Export einzelner Datensätze

[lotusfreak]

Hallo Leute, 

ich habe ein kleines Problem mit einem Agenten.

ich habe ein Agenten geschrieben der der diverse Felder aus einer Ansicht in Excel exportiert.

Momentan exportiert er alle Einträge, was ich aber gerne machen würde ist das er selektiv nur bestimmte Datensätze anfässt ( zBsp: Häckchen in der ansicht setzen )

Leider habe ich hierzu noch nichts gefunden wie ich es umsetzen kann .... vielleicht könnt ihr mir Helfen


^{Sub ExcelExport
   Dim session As New NotesSession
   Dim doc As NotesDocument    
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim user As NotesName
   
   Dim iRow As Integer
   Dim iCol As Integer
   
   'Datenbank / Notesansicht wählen
   Set db = session.currentDatabase
   Set view = db.GetView("an_tips")
   
   'Variabeln für Excel Application
   Dim xlsApp As Variant
   Dim Workbook As Variant
   Dim Sheet As Variant
   Dim column As Integer
   Dim dateTime As NotesDateTime
   
   Set dateTime = New NotesDateTime( "Today" )
   Set user = session.CreateName( session.username )   
   
   'Excel Application
   Set xlsApp = CreateObject("Excel.Application")
   xlsApp.visible = True
   
   Call xlsApp.Workbooks.add
   
   Set Workbook = xlsApp.ActiveWorkbook
   Set Sheet = Workbook.Worksheets(1)
   
   'Statusbar
   xlsApp.statusbar = "Beim Einlesen..."
   
   Set doc = view.GetFirstDocument
   
   'Spalten und Zeilen
   iRow = 4
   iCol = 1
   
   
   
   With sheet
      
      .Range("A1").Value = "Notes Export"
      .Range("A2").Value = "exportiert am " + dateTime.LocalTime + " durch " + user.Common
      
      'Daten auslesen und formartieren
      While Not( doc Is Nothing)
         
         .Range(.Cells(iRow, iCol), .Cells(iRow, iCol )).Value = doc.GetItemvalue("fl_thema")
         .Range(.Cells(iRow, iCol+1), .Cells(iRow, iCol+1 )).Value = doc.GetItemvalue("fl_zeit")
         
         iRow  = iRow +1         
         Set doc = view.GetNextDocument(doc)
         
      Wend
      
            
   End With
   
   xlsApp.statusbar = "Fertig mit Einlesen..."
   
   
   Messagebox "Export abgeschlossen!!!",,"Fertig"
   
End Sub}

[koehlerbv]

NotesDatabase.UnprocessedDocuments ist Dein Freund. Siehe bitte hierzu die DesignerHelp.

Bernhard

[lotusfreak]

Hi,

sieht erstmal viel versprechend aus .....   

Danke ...

mfg Marc

[koehlerbv]

Das ist nicht nur vielversprechend (das war die alte Rechtschreibung  ), sondern genau der Weg. Sag an, wenn Du weitere Unterstützung brauchst.

Beste Grüsse,
Bernhard