Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Exportieren nach Excel, Zeilenumbruch und Zellenhöhe

(1/1)

heidiweber:
Hallo

ich muss Werte nach Excel exportieren. Diese mache ich so:


--- Code: --- Dim xlApp  As Variant   ' excel application object
Dim books As Variant   ' workbooks list object
Dim book As Variant   ' workbook object
Dim sheets As Variant   ' worksheets list object
Dim sheet As Variant   ' worksheet object
Dim range As Variant   ' range object
Dim oWorkbook As Variant

' run excel
Set xlApp  = CreateObject("Excel.Application")
xlApp.Visible = True
Set oworkbook = xlApp .Workbooks
oworkbook.Add

xlApp.cells(3,2) = "Das ist mein Text"
'Breite der Zelle
xlApp.cells(3,2).ColumnWidth = 32

--- Ende Code ---

Ist es möglich, dass ich die Breite einer Zelle vorgebe und der Text automatisch umgebrochen (wie wenn man in Excel ALT+ENTER drückt) wird, wenn der Text länger als die Zeilenbreite ist? Nachdem der Umbruch erfolgt ist, soll ausserdem die Zellenhöhe automatisch angepasst werden.

Kann man dies machen? Oder muss man dies alles händisch programmieren?

Vielen Dank
Grüße
Heidi

ZaLudtske:
Über die Eigenschaft WarpText des Range-Objektes kannst du den automatisch Umbruch aktivieren

Rainer

Axel:
Schau mal hier: http://atnotes.de/index.php?topic=39862.0

Das solltest du alles finden was du brauchst.

Axel

heidiweber:
Vielen Dank an euch

Hier die Lösung:
xlApp.cells(4,2).WrapText = True

Noch einen schönen Tag
Heidi

Navigation

[0] Themen-Index