Richtext Felder in Notes 123 exportieren

[notesanfänger]

Hallo zusammen!!

Ich möchte gerne Inhalte (nur Text) aus Richtextfeldern in Lotus 123 oder Excel exportieren. 

[Axel]

Hi,

in Word hab ich sowas mal gemacht. In Excel dürfte das aber auch kein großen Problem sein. Hier mal ein ganz einfaches Beispiel wie's gehen könnte. Die Initialisierung der Variable doc wurde weggelassen

Code

Dim objExcel As Variant
Dim objSheet As Variant
Dim rtitem As NotesRichTextItem    
Dim strTemp As String
 
...
Set objExcel = CreateObject("Excel.Application")   'Excel "unsichtbar" starten
 
'Anlegen einer neuen Arbeitsmappe
Call objExcel.Workbooks.Add
Set objSheet = objExcel.Workbooks(1).Worksheets(1)
 
'Auslesen RTF-Feld
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  strTemp = rtitem.GetFormattedText( False, 0 )
  Call objSheet.Range("A1").Value = strTemp
End If
 
'Excel sichtbar machen
objExcel.Visible = True
 
...

Achtung beim Übergeben von Text an Excel. Bei mehr als 912 Zeichen gibt es Probleme, bis hin zur Schutzverletzung.


Axel