Domino 9 und frühere Versionen > Entwicklung

Richtext Felder in Notes 123 exportieren

(1/1)

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

...

--- Ende Code ---

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


Axel

Navigation

[0] Themen-Index