Hallo
Mit welcher Methode kann ich einzelne Zellen von Sheet(0) nach Sheets(1) kopieren bzw die in den Zellen befindlichen Strings.
MfG
Klaus
einzelne Zellen kopieren
Moderator: Moderatoren
-
- Beiträge: 7
- Registriert: Mi, 18.02.2004 21:15
- Wohnort: Berlin
- Kontaktdaten:
-
- ***
- Beiträge: 61
- Registriert: Do, 18.12.2003 10:08
Also folgendermaßen:
Verbindung zum Calc-Dokument herstellen:
Und dann die Zellen ansprechen mit:
Verbindung zum Calc-Dokument herstellen:
Code: Alles auswählen
Dim Pfad, Url as String
Dim calc, sheet0, sheet1 as Object
Pfad = "Pfad_zur_Datei
Url = ConvertToUrl(Pfad)
calc = StarDesktop.loadComponentFromUrl(Url1, "_blank",0,dummy())
sheet0 = calc.sheets(0)
sheet1 = calc.sheets(1)
Code: Alles auswählen
sheet1.getCellbyPosition(0,0) = sheet0.getCellbyPosition(0,0)
Kleiner Tipp zur Programmierung:
Diese Aufzählung ist in StarBasic nicht möglich. In dem fall wird nur die Variable "URL" als String definiert und die Variable "sheet1" als Object.
Alle anderen werden als Variant definiert!!
In StarBasic muss jede Variable einzeln definiert werden!
Gruss
Thomas
Code: Alles auswählen
Dim Pfad, Url as String
Dim calc, sheet0, sheet1 as Object
Alle anderen werden als Variant definiert!!
In StarBasic muss jede Variable einzeln definiert werden!
Gruss
Thomas
Unterstützer LibreOffice, zertifizierter Trainer und Berater
Bücher: LibreOffice 6- Einstieg und Umstieg
Makros Grundlagen - LibreOffice / OpenOffice Basic
Bücher: LibreOffice 6- Einstieg und Umstieg
Makros Grundlagen - LibreOffice / OpenOffice Basic