Export nach Excel aus Ansicht(nur markierte Felder)

    Hallo Leute,


    wie muss ich folgendes Script ändern das ich aus der Ansicht nur die markierten Felder nach Excel exportiere und NICHT ALLES.



    Sub Initialize
    On Error Goto errSub

    Dim ses As NotesUIworkspace
    Dim vw As NotesView
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument

    Set ses = New NotesUIWorkspace
    Set vw = ses.currentview.view

    Dim xlApp As Variant
    Dim xlSheet As Variant

    Set xlApp = CreateObject("Excel.application")

    xlApp.StatusBar = "WorkSheet wird erstellt. Bitte warten..."
    xlApp.Visible = True
    xlApp.Workbooks.Add
    xlApp.ReferenceStyle = 2

    Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
    xlsheet.Name = "Excel Druckvorlage"

    i=1
    ia=1
    Forall c In vw.Columns
    If Trim(c.Title)<>"" Then
    xlSheet.Cells(1, ia).Value = c.Title
    ia=ia+1
    End If
    i=i+1
    End Forall

    ii=2


    Set doc = vw.GetFirstDocument
    While Not(doc Is Nothing)
    i=0
    ia=0
    Forall c In vw.Columns
    If Trim(c.Title)<>"" Then

    xlSheet.Cells(ii, ia+1).Value = doc.ColumnValues( i )
    ia=ia+1
    End If
    i=i+1
    End Forall
    ii=ii+1
    Set doc = collection.GetNextDocument(doc)
    Wend

    On Error Resume Next
    xlSheet.Cells.Select
    xlApp.Selection.Columns.AutoFit
    xlSheet.Rows("1:1").Select
    xlApp.Selection.Font.Bold = True

    exitsub:
    On Error Resume Next
    xlApp.StatusBar = ""
    xlApp.Visible = True
    Exit Sub

    errsub:
    Print Error & "/" & Erl
    Resume exitsub
    End Sub

    hi rossi,


    in diesem forum geht es um "hilfe zur selbsthilfe" und nicht darum, seine skripte debuggen zu lassen. wenn es mal um 2 - 3 zeilen geht ist das sicherlich kein problem aber man sollte es nicht übertreiben...




    wenn du felder in excel importieren möchtest dann exportier sie doch lieber in eine csv-datei bzw. als lotus 123. das kannst du leicht wieder in excel importieren.


    die felder die du nicht brauchst würde ich mit einem excel-makro entfernen.

    Hallo Leute,


    hatte auch nicht vor von irgendjemand mein Skript debuggen zu lassen. Wenn der export nach csv das Ergebnis gebracht hätte, wie ich es mir vorstelle hätt ich dies auch getan.
    Aber da es in diesem Forum auch Leute gibt die auch gute Ideen haben und das Problemm vielleicht schon gelöst haben und sich von einem bisschen Skript nicht aus der Fassung bringen lassen, erhoffe ich mir natürlich Hilfe.

    also,


    es ist sicherlich keine "gute" idee einen export nach excel von hand zu programmieren.


    warum erstellst du nicht eine ansicht die genau die felder enthält, die du exportieren möchtest?


    ist einfacher, als dass im script zu lösen...

    Kommt natürlich auch darauf an, wie oft man exportieren möchte/muß.
    Schau Dir mal die Hilfe zum Punkt "The UnprocessedDocuments property ... For view actions, this property contains all selected documents." an


    gruß
    rubbeldidup

    Hallo Rubbeldidupp,


    mit dem Unproccessed Proberty habe ich schon probiert. Nur das Script steigt an der stelle


    xlSheet.Cells(ii, ia+1).Value = doc.ColumnValues( i )


    aus mit der meldung das der wert nicht gesetzt werden kann. Also wenn ihr dazu eine Lösung dazu habt teilt sie mir bitte mit. Es ist dringend

    Danke rubbeldidup


    guter tip gewesen und hat mir auch direkt weitergeholfen vor allem Export To Excel 2.0 ist richtig Klasse.
    Wusste doch das es Leute mit guten Ideen in diesem Forum gibt.