Excel Export von forms

[the-mk]

Hallo,

der Export von Views nach Excel ist mir geläufig. Ist es aber möglich Forms, oder Teile von Forms (in meinem Fall Tabellen) nach Excel zu exportieren?

Einfaches Copy / Paste geht leider nicht, weil Excel für jeden Linebreak in der Tabelle in eine neue Zeile springt und der Aufwand das manuell hinzubiegen recht groß ist.

Vielen Dank!

[eknori]

na ja, nicht ganz so trivial, aber die Designer Hilfe bietet zumindest schon mal einen guten Ansatz: NotesRichTextTable Class

3.   This agent gets the cells in the first table in an item and displays the first text paragraph in each cell.
Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  Dim dc As NotesDocumentCollection
  Set dc = db.UnprocessedDocuments
  Dim doc As NotesDocument
  Set doc = dc.GetFirstDocument
  Dim rti As NotesRichTextItem
  Set rti = doc.GetFirstItem("Body")
  Dim rtnav As NotesRichTextNavigator
  Set rtnav = rti.CreateNavigator
  If Not rtnav.FindFirstElement(RTELEM_TYPE_TABLE) Then
    Messagebox "Body item does not contain a table,",, _
    "Error"
    Exit Sub
  End If
  Dim rtt As NotesRichTextTable
  Set rtt = rtnav.GetElement
  Dim rtrange As NotesRichTextRange
  Set rtrange = rti.CreateRange
  Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)
  firstFlag = True
  For i& = 1 To rtt.RowCount
    For j& = 1 To rtt.ColumnCount
      If Not firstFlag Then
        Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
      Else
        firstFlag = False
      End If
      Call rtrange.SetBegin(rtnav)
      Messagebox rtrange.TextParagraph,, _
      "Row " & i& & _
      ", Column " & j&
    Next
  Next
End Sub

die Werte kannst du dann nach Excel übertragen...

[Tode]

Wenn Die Tabellen in Richtext- Feldern liegen:

Viel viel manuelle Programmierarbeit, möglicherweise über RichtextNavigator und Konsorten möglich.

Ist es nur eine "Design"- Tabelle, in der Felder liegen, dann funktioniert es ja wieder über Ansichten...

HTH
Tode