unter Windows muss man (wohl) den anderen Service nutzen:
Code: Alles auswählen
MailAgent = CreateUnoService("com.sun.star.system.SimpleSystemMail")
Code: Alles auswählen
MailAgent = CreateUnoService("com.sun.star.system.SimpleSystemMail")
Code: Alles auswählen
'Öffnen der ods-Datei
Dim args(1) as New com.sun.star.beans.PropertyValue
args(0).Name = "ReadOnly"
args(0).Value = True
args(1).Name = "Hidden"
args(1).Value = True
Wäre es da nicht einfacher/sinnvoller die "Felder" der Spalte zu trennen, d. h. die Zellen zu trennen und jeweils mit dem Inhalt der ersten Zelle zu füllen?Ich muss die Tabelle nun sortierbar machen.
Warum willst du dann die Zellen erst verbinden?Schließlich die Zeilen außer der ersten löschen