Seite 1 von 1
einzelne Zellen kopieren
Verfasst: Di, 02.03.2004 20:29
von klaus_harrer
Hallo
Mit welcher Methode kann ich einzelne Zellen von Sheet(0) nach Sheets(1) kopieren bzw die in den Zellen befindlichen Strings.
MfG
Klaus
Verfasst: Mi, 03.03.2004 12:27
von Ein__Stadtmensch
Also folgendermaßen:
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)
Und dann die Zellen ansprechen mit:
Code: Alles auswählen
sheet1.getCellbyPosition(0,0) = sheet0.getCellbyPosition(0,0)
Verfasst: Do, 04.03.2004 08:54
von Toxitom
Kleiner Tipp zur Programmierung:
Code: Alles auswählen
Dim Pfad, Url as String
Dim calc, sheet0, sheet1 as Object
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