ausgewählte docs ins excel exportieren????

[Viktor]

hallo forum

mit dieser action (siehe unten) werden alle dokumente aus einer ansicht direkt ins excel exportiert, so weit so gut.

meine frage: kann man aber nur ausgewählte dokumente aus einer ansicht ebenfalls so exportieren, wenn ja wie?

besten dank im voraus

gruss

viktor

:_________________________________________________


Sub Click(Source As Button)
   Dim Session As New NotesSession
   Dim db As NotesDatabase
   Dim sourceview As NotesView
   Dim sourcedoc As NotesDocument
   Dim dataview As NotesView
   Dim datadoc As NotesDocument
   Dim maxcols As Integer
   Dim WS As New Notesuiworkspace
   Dim UiView As notesuiview
   Dim cols As Integer
   Dim rows As Integer
   Dim getfield As Variant
   
   Set db = session.CurrentDatabase
   Set UiView=WS.currentview
   Set dataview = uiview.view
   Dim xlApp As Variant
   Dim xlsheet As Variant
   
   Set xlApp = CreateObject("Excel.Application")
   xlApp.StatusBar = "Import vorbereiten..."
   xlApp.Visible = True
   xlApp.Workbooks.Add
   xlApp.ReferenceStyle = 2
   Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
   xlsheet.Name = uiview.viewname
   xlApp.StatusBar = "Überschriften erstellen..."
   cols=1
   Forall X In dataview.Columns
      xlsheet.Cells(1,cols).Value =X.title
      cols=cols+1
   End Forall
   
   xlApp.StatusBar = "Überschriften erstellen...fertig!"
   xlApp.StatusBar = "Import vorbereiten..."
   xlApp.StatusBar = "Daten importieren..."
   Set datadoc = dataview.getfirstdocument
   cols=1
   rows=2
   maxcols= dataview.columncount
   While Not (datadoc Is Nothing)
      For cols=0 To maxcols-1
         getfield = Cstr(datadoc.ColumnValues( cols ))
         xlsheet.Cells(rows,cols+1).Value = getfield
      Next
      rows=rows+1
      cols=0
      Set datadoc = dataview.getnextdocument(datadoc)
   Wend
   xlApp.StatusBar = "Import beendet! ... Formatieren starten"
   
   xlApp.Rows("1:1").Select
   xlApp.Selection.Font.Bold = True
   xlApp.Range(xlsheet.Cells(1,1), xlsheet.Cells(1,maxcols)).Select
   With xlApp.Selection.Interior
      .ColorIndex = 15
      .Pattern = 17 'xlGray16
      .PatternColorIndex =6
   End With
   xlApp.StatusBar = "Titel formatiert"
   xlApp.Rows("1:1").Select
   xlApp.Selection.Font.Bold = True
   xlApp.Range(xlsheet.Cells(1,1), xlsheet.Cells(rows,maxcols)).Select
   xlApp.Selection.Font.Name = "Arial"
   xlApp.Selection.Font.Size = 9
   xlApp.Selection.Columns.AutoFit
   With xlApp.Worksheets(1)
      .PageSetup.Orientation = 2
      .PageSetup.centerheader = "Report - Confidential"
      .Pagesetup.RightFooter = "Page &P" & Chr$(13) & "Date: &D"
      .Pagesetup.CenterFooter = ""
   End With
   xlApp.ReferenceStyle = 1
   xlApp.Range("A1").Select
   xlApp.StatusBar = "Fertig!"
End Sub

[klaussal]

Suche mal in der Hilfe nach dem Stichwort "Unprocessed documents".

klaus

[Viktor]

danke klaus aber ich komme leider nicht weiter :-(

[Axel]

Hi,

so geht's:

Dim Session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments

Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)

'hier findet die Verarbeitung der einzelnen Doks statt

  Set doc = collection.GetNextDocument(doc)
Wend


Axel

[Viktor]

hallo axel

und wie kann ich das in meinem script inplementieren?
SORRY, Ich kenn mich ein wenig aus, aber nicht so gut, dass ich schon alle Funktionen etc. kennen würde. Bin daher für jeden Tipp sehr dankbar.

Vielen Dank und Gruss

Viktor

[Axel]

Hi,

so müsste das gehen. Die Anpassungen sind fett gedruckt. Ich hoffe ich habe nichts übersehen.

Sub Click(Source As Button)
   Dim Session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim sourceview As NotesView
   Dim sourcedoc As NotesDocument
   Dim dataview As NotesView
   Dim datadoc As NotesDocument
   Dim maxcols As Integer
   Dim WS As New Notesuiworkspace
   Dim UiView As notesuiview
   Dim cols As Integer
   Dim rows As Integer
   Dim getfield As Variant
   
   Set db = session.CurrentDatabase
   Set collection = db.UnprocessedDocuments
   Set UiView=WS.currentview
   Set dataview = uiview.view
   Dim xlApp As Variant
   Dim xlsheet As Variant
   
   Set xlApp = CreateObject("Excel.Application")
   xlApp.StatusBar = "Import vorbereiten..."
   xlApp.Visible = True
   xlApp.Workbooks.Add
   xlApp.ReferenceStyle = 2
   Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
   xlsheet.Name = uiview.viewname
   xlApp.StatusBar = "Überschriften erstellen..."
   cols=1
   Forall X In dataview.Columns
      xlsheet.Cells(1,cols).Value =X.title
      cols=cols+1
   End Forall
   
   xlApp.StatusBar = "Überschriften erstellen...fertig!"
   xlApp.StatusBar = "Import vorbereiten..."
   xlApp.StatusBar = "Daten importieren..."
   Set datadoc = collcetion.getfirstdocument
   'cols=1
   rows=2
   maxcols= dataview.columncount
   While Not (datadoc Is Nothing)

      xlsheet.Cells(rows,1).Value = datadoc.NamedesFeldes1(0)
      xlsheet.Cells(rows,2).Value = datadoc.NamedesFeldes2(0)
      'Hier können weitere Felder exportiert werden
      'Feldnamen müssen angepasst werden

      Set datadoc = collection.getnextdocument(datadoc)
   Wend
   xlApp.StatusBar = "Import beendet! ... Formatieren starten"
   
   xlApp.Rows("1:1").Select
   xlApp.Selection.Font.Bold = True
   xlApp.Range(xlsheet.Cells(1,1), xlsheet.Cells(1,maxcols)).Select
   With xlApp.Selection.Interior
      .ColorIndex = 15
      .Pattern = 17 'xlGray16
      .PatternColorIndex =6
   End With
   xlApp.StatusBar = "Titel formatiert"
   xlApp.Rows("1:1").Select
   xlApp.Selection.Font.Bold = True
   xlApp.Range(xlsheet.Cells(1,1), xlsheet.Cells(rows,maxcols)).Select
   xlApp.Selection.Font.Name = "Arial"
   xlApp.Selection.Font.Size = 9
   xlApp.Selection.Columns.AutoFit
   With xlApp.Worksheets(1)
      .PageSetup.Orientation = 2
      .PageSetup.centerheader = "Report - Confidential"
      .Pagesetup.RightFooter = "Page &P" & Chr$(13) & "Date: &D"
      .Pagesetup.CenterFooter = ""
   End With
   xlApp.ReferenceStyle = 1
   xlApp.Range("A1").Select
   xlApp.StatusBar = "Fertig!"
End Sub

Bei dieser Art und Weise kann nicht über den Spaltenindex auf die Feldinhalte zugegriffen werden, sondern man muss über den Feldnamen den Inhalt auslesen. Die Feldnamen musst du an deine Gegebenheiten anpassen.


Axel

[koehlerbv]

Warum kommt mir der verwendete Code nur so bekannt vor ? 

Ich kann allerdings nur den dringenden Rat geben, keinen Code zu verwenden, den man nicht verstanden hat. Das ist unprofessionell und ein Spiel mit dem Feuer. Das Glück, dass jemand dann den Samariter spielt und einem die Arbeit abnimmt, ist ja nun doch aussergewöhnlich.

Bernhard

[dh-paule]

vielleicht bin ich mal wieder zu blauäugig, aber was ist mit der LN6 Funktion "copy selected as table" Das kann der user doch auch nutzen...

aber vermutlich hab ich's mir grad nur zu einfach gemacht 

[MartinG]

"copy selected as table"   

Sehr schöne Funktion - wäre halt noch schön wenn man das per Script oder Formel in eine Aktion packen könnte, aber da hat sich bei IBM vermutlich keiner Gedanken gemacht.

Gruss
Martin

[Viktor]

herzlichen dank an axel und an alle "samariter" 

[stussy]

Hallo,

ich habe ebenfalls das Script für den FileExport verwendet. Es funktioniert echt gut.

Nun habe ich aber doch ein Problem das ich mal kurz beschreiben will.
Die Ansicht, die ich exportieren will, enthält eine Spalte die Mehrfachwerte beinhaltet (getrennt durch "komma").
Sobald ich das Script ausführe, zeigt es mir einen "Type missmatch" an.
Wie kann ich die Mehrfachwerte in einem String holen und ins Excel exportieren?

NotesProfis..ihr seit meine letzte Hoffnung 

[ctillmanns]

join dürfte das sein, was Du suchst.

[stussy]

DANKE!!! Das war es. Jetzt funzzt alles.

[ctillmanns]

Moin
Zu:

"copy selected as table"

Das kann man mit ND 6 im Backend wirklich schön mit LS lösen. Die Tabelle kann man da auch noch besser formatieren. Sofern man das in ein Richtextfeld einfügen will. Vielleicht hat sich schon jemand gefunden, der das als Tool programmiert hat.
Wenn es allerdings nur darum geht, dass man sich einmal Klicken spart, dann kann ich wieder mal mein Lieblingsthema anschneiden. Programmiere man halt die Tastenkombinationen. Dazu habe ich dann wohl in letzter Zeit wirklich genug gesagt.
Cheerio
Tilsche
PS: Langsam habe ich das Gefühl, damit könnte ich Geld verdienen.