Leser- og skriver verdier til Områder

Makroer i Collabora Office Calc trenger ofte å lese og skrive verdier fra/til ark. Denne hjelpesiden beskriver de ulike tilnærmingene til å få tilgang til ark og områder for å lese eller skrive verdiene deres.

Alle eksemplene som presenteres på denne siden kan implementeres både i Basic og Python.

Tilgang til en enkelt celle

Eksemplet nedenfor legger inn den numeriske verdien 123 i celle "A1" i gjeldende ark.

Dim oSheet as Object
Dim oCell as Object
oSheet = ThisComponent.CurrentController.getActiveSheet()
oCell = oSheet.getCellRangeByName("A1")
oCell.setValue(123)

Det samme kan oppnås med Python:

doc = XSCRIPTCONTEXT.getDocument()
sheet = doc.getCurrentController().getActiveSheet()
cell = sheet.getCellRangeByName("A1")
cell.setValue(123)

Merk at i de foregående eksemplene åpnes cellen ved å bruke områdenavnet "A1". Det er også mulig å få tilgang til celler ved å bruke indekser som om arket var en matrise der kolonner og rader indekseres fra null.

Dette kan gjøres ved å bruke getCellByPosition(colIndex, rowIndex) metoden, som tar inn en kolonne og en radindeks. Eksemplet nedenfor i Basic endrer tekstverdien i celle "C1" (kolonne 2, rad 0).

oSheet = ThisComponent.CurrentController.getActiveSheet()
oCell = oSheet.getCellByPosition(2, 0)
oCell.setString("Hello")

Dette eksemplet kan også implementeres i Python på denne måten:

doc = XSCRIPTCONTEXT.getDocument()
sheet = doc.getCurrentController().getActiveSheet()
cell = sheet.getCellByPosition(2, 0)
cell.setString("Hello")

Hovedforskjellen mellom Python- og Basic-skript ligger i hvordan du får tilgang til arkobjektet ved å bruke kontekstvariabelen XSCRIPTCONTEXT. Etter det er alle metoder og egenskaper identiske i Basic og Python.

Verdier, strenger og formler

Calc-celler kan ha tre typer verdier: numeriske, strenger og formler. Hver type har sitt eget skriv og les metoder:

Datoer og valutaverdier betraktes som numeriske verdier i Calc.

Følgende eksempel legger inn numeriske verdier i cellene "A1" og "A2" og setter inn en formel i celle "A3" som returnerer multiplikasjonen av disse verdiene.

oSheet = ThisComponent.CurrentController.getActiveSheet()
oCell = oSheet.getCellRangeByName("A1")
oCell.setValue(10)
oCell = oSheet.getCellRangeByName("A2")
oCell.setValue(20)
oCell = oSheet.getCellRangeByName("A3")
oCell.setFormula("=A1*A2")

Tilgang til områder i forskjellige ark

De forrige eksemplene brukte bare det aktive arket til å utføre operasjoner. Det er mulig å få tilgang til celleområder i forskjellige ark etter indekser eller navn.

Eksemplet nedenfor legger inn en numerisk verdi i celle "A1" på arket kalt "Sheet2".

oSheet = ThisComponent.Sheets.getByName("Sheet2")
oCell = oSheet.getCellRangeByName("A1")
oCell.setValue(123)

Dette eksemplet kan også implementeres i Python slik:

doc = XSCRIPTCONTEXT.getDocument()
sheet = doc.Sheets["Sheet2"]
cell = sheet.getCellRangeByName("A1")
cell.setValue(123)

Ark kan også nås ved å bruke nullbaserte indekser som indikerer hvilket ark med tanke på rekkefølgen de vises i Calc-filen.

I Basic, i stedet for å bruke getByName-metoden, bruk Ark(arkIndex) som vist neste:

oSheet = ThisComponent.Sheets(0)

Dette kan gjøres på lignende måte i Python:

sheet = doc.Sheets[0]

Bruke ScriptForge-biblioteket

Calc-tjenesten til ScriptForge-biblioteket kan brukes til å hente og angi celleverdier som følger:

' Laster ScriptForge-biblioteket
GlobalScope.BasicLibraries.LoadLibrary("ScriptForge")
' Får tilgang til gjeldende Calc-dokument
oDoc = CreateScriptService("Calc")
' Angir verdien for cellene A1 og A2
oDoc.setValue("A1", "Hello")
oDoc.setValue("A2", 123)

Metoden setValue kan brukes til å angi både numeriske og tekstverdier. For å angi en celleformel, bruk setFormula-metoden.

Med Calc-tjenesten kan henting og angivelse av celleverdier gjøres med en enkelt kodelinje. Eksemplet nedenfor henter verdien fra celle "A1" og viser den i en meldingsboks.

Dim val as Variant, oDoc as Object
oDoc = CreateScriptService("Calc")
val = oDoc.getValue("A1")
MsgBox val

ScriptForge-biblioteket gjør det også enklere å få tilgang til områder i forskjellige ark, som vist i eksemplet nedenfor:

Dim val1, val2
' Henter celle "A1" fra arket kalt "Sheet1"
val1 = oDoc.getValue("Sheet1.A1")
' Henter celle "B3" fra arket kalt "Sheet2"
val2 = oDoc.getValue("Sheet2.B3")
' Plasserer resultatet i celle "A1" i arket "Rapport"
Dim result : result = val1 * val2
oDoc.setValue("Report.A1", result)

Eksemplene ovenfor kan også implementeres i Python som følger:

from scriptforge import CreateScriptService
doc = CreateScriptService("Calc")
doc.setValue("A1", "Hello")

doc = CreateScriptService("Calc")
bas = CreateScriptService("Basic")
val = doc.getValue("A1")
bas.MsgBox(val)

first_val = doc.getValue("Sheet1.A1")
second_val = doc.getValue("Sheet2.B3")
result = first_val * second_val
doc.setValue("Report.A1", result)