Calc

Calc představuje tabulkový kalkulátor. Ten je součástí kancelářského balíku OpenOffice a LibreOffice a je alternativou k programu Microsoft Excel. Slouží pro tvorbu tabulek, ale také pro komplexní soustavy propojených dat se vzorci a funkcemi. Tabulka je ukládána v novém mezinárodním standardu pro dokumenty. Je založen na XML a může být přečten i tehdy, když uživatel nemá OpenOffice nebo LibreOffice. Výchozím formátem pro tabulky Calc je soubor *.ods.

Práce s databází typu Calc (Libre Office)

- Na soubory typu *.ods není v současnosti možné standardní připojení přes ADO Provider. Tím se vylučuje použití objektu PmaAdo nebo PmaDatabase.

- K tabulkovým souborům lze z PROMOTIC aplikace přistupovat skriptem přes API rozhraní Libre Office, Open Office.

Příklad1:

Vytvoření nového prázdného souboru, nastavení reference na první sešit a vytvoření popisu u prvního řádku tabulky. Zápis hodnot do druhého řádku tabulky a uložení souboru na disk.

JavaScriptVBScriptVyber a zkopíruj do schránky


function onClose()
{
	
oDoc.Close(false);
}

var 
oSM, 
oCR, 
oDesk, 
oDoc, 
oSh, 
oSheet, 
oCell, 
s, 
sPath, 
sFilePath, 
bDone;
var 
jArr = Pm.CreatePmArray().Create(1); 
var 
args = 
jArr.SaveToVbArray(); 
var 
arg = 
jArr.SaveToVbArray();


sPath = Pm.DiscGetPath("data:");

s = Pm.StringReplace(
sPath, "\\", "/");

sFilePath = 
s + "test2.ods";

//The service manager is always the starting point
//If there is no office running then an office is started up

oSM = Pm.AxGetObject("new", "com.sun.star.ServiceManager");

//Create the CoreReflection service that is later used to create structs

oCR = 
oSM.createInstance("com.sun.star.reflection.CoreReflection");

//Create the Desktop

oDesk = 
oSM.createInstance("com.sun.star.frame.Desktop");

//Open a new empty calc document

oDoc = 
oDesk.loadComponentFromURL("private:factory/scalc", "_blank", 0, 
args);

//Create a sheet object

oSh = 
oDoc.getSheets();

oSheet = 
oSh.GetByIndex(0);


oCell = 
oSheet.getCellByPosition(0, 0);

oCell.String = "A col";

oCell.CellBackColor = 6710932;


oCell = 
oSheet.getCellByPosition(1, 0);

oCell.String = "B col";

oCell.CellBackColor = 6710932;


oCell = 
oSheet.getCellByPosition(2, 0);

oCell.String = "C col";

oCell.CellBackColor = 6710932;


oSheet.getCellByPosition(0, 1).Value = 123;

oSheet.getCellByPosition(1, 1).Value = 222;

oSheet.getCellByPosition(2, 1).Value = 333;


bDone = 
oDoc.storeAsURL("file:///" + 
sFilePath, 
arg);
pMe.Root.AddEventTimer(2000, 1, 
onClose);

Příklad2:

Otevření existujícího souboru, nastavení reference na první sešit tabulky. Zápis hodnot do třetího řádku tabulky a uložení souboru na disk.

JavaScriptVBScriptVyber a zkopíruj do schránky


function onClose()
{
	
oDoc.Close(false);
}

var 
oSM, 
oCR, 
oDesk, 
oDoc, 
oSh, 
oSheet, 
oCell, 
s, 
sPath, 
sFilePath, 
bDone;
var 
jArr = Pm.CreatePmArray().Create(1); 
var 
args = 
jArr.SaveToVbArray(); 
var 
arg = 
jArr.SaveToVbArray();


sPath = Pm.EvalMacro("$path.data:");

s = Pm.StringReplace(
sPath, "\\", "/");

sFilePath = 
s + "test2.ods";

//The service manager is always the starting point
//If there is no office running then an office is started up

oSM = Pm.AxGetObject("new", "com.sun.star.ServiceManager");

//Create the CoreReflection service that is later used to create structs

oCR = 
oSM.createInstance("com.sun.star.reflection.CoreReflection");

//Create the Desktop

oDesk = 
oSM.createInstance("com.sun.star.frame.Desktop");

//Open calc document

oDoc = 
oDesk.loadComponentFromURL("file:///" + 
sFilePath, "_blank", 0, 
args);

//Create a sheet object

oSh = 
oDoc.getSheets();

oSheet = 
oSh.GetByIndex(0);


oSheet.getCellByPosition(0, 2).Value = 375;

oSheet.getCellByPosition(1, 2).Value = Pm.Round(Pm.Random(0, 100), 0.1);

oSheet.getCellByPosition(2, 2).Value = Pm.Round(Pm.Random(0, 100), 0.1);


bDone = 
oDoc.storeAsURL("file:///" + 
sFilePath, 
arg);
pMe.Root.AddEventTimer(2000, 1, 
onClose);