einzelne Zellen kopieren

[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

[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)

[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