von Ein__Stadtmensch » Mi, 03.03.2004 12:27
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)
Also folgendermaßen:
Verbindung zum Calc-Dokument herstellen:
[code]
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]
Und dann die Zellen ansprechen mit:
[code]sheet1.getCellbyPosition(0,0) = sheet0.getCellbyPosition(0,0)
[/code]