Home of site/JavaScript Macro for Calc

Macroの杜(JavaScript編)
< 前【 Calc 】次 >

【 Index 】

Cell操作

[ Basic ]

[Calc]Cell入力

[Calc]Cell入力(その2)

[Calc]Cell値( A1, A2 )を取得する

[Calc]Cell Range( A1:C4 )の選択(取得)準備(但し実Sheet上は変化無し)

CC-)

[Calc]Cellの値を高速取得

[ getDataArray / com.sun.star.sheet.XCellRangeData ]

[Calc]値の入力と計算

[Calc]Cellの結合

[Calc]

Uno DispatchHelperコマンド実行

[ com.sun.star.frame.XDispatchHelper / com.sun.star.frame.XDispatchProvider / com.sun.star.frame.XModel / .getServiceManager() / com.sun.star.frame.DispatchHelper / .executeDispatch() ]

[ Insert･Delete.Copy ]

[Calc]CellのInsert

[ com.sun.star.sheet.XCellRangeMovement / com.sun.star.sheet.CellInsertMode / .insertCells(,) ]

[Calc]CellのDelete

[ com.sun.star.sheet.CellDeleteMode / .removeRange(,) ]

[Calc]CellのCopy

[ .copyRange(,) ]

[Calc]CellのMove

[ .moveRange(,) ]

[Calc]

Document間のCopy

[ com.sun.star.sheet.XCellRangeData / .getDataArray() / .setDataArray() / com.sun.star.sheet.XCellRangeFormula / getFormulaArray() / setFormulaArray() ]

Style

[Calc]指定Cell( A1, A2 )の背景色設定

[Calc]指定Cell( A1, A2 )の文字色設定

[Calc]専用Style(背景色、文字色、Style Name = "MyStyle")の設定(「書式」⇒「スタイルと書式設定」に追加)

[Calc]指定範囲を専用Styleにする

[Calc]Cell Fontの設定

[Calc]文字Sizeの設定

[Calc]文字太さの設定

[Calc]Textを自動的に折り返す

[Calc]文字の角度設定

[Calc]

縦書き

[ .uno:TextdirectionTopToBottom ]

[ Font Effet ]

[Calc]

各種UnderLine / UnderlineColor設定

[ com.sun.star.awt.FontUnderline / com.sun.star.util.Color / CharUnderline / CharUnderlineHasColor / CharUnderlineColor ]

[Calc]

影付き文字設定

[ CharShadowed / .uno:Shadowed ]

[ Clear ]

[Calc]CellのClear[ com.sun.star.sheet.XSheetOperation ]

[ Selection ]

JsSelection-01)[Calc]

Cell、Column、Rowを選択状態にする

[ com.sun.star.view.XSelectionSupplier / .select() / com.sun.star.table.XColumnRowRange / .getColumns() / .getRows() ]

[ Address ]

[Calc]Active CellのAddress取得

[ getInvocationContext() / frame.XModel / lang.XServiceInfo / sheet.XCellRangeAddressable / sheet.SheetCellRange / getRangeAddress() / .EndColumn / .EndRow ]

[Calc]任意の列のData最終行取得

[ table.XCellRange / table.XColumnRowRange / table.XTableColumns / sheet.XSpreadsheet / sheet.XSpreadsheetDocument / sheet.XSpreadsheets / container.XIndexAccess / sheet.XSheetCellRanges / sheet.CellFlags / sheet.XCellRangesQuery ]

[ Column･Row(行・列) ]

[Calc]

Row、Columnを挿入する

[ com.sun.star.table.XTableRows / com.sun.star.table.XTableColumns / .insertByIndex ]

[ HyperLink ]

[Calc]HyperLink

[ xMultiServiceFactory.createInstance("com.sun.star.text.textfield.URL") / setPropertyValue("URL", "http://www.yahoo.com) / setPropertyValue("Representation", "Link...") ]

[Calc]

[ ]

Sheet操作

[Calc]Sheet1にAccessする

[Calc]Current Sheetの変更

[Calc]Current Sheet名の取得1

[Calc]Current Sheet名の取得2

[Calc]Sheet名があるかどうかを調べる

[Calc]Sheet Style取得

[Calc]

file操作

[Calc]新規にCalc fileを開く

[Calc]任意のCalc fileを開く

[Calc]任意のCalc fileの開閉

[Calc]任意のCalc fileの開き、上書き保存後に閉じる

Graph Chart作成

[Calc]Simple Diagram作成

[Calc]3D Diagram作成

[ Macro Code ]

【　Calc(表計算)　】

Cell操作

[ Basic ]

CC-1)[Calc]Cell入力


//[ Cell ] Set values of cells
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.container.XIndexAccess);

	loadProps = new Array(); // We need no properties
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	xDocument = UnoRuntime.queryInterface(XSpreadsheetDocument,xSheetComponent);
	xSheets = xDocument.getSheets();
	xIndexSheets =UnoRuntime.queryInterface(XIndexAccess, xSheets);
	xSheet =UnoRuntime.queryInterface(XSpreadsheet,xIndexSheets.getByIndex(0));
	// Cell(A1, B1)への入力(数字)
		insert(0, 0, 123.456, xSheet, true);
		insert(1, 0, 789.012, xSheet, true);
	// Cell(A2)への入力(その他)
		insert(0, 1, "Hello", xSheet, false);
	// Cell(A3)への入力(Formuala)
		insert(0, 2, "=sum(A1:B1", xSheet, false);
	
// [ Function :  insert ]
//Cellへの入力関数(insert)の定義
	function insert(x, y, content, container, isValue){
		oCell = container.getCellByPosition(x, y);
		if(isValue)
			oCell.setValue(new java.lang.Float(content).floatValue());
		else
			oCell.setFormula(content);
	}

CC-1)[Calc]Cell入力(その2)


//[ Cell ] Set values of cells (Case 2)
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.text.XTextRange);

	// get document XModel and get specific sheet
		oDoc = XSCRIPTCONTEXT.getDocument();
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
		oSheet = xIndexAccess.getByIndex(0);

	// Cellへの入力
		xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
		xCellRange.getCellByPosition(0, 0).value = 1;
		xCellRange.getCellByPosition(0, 1).value = 2;
		xCellRange.getCellByPosition(0, 2).formula = "Sccess";　	//←文字列入力
		xCellRange.getCellByPosition(0, 3).formula = "=A1+A2"; 		// ←式入力

CC-2)[Calc]Cell値( A1 )を取得する


//[ Cell ] Get values of Cells
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.container.XIndexAccess);

	loadProps = new Array(); // We need no properties
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	xDocument = UnoRuntime.queryInterface(XSpreadsheetDocument,xSheetComponent);
	xSheets = xDocument.getSheets();
	xIndexSheets =UnoRuntime.queryInterface(XIndexAccess, xSheets);
	xSheet =UnoRuntime.queryInterface(XSpreadsheet,xIndexSheets.getByIndex(0));
	// Cell(A1,A2)を取得
	oCell =new Array();
	for(i=0; i<=1; i++){
		oCell_all = xSheet.getCellByPosition(0, i);
		oCell[i] = oCell_all.getValue();
		if(oCell[i] != ""){
			oCell[i] = oCell_all.getValue();
		}else{
			oCell[i] = oCell_all.getFormula();
				}
		}

CC-3)[Calc]Cell Range( A1:C4 )を選択(取得)する。(但し実Sheet上は変化無し)


//[ Cell ] Select Range
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.beans.XPropertySet);

	loadProps = new Array(); // We need no properties
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	xDocument = UnoRuntime.queryInterface(XSpreadsheetDocument,xSheetComponent);
	xSheets = xDocument.getSheets();
	xIndexSheets =UnoRuntime.queryInterface(XIndexAccess, xSheets);
	xSheet =UnoRuntime.queryInterface(XSpreadsheet,xIndexSheets.getByIndex(0));
	// Cell範囲の選択(cells 0/0 to 3/3 = A1:C4)
		cellRange = xSheet.getCellRangeByPosition(0, 0, 3, 3);

C)[Calc]値の入力と計算


//[ Cell ] Set value(2)
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.container.XIndexAccess);

	loadProps = new Array(); // We need no properties
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	xDocument = UnoRuntime.queryInterface(XSpreadsheetDocument,xSheetComponent);
	xSheets = xDocument.getSheets();
	xIndexSheets =UnoRuntime.queryInterface(XIndexAccess, xSheets);
	xSheet =UnoRuntime.queryInterface(XSpreadsheet,xIndexSheets.getByIndex(0));
	// 計算(数字)10行10列
		for(i=0; i<10; i++)
			{
			for(j=0; j<10; j++)
				insert(i, j, i*j, xSheet, true);
			}

	// 計算(数式(B10セル)&text(C10セル))
		insert(1, 10, "=SUM(B1:B10)", xSheet, false);
	// Second, insert a text string
		insert(2, 10, "-> This is the sum!", xSheet, false);

	// 空白Cell以外(A1～A3)の数値の平均:
	// (1) Insert dummy data
		insert(0, 0, 5.2, xSheet, true);
		insert(0, 2, 2.3, xSheet, true);
	// (2) Calculate and print average
		result = avgNonEmpty(0, 0, 0, 2, xSheet);
		insert(0, 3, result, xSheet, true);
	// (3) Insert some labels
		insert(1, 1, "<- Remains empty", xSheet, false);
		insert(1, 3, "<- The average", xSheet, false);


// [ Function :  insert ]
//Cellへの入力関数(insert)の定義
function insert(x, y, content, container, isValue)
{
oCell = container.getCellByPosition(x, y);
if(isValue)
oCell.setValue(new java.lang.Float(content).floatValue());
else
oCell.setFormula(content);
}

// [ Function :  avgNonEmpty ]
//空白Cell以外の数値の平均関数(avgNonEmpty)の定義
function avgNonEmpty(fromx, fromy, tox, toy, container)
{
sum = 0.0;
fieldCount = 0;
for(i=fromx; i<=tox; i++)
{
for(j=fromy; j<=toy; j++)
{
currentCell = container.getCellByPosition(i, j);
currentValue = currentCell.getValue();
if(currentValue != "")
{
sum += currentValue;
fieldCount++;
}}}
if(fieldCount > 0)
return (sum/fieldCount);
else
return 0;
}

C)[Calc]Cellの結合


//Cellの結合
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.container.XIndexAccess);
// get document XModel and get specific sheet
		oDoc = XSCRIPTCONTEXT.getDocument();
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
		oSheet = xIndexAccess.getByIndex(0);

	// Cellへの入力
		xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
// Merge
importClass(Packages.com.sun.star.util.XMergeable);
	xMerge=UnoRuntime.queryInterface(XMergeable, oMergeRange);
	oMergeRange=xCellRange.getCellRangeByName( "B2:D5" );
	oMergeRange=xCellRange.getCellRangeByPosition( 1,4,1,5 );
	xMerge.merge(true);

[ Insert･Delete.Copy ]

CCI-)[Calc]CellのInsert



//[ Cell ] Insert of cells 
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);

importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.javax.swing.JOptionPane);

importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.table.CellRangeAddress);
importClass(Packages.com.sun.star.sheet.XCellRangeMovement);
importClass(Packages.com.sun.star.sheet.CellInsertMode);
try{
	// get document XModel and get specific sheet
	oDoc = XSCRIPTCONTEXT.getDocument();
	xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
	xSpreadsheets = xSpreadsheetDocument.getSheets();
	xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
	oSheet = xIndexAccess.getByIndex(0);

	// set Value in Cell
	xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
	xCellRange.getCellByPosition(0, 0).value = 1;
	xCellRange.getCellByPosition(0, 1).value = 2;
	xCellRange.getCellByPosition(0, 2).formula = "Sccess";
	xCellRange.getCellByPosition(0, 3).formula = "=A1+A2"; 
	
	// Insert Cell A3～A4
	oCellRngAdr = new CellRangeAddress
	oCellRngAdr.Sheet = 0
	oCellRngAdr.StartColumn = 0
	oCellRngAdr.StartRow = 2
	oCellRngAdr.EndColumn = 0
	oCellRngAdr.EndRow = 3
	xinterface=UnoRuntime.queryInterface(XCellRangeMovement, xCellRange);
	xinterface.insertCells(oCellRngAdr,CellInsertMode.DOWN)

	// msgbox
	JOptionPane.showMessageDialog(null, "Success\n(LO7.2.5.2)");

}catch(e){
//Error Handling
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

CCI-)[Calc]CellのDelete



//[ Cell ] Delete of cells 
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);

importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.javax.swing.JOptionPane);

importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.table.CellRangeAddress);
importClass(Packages.com.sun.star.sheet.XCellRangeMovement);
importClass(Packages.com.sun.star.sheet.CellDeleteMode);
try{
	// get document XModel and get specific sheet
	oDoc = XSCRIPTCONTEXT.getDocument();
	xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
	xSpreadsheets = xSpreadsheetDocument.getSheets();
	xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
	oSheet = xIndexAccess.getByIndex(0);

	// set Value in Cell
	xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
	xCellRange.getCellByPosition(0, 0).value = 1;
	xCellRange.getCellByPosition(0, 1).value = 2;
	xCellRange.getCellByPosition(0, 2).formula = "A3";xCellRange.getCellByPosition(1, 2).formula = "B3";
	xCellRange.getCellByPosition(0, 3).formula = "=A1+A2"; 
	
	// Remove cell A3
	oCellRngAdr = new CellRangeAddress
	oCellRngAdr.Sheet = 0
	oCellRngAdr.StartColumn = 0
	oCellRngAdr.StartRow = 2
	oCellRngAdr.EndColumn = 0
	oCellRngAdr.EndRow = 2
	xinterface=UnoRuntime.queryInterface(XCellRangeMovement, xCellRange);
	xinterface.removeRange(oCellRngAdr,CellDeleteMode.LEFT)

	// msgbox
	JOptionPane.showMessageDialog(null, "Success\n(LO7.2.5.2)");

}catch(e){
//Error Handling
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

CCI-)[Calc]CellのCopy



//[ Cell ] Copy of cells
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);

importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.javax.swing.JOptionPane);

importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.table.CellRangeAddress);
importClass(Packages.com.sun.star.sheet.XCellRangeMovement);
importClass(Packages.com.sun.star.table.CellAddress);

try{
	// get document XModel and get specific sheet
	oDoc = XSCRIPTCONTEXT.getDocument();
	xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
	xSpreadsheets = xSpreadsheetDocument.getSheets();
	xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
	oSheet = xIndexAccess.getByIndex(0);

	// set Value in Cell
	xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
	xCellRange.getCellByPosition(0, 0).value = 1;
	xCellRange.getCellByPosition(0, 1).value = 2;
	xCellRange.getCellByPosition(0, 2).formula = "A3";
	xCellRange.getCellByPosition(0, 3).formula = "=A1+A2"; 

	// Copy Source
	oCellRngAdr = new CellRangeAddress
	oCellRngAdr.Sheet = 0
	oCellRngAdr.StartColumn = 0
	oCellRngAdr.StartRow = 1
	oCellRngAdr.EndColumn = 0
	oCellRngAdr.EndRow = 3
	
	// Paste Cell
	oCellRng = new CellAddress
	oCellRng.Sheet = 0
	oCellRng.Column = 1
	oCellRng.Row = 1
	
	// copy cell
	xinterface=UnoRuntime.queryInterface(XCellRangeMovement, xCellRange);
	xinterface.copyRange(oCellRng,oCellRngAdr)
	
	//msgbox
	JOptionPane.showMessageDialog(null, "Success\n(LO7.2.5.2)");

}catch(e){
//Error Handling
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

CCI-)[Calc]CellのMove



//[ Cell ] Move of cells
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);

importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.javax.swing.JOptionPane);

importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.table.CellRangeAddress);
importClass(Packages.com.sun.star.sheet.XCellRangeMovement);
importClass(Packages.com.sun.star.table.CellAddress);

try{
	// get document XModel and get specific sheet
	oDoc = XSCRIPTCONTEXT.getDocument();
	xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
	xSpreadsheets = xSpreadsheetDocument.getSheets();
	xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
	oSheet = xIndexAccess.getByIndex(0);

	// set Value in Cell
	xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
	xCellRange.getCellByPosition(0, 0).value = 1;
	xCellRange.getCellByPosition(0, 1).value = 2;
	xCellRange.getCellByPosition(0, 2).formula = "A3";
	xCellRange.getCellByPosition(0, 3).formula = "=A1+A2"; 

	// Copy Source
	oCellRngAdr = new CellRangeAddress
	oCellRngAdr.Sheet = 0
	oCellRngAdr.StartColumn = 0
	oCellRngAdr.StartRow = 1
	oCellRngAdr.EndColumn = 0
	oCellRngAdr.EndRow = 3
	
	// Paste Cell
	oCellRng = new CellAddress
	oCellRng.Sheet = 0
	oCellRng.Column = 1
	oCellRng.Row = 1
	
	// Move cell
	xinterface=UnoRuntime.queryInterface(XCellRangeMovement, xCellRange);
	xinterface.moveRange(oCellRng,oCellRngAdr)
	
	//msgbox
	JOptionPane.showMessageDialog(null, "Success\n(LO7.2.5.2)");

}catch(e){
//Error Handling
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

Style

CCS-1)[Calc]指定Cell( A1, A2 )の背景色設定



//[ Cell ] Backcolor of Cells
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.beans.XPropertySet);
importClass(Packages.javax.swing.JOptionPane);
try{
	loadProps = new Array(); // We need no properties
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	xDocument = UnoRuntime.queryInterface(XSpreadsheetDocument,xSheetComponent);
	xSheets = xDocument.getSheets();
	xIndexSheets =UnoRuntime.queryInterface(XIndexAccess, xSheets);
	xSheet =UnoRuntime.queryInterface(XSpreadsheet,xIndexSheets.getByIndex(0));
	// Cell(A1,A2)
	oCell =new Array();
	for(i=0; i<=1; i++){
		oCell_all = xSheet.getCellByPosition(0, i);
		//Set BackColor of Cell
		oCellProperties1 =UnoRuntime.queryInterface(XPropertySet, oCell_all);			
		oCellProperties1.setPropertyValue("IsCellBackgroundTransparent", new java.lang.Boolean(false));
		oCellProperties1.setPropertyValue("CellBackColor", new java.lang.Integer(16309472)); // = hex f8dce0
	}
	JOptionPane.showMessageDialog(null, "Success\n(LO7.2.5.2)");
}catch(e){
//Error Handling
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

CCS-2)[Calc]指定Cell( A1, A2 )の文字色設定



//[ Cell ] Charactor Color of Cells
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.beans.XPropertySet);
importClass(Packages.javax.swing.JOptionPane);
try{
	loadProps = new Array(); // We need no properties
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	xDocument = UnoRuntime.queryInterface(XSpreadsheetDocument,xSheetComponent);
	xSheets = xDocument.getSheets();
	xIndexSheets =UnoRuntime.queryInterface(XIndexAccess, xSheets);
	xSheet =UnoRuntime.queryInterface(XSpreadsheet,xIndexSheets.getByIndex(0));
	// Cell(A1,A2)
	oCell =new Array();
	for(i=0; i<=1; i++){
		oCell_all = xSheet.getCellByPosition(0, i);
		oCell_all.formula = "A" + (i+1)
		//Set color of charactor 
		oCellProperties1 =UnoRuntime.queryInterface(XPropertySet, oCell_all);			
		oCellProperties1.setPropertyValue("CharColor", new java.lang.Integer(16711680)); // = hex FF 00 00縲( = Red)
	}
	JOptionPane.showMessageDialog(null, "Success\n(LO7.2.5.2)");
}catch(e){
//Error Handling
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

CCS-3)[Calc]専用Style(背景色、文字色、Style Name = "MyStyle")の設定(「書式」⇒「スタイルと書式設定」に追加)


//[ Cell ] Add Cell Style
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.style.XStyleFamiliesSupplier);
importClass(Packages.com.sun.star.container.XNameAccess);
importClass(Packages.com.sun.star.lang.XMultiServiceFactory);
importClass(Packages.com.sun.star.container.XNameContainer);
importClass(Packages.com.sun.star.beans.XPropertySet);
importClass(Packages.javax.swing.JOptionPane);
try{
	loadProps = new Array(); // We need no properties
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	xDocument = UnoRuntime.queryInterface(XSpreadsheetDocument,xSheetComponent);
	xSheets = xDocument.getSheets();
	xIndexSheets =UnoRuntime.queryInterface(XIndexAccess, xSheets);
	xSheet =UnoRuntime.queryInterface(XSpreadsheet,xIndexSheets.getByIndex(0));

	// Set Style of Cell
	xStyleFamiliesSupplier =UnoRuntime.queryInterface(XStyleFamiliesSupplier, xDocument);
	xStyleFamilies = xStyleFamiliesSupplier.getStyleFamilies();
	
	//Accessible using cell name
	xCellStyles =UnoRuntime.queryInterface(XNameAccess, xStyleFamilies.getByName("CellStyles"));
	xDocumentMultiServiceFactory =UnoRuntime.queryInterface(XMultiServiceFactory, xDocument);
	oStyleFamilyNameContainer =UnoRuntime.queryInterface(XNameContainer, xCellStyles);
	
	//Set style name
	style = xDocumentMultiServiceFactory.createInstance("com.sun.star.style.CellStyle");
	oStyleFamilyNameContainer.insertByName("MyStyle", style);

	//Set cell style
	oCellProperties1 =UnoRuntime.queryInterface(XPropertySet, style);
	
	//Set backColor of cell
	oCellProperties1.setPropertyValue("IsCellBackgroundTransparent", new java.lang.Boolean(false));
	oCellProperties1.setPropertyValue("CellBackColor", new java.lang.Integer(6710932)); // = hex 66 66 94
	
	//Set color of charactor
	oCellProperties1.setPropertyValue("CharColor", new java.lang.Integer(16777215)); // = hex FF FF FF ( = White)
	
	JOptionPane.showMessageDialog(null, "Success\n(LO7.2.5.2)");
}catch(e){
//Error Handling
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

[ Note ] : 同名のStyleが存在する場合は上書きされる。

←Before

←After

CCS-4)[Calc]指定範囲を専用Styleにする


//[ Cell ] Set Style of the Range  
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.style.XStyleFamiliesSupplier);
importClass(Packages.com.sun.star.container.XNameAccess);
importClass(Packages.com.sun.star.lang.XMultiServiceFactory);
importClass(Packages.com.sun.star.container.XNameContainer);
importClass(Packages.com.sun.star.beans.XPropertySet);
importClass(Packages.javax.swing.JOptionPane);
try{
	loadProps = new Array(); // We need no properties
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	xDocument = UnoRuntime.queryInterface(XSpreadsheetDocument,xSheetComponent);
	xSheets = xDocument.getSheets();
	xIndexSheets =UnoRuntime.queryInterface(XIndexAccess, xSheets);
	xSheet =UnoRuntime.queryInterface(XSpreadsheet,xIndexSheets.getByIndex(0));

	// Set Style of Cell
	xStyleFamiliesSupplier =UnoRuntime.queryInterface(XStyleFamiliesSupplier, xDocument);
	xStyleFamilies = xStyleFamiliesSupplier.getStyleFamilies();
	
	//Accessible using cell name
	xCellStyles =UnoRuntime.queryInterface(XNameAccess, xStyleFamilies.getByName("CellStyles"));
	xDocumentMultiServiceFactory =UnoRuntime.queryInterface(XMultiServiceFactory, xDocument);
	oStyleFamilyNameContainer =UnoRuntime.queryInterface(XNameContainer, xCellStyles);
	
	//Set style name
	style = xDocumentMultiServiceFactory.createInstance("com.sun.star.style.CellStyle");
	oStyleFamilyNameContainer.insertByName("MyStyle", style);

	//Set cell style
	oCellProperties1 =UnoRuntime.queryInterface(XPropertySet, style);
	
	//Set backColor of cell
	oCellProperties1.setPropertyValue("IsCellBackgroundTransparent", new java.lang.Boolean(false));
	oCellProperties1.setPropertyValue("CellBackColor", new java.lang.Integer(6710932)); // = hex 66 66 94
	
	//Set color of charactor
	oCellProperties1.setPropertyValue("CharColor", new java.lang.Integer(16777215)); // = hex FF FF FF ( = White)
	
	cellRange = xSheet.getCellRangeByPosition(0, 1, 0, 2);
	// get existing properties of cells in range
	cellProperties =UnoRuntime.queryInterface(XPropertySet, cellRange);
	// redefine properties of cells in range
	cellProperties.setPropertyValue("CellStyle", "MyStyle");
	
	JOptionPane.showMessageDialog(null, "Success\n(LO7.2.5.2)");
}catch(e){
//Error Handling
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

←Before

←After

CCS-)[Calc]Cell Fontの設定



//[ Cell Font ]
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.container.XIndexAccess);
//importClass(Packages.com.sun.star.text.XTextRange);
importClass(Packages.com.sun.star.beans.XPropertySet);
	//
	// get document XModel and get specific sheet
		oDoc = XSCRIPTCONTEXT.getDocument();
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
		oSheet = xIndexAccess.getByIndex(0);
	//
	// Cellへの入力
		xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
		xCellRange.getCellByPosition(0, 0).value = 1;
		xCellRange.getCellByPosition(0, 1).value = 2;
		xCellRange.getCellByPosition(0, 2).formula = "表計算";　	//←文字列入力
		xCellRange.getCellByPosition(0, 3).formula = "=A1+A2"; 		// ←式入力
	// Cell Font
	for(i=0; i<=3; i++){
	 switch(i){
	   case 0: xFontName = "Arial"; xFontNameAsia = "Arial"; break;
	   case 1: xFontName = "HGコシックE"; xFontNameAsia = "HGコシックE"; break;
	   case 2: xFontName = "HG行書体"; xFontNameAsia = "HG行書体"; break;
	   case 3: xFontName = "Impact"; xFontNameAsia = "Impact"; break;
		}
	 xCell = xCellRange.getCellByPosition(0, i)
	 xFont = UnoRuntime.queryInterface(XPropertySet,xCell);
	 xFont.setPropertyValue("CharFontName",xFontName);
	 xFont.setPropertyValue("CharFontNameAsian",xFontNameAsia);
	}

CCS-)[Calc]文字Sizeの設定



//[ Cell FontHeight ]
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.container.XIndexAccess);
//importClass(Packages.com.sun.star.text.XTextRange);
importClass(Packages.com.sun.star.beans.XPropertySet);
	//
	// get document XModel and get specific sheet
		oDoc = XSCRIPTCONTEXT.getDocument();
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
		oSheet = xIndexAccess.getByIndex(0);
	//
	// Cellへの入力
		xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
		xCellRange.getCellByPosition(0, 0).value = 1;
		xCellRange.getCellByPosition(0, 1).value = 2;
		xCellRange.getCellByPosition(0, 2).formula = "表計算";　	//←文字列入力
		xCellRange.getCellByPosition(0, 3).formula = "=A1+A2"; 		// ←式入力
	// Cell Font
	for(i=0; i<=3; i++){
	 switch(i){
	   case 0: xFontHigh = 10; xFontAsiaHigh = 10; break;
	   case 1: xFontHigh = 15; xFontAsiaHigh = 15; break;
	   case 2: xFontHigh = 20; xFontAsiaHigh = 20; break;
	   case 3: xFontHigh = 25; xFontAsiaHigh = 25; break;
		}
	 xCell = xCellRange.getCellByPosition(0, i)
	 xFont = UnoRuntime.queryInterface(XPropertySet,xCell);
	 xFont.setPropertyValue("CharHeight",xFontHigh);
	 xFont.setPropertyValue("CharHeightAsian",xFontAsiaHigh);
	}

CCS-)[Calc]文字太さの設定



//[ Cell FontWeight ]
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.container.XIndexAccess);
//importClass(Packages.com.sun.star.text.XTextRange);
importClass(Packages.com.sun.star.beans.XPropertySet);

importClass(Packages.com.sun.star.awt.FontWeight);
importClass(Packages.com.sun.star.awt.FontSlant);

importClass(Packages.javax.swing.JOptionPane);
try{
	// get document XModel and get specific sheet
	oDoc = XSCRIPTCONTEXT.getDocument();
	xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
	xSpreadsheets = xSpreadsheetDocument.getSheets();
	xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
	oSheet = xIndexAccess.getByIndex(0);
	//
	// set Text
	xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
	for(i=0; i<=3; i++){
		
		xCell = xCellRange.getCellByPosition(0, i);
		// Cell Font
	 	switch(i){
	   	case 0:
			xCell.formula = "NONE\n標準";
			xFontW  = FontWeight.DONTKNOW
			xFontS = FontSlant.NONE ; break;
	   	case 1:
			xCell.formula = "BOLD\n太字";
			xFontW  = FontWeight.BOLD
			xFontS = FontSlant.NONE ; break;
	  	case 2:
			xCell.formula = "ITALIC\n斜体";
			xFontW  = FontWeight.DONTKNOW
			xFontS = FontSlant.ITALIC ; break;
	  	case 3:
			xCell.formula = "Bold & ITALIC\n太字 & 斜体";
			xFontW  = FontWeight.BOLD
			xFontS = FontSlant.ITALIC ; break;
	 	}
		xCell = xCellRange.getCellByPosition(0, i);
		xFont = UnoRuntime.queryInterface(XPropertySet,xCell);

		// alphabet & Number
		xFont.setPropertyValue("CharPosture",xFontS);
		xFont.setPropertyValue("CharWeight",xFontW);

		// Asian Font
		xFont.setPropertyValue("CharPostureAsian",xFontS);
		xFont.setPropertyValue("CharWeightAsian",xFontW);
	}
	
	JOptionPane.showMessageDialog(null, "Success\n(LO7.2.5.2)");
}catch(e){
//Error Handling
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

CCS-)[Calc]Textを自動的に折り返す



//[ Cell IsTextWapped ]
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.text.XTextRange);
importClass(Packages.com.sun.star.beans.XPropertySet);
	//
	// get document XModel and get specific sheet
		oDoc = XSCRIPTCONTEXT.getDocument();
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
		oSheet = xIndexAccess.getByIndex(0);
	//
	// Cellへの入力
		xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
		xCellRange.getCellByPosition(0, 0).formula = "abcdefghijklmnopqrstuvwxyz";
		xCellRange.getCellByPosition(0, 1).formula = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
		xCellRange.getCellByPosition(0, 2).formula = "あいうえおかきくけこさしすせそ";　	//←文字列入力
		xCellRange.getCellByPosition(0, 3).formula = "Textを自動的に折り返す";
	// Cell Font
	for(i=0; i<=3; i++){
	 xCell = xCellRange.getCellByPosition(0, i)
	 xFont = UnoRuntime.queryInterface(XPropertySet,xCell);
	 xFont.setPropertyValue("IsTextWrapped",new java.lang.Boolean(true));
	}

CCS-)[Calc]文字の角度設定



//[ Angle of Charactor ]
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.container.XIndexAccess);

importClass(Packages.com.sun.star.beans.XPropertySet);

importClass(Packages.javax.swing.JOptionPane);
try{
	// get document XModel and get specific sheet
	oDoc = XSCRIPTCONTEXT.getDocument();
	xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
	xSpreadsheets = xSpreadsheetDocument.getSheets();
	xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
	oSheet = xIndexAccess.getByIndex(0);
	//
	// set Text
	xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
	for(i=0; i<=5; i++){
		xCell = xCellRange.getCellByPosition(0, i);
		xCell.formula = "A";
		// Angle of charactor
	 	switch(i){
	   	case 0:
			xAng = 2000 ; break;	// 20 degree
	   	case 1:
			xAng = 4000 ; break;
	  	case 2:
			xAng = 6000 ; break;
	  	case 3:
			xAng = 9000 ; break;
		case 4:
			xAng = -4500 ; break;
		case 5:
			xAng = -9000 ; break;			
	 	}
		xCell = xCellRange.getCellByPosition(0, i);
		xFont = UnoRuntime.queryInterface(XPropertySet,xCell);

		// Angle
		xFont.setPropertyValue("RotateAngle",new java.lang.Integer(xAng));
	}
	
	JOptionPane.showMessageDialog(null, "Success\n(LO7.2.5.2)");
}catch(e){
//Error Handling
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

[ Clear ]

CCClr-1)[Calc]CellのClear


//[ Cell ] Cear of cells 
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.text.XTextRange);
importClass(Packages.com.sun.star.sheet.XSheetOperation);

	// get document XModel and get specific sheet
		oDoc = XSCRIPTCONTEXT.getDocument();
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
		oSheet = xIndexAccess.getByIndex(0);

	// Cellへの入力
		xCellRange = UnoRuntime.queryInterface(XCellRange, oSheet);
		xCellRange.getCellByPosition(0, 0).value = 1;
		xCellRange.getCellByPosition(0, 1).value = 2;
		xCellRange.getCellByPosition(0, 2).formula = "Sccess";　	//←文字列入力
		xCellRange.getCellByPosition(0, 3).formula = "=A1+A2"; 		// ←式入力
	// A1 CellをClear
		xCell=UnoRuntime.queryInterface(XSheetOperation,xCellRange.getCellByPosition(0,0))
		xCell.clearContents(1+2+4+8+16+32+64+128+256+512)
	// 
		importClass(Packages.javax.swing.JOptionPane);
		JOptionPane.showMessageDialog(null, "Success");
// CellFlags
//	1	:	VALUE
// 	2	:	DATETIME
//	4	:	STRING
//	8	:	ANNOTATION
//	16	:	FORMULA
//	32	:	HARDATTR
//	64	:	STYLES
//	128	:	OBJECTS
//	256	:	EDITATTR
//	512	:	FORMATTED

file操作

CF-1)[Calc]新規にCalc fileを開く


//Open new Calc file
importClass(Packages.com.sun.star.beans.PropertyValue);
importClass(Packages.com.sun.star.comp.helper.Bootstrap);
importClass(Packages.com.sun.star.comp.helper.BootstrapException);
importClass(Packages.com.sun.star.frame.XComponentLoader);    //ActiveSheetの変更Cellの結合Cellの結合
importClass(Packages.com.sun.star.lang.XMultiComponentFactory);
importClass(Packages.com.sun.star.uno.Exception);
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.uno.XComponentContext);

	xContext = XSCRIPTCONTEXT.getComponentContext();
//	xContext = Bootstrap.bootstrap();　　　　　　　　　　//<= OOo3.1.1以前は動作した。
	xMultiComponentFactory = xContext.getServiceManager();
	xtest = xMultiComponentFactory.createInstanceWithContext("com.sun.star.frame.Desktop", xContext);
	xcomponentloader = UnoRuntime.queryInterface(XComponentLoader,xtest);

		loadURL = "private:factory/scalc";
		propertyvalue = new Array();
		xcomponentloader.loadComponentFromURL(loadURL, "_blank", 0, propertyvalue);

CF-2)[Calc]任意のCalc fileを開く


//Open new Calc file
importClass(Packages.com.sun.star.beans.PropertyValue);
importClass(Packages.com.sun.star.comp.helper.Bootstrap);
importClass(Packages.com.sun.star.comp.helper.BootstrapException);
importClass(Packages.com.sun.star.frame.XComponentLoader);
importClass(Packages.com.sun.star.lang.XMultiComponentFactory);
importClass(Packages.com.sun.star.uno.Exception);
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.uno.XComponentContext);
//
	xContext = XSCRIPTCONTEXT.getComponentContext();
//	xContext = Bootstrap.bootstrap();　　　　　　　　　　//<= OOo3.1.1以前は動作した。
	xMultiComponentFactory = xContext.getServiceManager();
	xtest = xMultiComponentFactory.createInstanceWithContext("com.sun.star.frame.Desktop", xContext);
	xcomponentloader = UnoRuntime.queryInterface(XComponentLoader,xtest);
//
	loadURL = "file:///C:/temp/oBaseMacro.ods";
//	loadURL = oURL.toString();						// <= String化しなくともOK
	propertyvalue = new Array();
	xcomponentloader.loadComponentFromURL(loadURL, "_blank", 0, propertyvalue);
//
importClass(Packages.javax.swing.JOptionPane);
JOptionPane.showMessageDialog(null, "Success");

CF-)[Calc]任意のCalc fileの開閉


//Open and Close Calc file
importClass(Packages.com.sun.star.beans.PropertyValue);
importClass(Packages.com.sun.star.comp.helper.Bootstrap);
importClass(Packages.com.sun.star.comp.helper.BootstrapException);
importClass(Packages.com.sun.star.frame.XComponentLoader);
importClass(Packages.com.sun.star.lang.XMultiComponentFactory);
importClass(Packages.com.sun.star.uno.Exception);
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.uno.XComponentContext);
//
	xContext = XSCRIPTCONTEXT.getComponentContext();
//	xContext = Bootstrap.bootstrap();　　　　　　　　　　//<= OOo3.1.1以前は動作した。
	xMultiComponentFactory = xContext.getServiceManager();
	xtest = xMultiComponentFactory.createInstanceWithContext("com.sun.star.frame.Desktop", xContext);
	xcomponentloader = UnoRuntime.queryInterface(XComponentLoader,xtest);
//
	loadURL = "file:///C:/temp/LibreOffice_Calc342.ods";
//	loadURL = oURL.toString();						// <= String化しなくともOK
	propertyvalue = new Array();
	oDoc = xcomponentloader.loadComponentFromURL(loadURL, "_blank", 0, propertyvalue);
//
	oDoc.dispose();
//
importClass(Packages.javax.swing.JOptionPane);
JOptionPane.showMessageDialog(null, "Success");

CF-)[Calc]任意のCalc fileの開き、上書き保存後に閉じる


//Open and Close with save for Calc file
importClass(Packages.com.sun.star.beans.PropertyValue);
importClass(Packages.com.sun.star.comp.helper.Bootstrap);
importClass(Packages.com.sun.star.comp.helper.BootstrapException);
importClass(Packages.com.sun.star.frame.XComponentLoader);
importClass(Packages.com.sun.star.lang.XMultiComponentFactory);
importClass(Packages.com.sun.star.uno.Exception);
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.uno.XComponentContext);
//
importClass(Packages.com.sun.star.frame.XStorable);
//
	xContext = XSCRIPTCONTEXT.getComponentContext();
//	xContext = Bootstrap.bootstrap();　　　　　　　　　　//<= OOo3.1.1以前は動作した。
	xMultiComponentFactory = xContext.getServiceManager();
	xtest = xMultiComponentFactory.createInstanceWithContext("com.sun.star.frame.Desktop", xContext);
	xcomponentloader = UnoRuntime.queryInterface(XComponentLoader,xtest);
//
	loadURL = "file:///C:/temp/LibreOffice_Calc342.ods";
//	loadURL = oURL.toString();						// <= String化しなくともOK
	propertyvalue = new Array();
	oDoc = xcomponentloader.loadComponentFromURL(loadURL, "_blank", 0, propertyvalue);
//
	oStoreURL = loadURL;
	xStorable = UnoRuntime.queryInterface(XStorable,oDoc);
	storeProps = new PropertyValue();
	storeProps.Name = "Overwrite";
	storeProps.Value = true;
	xStorable.storeAsURL(oStoreURL,[storeProps]);
//
	oDoc.dispose();
//
importClass(Packages.javax.swing.JOptionPane);
JOptionPane.showMessageDialog(null, "Success");

Sheet操作

CS-1)[Calc]Sheet1にAccessする


//Access to Sheet1
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);

	loadProps = new Array(); // We need no properties
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	xDocument = UnoRuntime.queryInterface(XSpreadsheetDocument,xSheetComponent);
	xSheets = xDocument.getSheets();
	xIndexSheets =UnoRuntime.queryInterface(XIndexAccess, xSheets);
	xSheet =UnoRuntime.queryInterface(XSpreadsheet,xIndexSheets.getByIndex(0));

CS-)[Calc]Current Sheetの変更


importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
	oDoc = XSCRIPTCONTEXT.getDocument();
	xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
	xSpreadsheets = xSpreadsheetDocument.getSheets();
	xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
	oSheet0 = xIndexAccess.getByIndex(0);
	// Current Sheetの変更(Sheet1 ⇒ Sheet2)
		oSheet1 = xIndexAccess.getByIndex(1);
		xCellRange1 = UnoRuntime.queryInterface(XCellRange, oSheet1);
		xCellRange1.getCellByPosition(0, 0).value = 1;
		xCellRange1.getCellByPosition(0, 1).value = 2;
		xCellRange1.getCellByPosition(0, 2).formula = "=A1+A2";

CS-)[Calc]Current Sheet名の取得1



importClass(Packages.com.sun.star.chart.XChartData);
importClass(Packages.com.sun.star.container.XNamed);
importClass(Packages.com.sun.star.frame.XController);
importClass(Packages.com.sun.star.frame.XModel);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.sheet.XSpreadsheetView);
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.javax.swing.JOptionPane);

try{
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
		xModel = UnoRuntime.queryInterface(XModel, xSheetComponent);
		xController = xModel.getCurrentController();
	
		xSpreadsheetView = UnoRuntime.queryInterface(XSpreadsheetView, xController);
		xSpreadsheet = xSpreadsheetView.getActiveSheet();
	
		xChartData = UnoRuntime.queryInterface(XChartData, xSpreadsheet);
		fNotANumber = xChartData.getNotANumber();
	
		xNamed = UnoRuntime.queryInterface(XNamed, xSpreadsheet);
	oName = xNamed.getName();
	JOptionPane.showMessageDialog(null, oName);
}catch(e){
	//Error処理
		errorname = e.name;
		errormsg = e.message;
		eDisp= errorname + "\n" + errormsg;
	JOptionPane.showMessageDialog(null, eDisp);
}

CS-)[Calc]Current Sheet名の取得2



//
importClass(Packages.javax.swing.JOptionPane);
importClass(Packages.com.sun.star.chart.XChartData);
importClass(Packages.com.sun.star.container.XNamed);
importClass(Packages.com.sun.star.frame.XController);
importClass(Packages.com.sun.star.frame.XModel);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.sheet.XSpreadsheetView);
importClass(Packages.com.sun.star.uno.UnoRuntime);

function oSheetName(oInitialTarget){
	xModel = UnoRuntime.queryInterface(XModel, oInitialTarget);
	xController = xModel.getCurrentController();
	
	xSpreadsheetView = UnoRuntime.queryInterface(XSpreadsheetView, xController);
	xSpreadsheet = xSpreadsheetView.getActiveSheet();
	
	xChartData = UnoRuntime.queryInterface(XChartData, xSpreadsheet);
	fNotANumber = xChartData.getNotANumber();
	
	xNamed = UnoRuntime.queryInterface(XNamed, xSpreadsheet);
	oName = xNamed.getName();
	return oName	
	}
// 
try{
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	oSName = oSheetName(xSheetComponent);
	JOptionPane.showMessageDialog(null, oSName);
}catch(e){
	//Error処理
		errorname = e.name;
		errormsg = e.message;
		eDisp= errorname + "\n" + errormsg;
	JOptionPane.showMessageDialog(null, eDisp);
}

CS-)[Calc]Sheet名があるかどうかを調べる



//
importClass(Packages.javax.swing.JOptionPane);
importClass(Packages.com.sun.star.container.XNameAccess);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.uno.RuntimeException);
importClass(Packages.com.sun.star.uno.UnoRuntime);

function oExit(oInitialTarget,oSNa)
{
	try
	{
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oInitialTarget);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		
		xNameAccess = UnoRuntime.queryInterface(XNameAccess, xSpreadsheets);
		ohasByName = xNameAccess.hasByName(oSNa);
		return ohasByName
	}
	catch (e)
	{
		if (e instanceof RuntimeException) {
			// hasByName
		} else {
		}
	}
}

try{
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	oN = "Sheet4";
	if(oExit(xSheetComponent,oN)){
			oDisp = oN + " は存在します。";
		}else{
			oDisp = oN + " は存在しません。";
		}
	JOptionPane.showMessageDialog(null, oDisp);
	JOptionPane.showMessageDialog(null, "Success");
}catch(e){
	//Error処理
		errorname = e.name;
		errormsg = e.message;
		eDisp= errorname + "\n" + errormsg;
	JOptionPane.showMessageDialog(null, eDisp);
}

CS-)[Calc]Sheet枚数取得



importClass(Packages.javax.swing.JOptionPane);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.container.XNameAccess);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.uno.RuntimeException);
importClass(Packages.com.sun.star.uno.UnoRuntime);

function oSheetNum(oInitialTarget)
{
	try
	{
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oInitialTarget);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		
		xNameAccess = UnoRuntime.queryInterface(XNameAccess, xSpreadsheets);
		sElementNames = xNameAccess.getElementNames();
		
		xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
		oCount = xIndexAccess.getCount();
		return oCount 
		
	}
	catch (e)
	{
		if (e instanceof RuntimeException) {
			// getElementNames
		} else {
		}
	}
}
//
try{
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	oNum = oSheetNum(xSheetComponent)
		oDisp = "Sheet枚数　=> " + oNum
	JOptionPane.showMessageDialog(null, oDisp);
	JOptionPane.showMessageDialog(null, "Success");
}catch(e){
	//Error処理
		errorname = e.name;
		errormsg = e.message;
		eDisp= errorname + "\n" + errormsg;
	JOptionPane.showMessageDialog(null, eDisp);
}

CS-)[Calc]Sheetの新規挿入



//
importClass(Packages.javax.swing.JOptionPane);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.container.XNameAccess);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.uno.RuntimeException);
importClass(Packages.com.sun.star.uno.UnoRuntime);

function oInsertSheet(oInitialTarget,oSN,oPos)
{
	try
	{
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oInitialTarget);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		
		xNameAccess = UnoRuntime.queryInterface(XNameAccess, xSpreadsheets);
		sElementNames = xNameAccess.getElementNames();
		
		xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
		nCount = xIndexAccess.getCount();
		
		xSpreadsheets_2 = xSpreadsheetDocument.getSheets();
		
		xSpreadsheets_2.insertNewByName(oSN, oPos);
		
	}
	catch (e)
	{
		if (e instanceof RuntimeException) {
			// getElementNames
		} else {
		}
	}
}
// 
function oExit(oInitialTarget,oSNa)
{
	try
	{
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oInitialTarget);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		
		xNameAccess = UnoRuntime.queryInterface(XNameAccess, xSpreadsheets);
		ohasByName = xNameAccess.hasByName(oSNa);
		return ohasByName
	}
	catch (e)
	{
		if (e instanceof RuntimeException) {
			// hasByName
		} else {
		}
	}
}
//
try{
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
		oSN = "macro"
		oPos = 0
	oInsertSheet(xSheetComponent,oSN,oPos)
	//confirm
		if(oExit(xSheetComponent,oSN)){
			oDisp = "Sheet Name 「 " + oSN + " 」を追加しました。"
		}else{
			oDisp = "Sheet Name 「 " + oSN + " 」の追加に失敗しました。"
		}
	JOptionPane.showMessageDialog(null, oDisp);		
	JOptionPane.showMessageDialog(null, "Success");	
}catch(e){
	//Error処理
		errorname = e.name;
		errormsg = e.message;
		eDisp= errorname + "\n" + errormsg;
	JOptionPane.showMessageDialog(null, eDisp);
}

CS-)[Calc]SheetのCopy



//
importClass(Packages.javax.swing.JOptionPane);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.uno.UnoRuntime);

function oSheetCopy(oInitialTarget,oSh,oCopy,oPos)
{
	xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oInitialTarget);
	xSpreadsheets = xSpreadsheetDocument.getSheets();
	
	xSpreadsheets.copyByName(oSh, oCopy, oPos);	
}
//
try{
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
		oSh = "Sheet1";
		oCopy = "CopySheet";
		oPos = 0;	
	oSheetCopy(xSheetComponent,oSh,oCopy,oPos)
	JOptionPane.showMessageDialog(null, "Success");	
}catch(e){
	//Error処理
		errorname = e.name;
		errormsg = e.message;
		eDisp= errorname + "\n" + errormsg;
	JOptionPane.showMessageDialog(null, eDisp);
}

CS-)[Calc]Sheetの移動



//
importClass(Packages.javax.swing.JOptionPane);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.uno.UnoRuntime);

function oMoveSheet(oInitialTarget,oSh,oPos)
{
	xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oInitialTarget);
	xSpreadsheets = xSpreadsheetDocument.getSheets();	
	xSpreadsheets.moveByName(oSh, oPos);
	
}
//
try{
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
		oSh = "CopySheet";
		oPos = 3;	
	oMoveSheet(xSheetComponent,oSh,oPos);
	JOptionPane.showMessageDialog(null, "Success");	
}catch(e){
	//Error処理
		errorname = e.name;
		errormsg = e.message;
		eDisp= errorname + "\n" + errormsg;
	JOptionPane.showMessageDialog(null, eDisp);
}

CS-)[Calc]Sheetの削除



//
importClass(Packages.javax.swing.JOptionPane);
importClass(Packages.com.sun.star.container.NoSuchElementException);
importClass(Packages.com.sun.star.container.XNameContainer);
importClass(Packages.com.sun.star.lang.WrappedTargetException);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.uno.RuntimeException);
importClass(Packages.com.sun.star.uno.UnoRuntime);

function oRemoveSheet(oInitialTarget,oRSh)
{
	try
	{
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oInitialTarget);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		
		xNameContainer = UnoRuntime.queryInterface(XNameContainer, xSpreadsheets);
		xNameContainer.removeByName(oRSh);
		
	}
	catch (e)
	{
		if (e instanceof NoSuchElementException) {
			// removeByName
		} else if (e instanceof WrappedTargetException) {
			// removeByName
		} else if (e instanceof RuntimeException) {
			// removeByName
		} else {
		}
	}
}
//
try{
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
		oRSh = "CopySheet";	
	oRemoveSheet(xSheetComponent,oRSh);
	JOptionPane.showMessageDialog(null, "Success");	
}catch(e){
	//Error処理
		errorname = e.name;
		errormsg = e.message;
		eDisp= errorname + "\n" + errormsg;
	JOptionPane.showMessageDialog(null, eDisp);
}

CS-)[Calc]Sheet名の変更



//
importClass(Packages.javax.swing.JOptionPane);
importClass(Packages.com.sun.star.container.NoSuchElementException);
importClass(Packages.com.sun.star.container.XNameAccess);
importClass(Packages.com.sun.star.container.XNamed);
importClass(Packages.com.sun.star.lang.WrappedTargetException);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.uno.RuntimeException);
importClass(Packages.com.sun.star.uno.UnoRuntime);

function oReNameSheet(oInitialTarget,oSh,oRen)
{
	try
	{
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oInitialTarget);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		
		xNameAccess = UnoRuntime.queryInterface(XNameAccess, xSpreadsheets);
		xSpreadsheet = UnoRuntime.queryInterface(XSpreadsheet, xNameAccess.getByName(oSh));
		
		xNamed = UnoRuntime.queryInterface(XNamed, xSpreadsheet);
		
		sName = xNamed.getName();
		
		xNamed.setName(oRen);
		
	}
	catch (e)
	{
		if (e instanceof NoSuchElementException) {
			// getByName
		} else if (e instanceof WrappedTargetException) {
			// getByName
		} else if (e instanceof RuntimeException) {
			// getByName
		} else {
		}
	}
}
//
try{
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
		oSh = "Sheet2";
		oRen = "ReName"
	oReNameSheet(xSheetComponent,oSh,oRen)	
	JOptionPane.showMessageDialog(null, "Success");	
}catch(e){
	//Error処理
		errorname = e.name;
		errormsg = e.message;
		eDisp= errorname + "\n" + errormsg;
	JOptionPane.showMessageDialog(null, eDisp);
}

CS-)[Calc]Sheet Style取得



//
importClass(Packages.javax.swing.JOptionPane);
importClass(Packages.com.sun.star.beans.UnknownPropertyException);
importClass(Packages.com.sun.star.beans.XPropertySet);
importClass(Packages.com.sun.star.container.NoSuchElementException);
importClass(Packages.com.sun.star.container.XNameAccess);
importClass(Packages.com.sun.star.container.XNamed);
importClass(Packages.com.sun.star.lang.WrappedTargetException);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.uno.RuntimeException);
importClass(Packages.com.sun.star.uno.UnoRuntime);

function oSheetStyle(oInitialTarget,oSh,oProp)
{
	try
	{
		xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oInitialTarget);
		xSpreadsheets = xSpreadsheetDocument.getSheets();
		
		xNameAccess = UnoRuntime.queryInterface(XNameAccess, xSpreadsheets);
		xSpreadsheet = UnoRuntime.queryInterface(XSpreadsheet, xNameAccess.getByName(oSh));
		
		xPropertySet = UnoRuntime.queryInterface(XPropertySet, xSpreadsheet);
		oPropertyValue = xPropertySet.getPropertyValue(oProp);
		return oPropertyValue
		
	}
	catch (e)
	{
		if (e instanceof NoSuchElementException) {
			// getByName
		} else if (e instanceof WrappedTargetException) {
			// getByName, getPropertyValue
		} else if (e instanceof UnknownPropertyException) {
			// getPropertyValue
		} else if (e instanceof RuntimeException) {
			// getByName, getPropertyValue
		} else {
		}
	}
}
//
try{
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
		oSh = "Sheet1";
		oProp = "PageStyle"
	oPStyle = oSheetStyle(xSheetComponent,oSh,oProp)
	oDisp = oSh + " のSheet Style　=> " + oPStyle
	JOptionPane.showMessageDialog(null, oDisp);	
	JOptionPane.showMessageDialog(null, "Success");	
}catch(e){
	//Error処理
		errorname = e.name;
		errormsg = e.message;
		eDisp= errorname + "\n" + errormsg;
	JOptionPane.showMessageDialog(null, eDisp);
}

CS-)[Calc]

Address

CAd)[Calc]Active CellのAddress取得



try{
// get address for active cell
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.frame.XModel);
importClass(Packages.com.sun.star.lang.XServiceInfo);
importClass(Packages.com.sun.star.sheet.XCellRangeAddressable);
importClass(Packages.com.sun.star.awt.XWindowPeer);
importClass(Packages.com.sun.star.awt.XWindow);
importClass(Packages.com.sun.star.awt.XMessageBoxFactory);
importClass(Packages.com.sun.star.awt.MessageBoxType);

// shows message in the message box
function showMessage(xDesktop, message, title)
{
  xFrame = xDesktop.getCurrentFrame();
  xWindow = xFrame.getContainerWindow();
  xWindowPeer = UnoRuntime.queryInterface(XWindowPeer, xWindow);
  xToolkit = xWindowPeer.getToolkit();
  xMessageboxFactory = UnoRuntime.queryInterface(XMessageBoxFactory, xToolkit);
  // xMessageBox = xMessageboxFactory.createMessageBox(xWindowPeer, new Rectangle(), 'messbox', 1, "", message);
  xMessageBox = xMessageboxFactory.createMessageBox(xWindowPeer, MessageBoxType.MESSAGEBOX, 1, title, message);
  return xMessageBox.execute();
}

oDoc = UnoRuntime.queryInterface(XModel,XSCRIPTCONTEXT.getInvocationContext());
if ( !oDoc )
  oDoc = XSCRIPTCONTEXT.getDocument();

xModel = UnoRuntime.queryInterface(XModel, oDoc);
obj = xModel.getCurrentSelection();
xServiceInfo = UnoRuntime.queryInterface(XServiceInfo, obj);
if (xServiceInfo != null) {
  xCellRange = null;
  if (xServiceInfo.supportsService("com.sun.star.sheet.SheetCellRange")) {
    xCellRangeAddressable = UnoRuntime.queryInterface(XCellRangeAddressable, obj);
    aRangeAddress = xCellRangeAddressable.getRangeAddress();
    
    result = "Column: " + aRangeAddress.EndColumn + "\n" + "Row: " + aRangeAddress.EndRow;
    showMessage(XSCRIPTCONTEXT.getDesktop(), result, "LO7.2.5.2");
  }
}
}catch(e){
//Error Handling
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\r\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

CAd)[Calc]任意の列のData最終行取得



try{
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.frame.XModel);
importClass(Packages.com.sun.star.lang.XServiceInfo);
importClass(Packages.com.sun.star.sheet.XCellRangeAddressable);
importClass(Packages.com.sun.star.awt.XWindowPeer);
importClass(Packages.com.sun.star.awt.XWindow);
importClass(Packages.com.sun.star.awt.XMessageBoxFactory);
// importClass(Packages.com.sun.star.awt.Rectangle);  // LO 4.1 / AOO 3.4以前
importClass(Packages.com.sun.star.awt.MessageBoxType); // LO 4.2 / AOO 4.0以降
importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.table.XColumnRowRange);
importClass(Packages.com.sun.star.table.XTableColumns);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.sheet.XSheetCellRanges);
importClass(Packages.com.sun.star.sheet.CellFlags);
importClass(Packages.com.sun.star.sheet.XCellRangesQuery);


// shows message in the message box
function showMessage(xDesktop, message, title)
{
  xFrame = xDesktop.getCurrentFrame();
  xWindow = xFrame.getContainerWindow();
  xWindowPeer = UnoRuntime.queryInterface(XWindowPeer, xWindow);
  xToolkit = xWindowPeer.getToolkit();
  xMessageboxFactory = UnoRuntime.queryInterface(XMessageBoxFactory, xToolkit);
  // xMessageBox = xMessageboxFactory.createMessageBox(xWindowPeer, new Rectangle(), 'messbox', 1, "", message);
  xMessageBox = xMessageboxFactory.createMessageBox(xWindowPeer, MessageBoxType.MESSAGEBOX, 1, title, message);
  return xMessageBox.execute();
}

// column index to find its last row index
nColumn = 0;
nSheet = 0;

// content flags
nFlags = CellFlags.VALUE + CellFlags.DATETIME + CellFlags.STRING + 
  CellFlags.ANNOTATION + CellFlags.FORMULA + CellFlags.HARDATTR + 
  CellFlags.STYLES + CellFlags.OBJECTS + CellFlags.EDITATTR + CellFlags.FORMATTED;


oDoc = UnoRuntime.queryInterface(XModel,XSCRIPTCONTEXT.getInvocationContext());
if ( !oDoc )
  oDoc = XSCRIPTCONTEXT.getDocument();

// get sheets
xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
xSpreadsheets = xSpreadsheetDocument.getSheets();
xIndexAccess = UnoRuntime.queryInterface(XIndexAccess, xSpreadsheets);
xSpreadsheet = UnoRuntime.queryInterface(XSpreadsheet, xIndexAccess.getByIndex(nSheet));

// get cellrange including entire column specified by the column index
xColumnRowRange = UnoRuntime.queryInterface(XColumnRowRange, xSpreadsheet);
xTableColumns = xColumnRowRange.getColumns();
xIndexAccess_2 = UnoRuntime.queryInterface(XIndexAccess, xTableColumns);
xCellRange = UnoRuntime.queryInterface(XCellRange, xIndexAccess_2.getByIndex(nColumn));

// get list of used cell
xCellRangesQuery = UnoRuntime.queryInterface(XCellRangesQuery, xCellRange);
xSheetCellRanges = xCellRangesQuery.queryContentCells(nFlags);

n = 0
addresses = xSheetCellRanges.getRangeAddresses();
// find biggest row index
for (i = 0; i < xSheetCellRanges.getCount(); i++)
{
  address = addresses[i];
  if (n < address.EndRow)
  {
    n = address.EndRow;
  }
}

showMessage(XSCRIPTCONTEXT.getDesktop(), "index of used last row: " + n, "LO7.2.5.2");
}catch(e){
//Error陷・ｽｦ騾・・
errorname = e.name;
errormsg = e.message;
eDisp= errorname + "\r\n" + errormsg;
JOptionPane.showMessageDialog(null, eDisp);
}

HyperLink

CHy-)[Calc]HyperLink


importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.frame.XModel);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheets);
importClass(Packages.com.sun.star.sheet.XSheetCellRanges);
importClass(Packages.com.sun.star.sheet.XCellRangesAccess);
importClass(Packages.com.sun.star.lang.XMultiServiceFactory);
importClass(Packages.com.sun.star.beans.XPropertySet);
importClass(Packages.com.sun.star.text.XText);
importClass(Packages.com.sun.star.text.XTextContent);
importClass(Packages.com.sun.star.text.XSimpleText);
importClass(Packages.com.sun.star.text.XTextCursor);

oDoc = UnoRuntime.queryInterface(XModel,XSCRIPTCONTEXT.getInvocationContext());
if ( !oDoc )
  oDoc = XSCRIPTCONTEXT.getDocument();

xMultiServiceFactory = UnoRuntime.queryInterface(XMultiServiceFactory, oDoc);

// get cell
xSpreadsheetDocument = UnoRuntime.queryInterface(XSpreadsheetDocument, oDoc);
xSpreadsheets = xSpreadsheetDocument.getSheets();
xCellRangesAccess = UnoRuntime.queryInterface(XCellRangesAccess, xSpreadsheets);
xCell = xCellRangesAccess.getCellByPosition(0, 0, 0);

// create new link field
field = xMultiServiceFactory.createInstance("com.sun.star.text.textfield.URL");
xPropSet = UnoRuntime.queryInterface(XPropertySet, field);
xPropSet.setPropertyValue("URL", "http://oooug.jp/faq/index.php?faq/5/422");
xPropSet.setPropertyValue("Representation", "Link...");

xText = UnoRuntime.queryInterface(XText, xCell);
xSimpleText = UnoRuntime.queryInterface(XSimpleText, xCell);
xTextCursor = xSimpleText.createTextCursor();

// insert field into the cell
xText.insertTextContent(xTextCursor, UnoRuntime.queryInterface(XTextContent, field), true);

Graph Chart作成

C)[Calc]Simple Diagram作成


//[ Chart ] Simple Diagram
importClass(Packages.javax.swing.JOptionPane);
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.sheet.XCellRangeAddressable);
importClass(Packages.com.sun.star.table.CellRangeAddress);
importClass(Packages.com.sun.star.table.XTableChartsSupplier);

	loadProps = new Array(); // We need no properties
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	xDocument = UnoRuntime.queryInterface(XSpreadsheetDocument,xSheetComponent);
	xSheets = xDocument.getSheets();
	xIndexSheets =UnoRuntime.queryInterface(XIndexAccess, xSheets);
	xSheet =UnoRuntime.queryInterface(XSpreadsheet,xIndexSheets.getByIndex(0));
	// [ Graph Data ]
		for(i=0; i<5; i++)
			{
			for(j=0; j<4; j++)
				insert(i, j, i+j, xSheet, true);
			}

	// Graph枠の作成
		oRect = new Packages.com.sun.star.awt.Rectangle();
		oRect.X = 500;
		oRect.Y = 3000;
		oRect.Width = 25000;
		oRect.Height = 11000;
	// Graph Dataの取得
		oRange =UnoRuntime.queryInterface(XCellRange, xSheet);
		myRange = oRange.getCellRangeByName("A1:E4");
		oRangeAddr =UnoRuntime.queryInterface(XCellRangeAddressable, myRange);
		myAddr = oRangeAddr.getRangeAddress()
	// 新規Grahの作成&Data Rangeの指定
		cellRangeAddressName = myAddr.CellRangeAddress
		oAddr = new Array();
		oAddr[0] = myAddr;
	// Graph描画start. Graph Name 「example」とする
		oSupp =UnoRuntime.queryInterface(XTableChartsSupplier, xSheet);
		oCharts = oSupp.getCharts();
		oCharts.addNewByName("Example", oRect, oAddr, true, true);

JOptionPane.showMessageDialog(null, "Success");

// [ Function :  insert ]
//Cellへの入力関数(insert)の定義
function insert(x, y, content, container, isValue)
{
oCell = container.getCellByPosition(x, y);
if(isValue)
oCell.setValue(new java.lang.Float(content).floatValue());
else
oCell.setFormula(content);
}

CG-2)[Calc]3D Diagram作成


//[ Chart ] 3D Diagram
importClass(Packages.javax.swing.JOptionPane);
importClass(Packages.com.sun.star.uno.UnoRuntime);
importClass(Packages.com.sun.star.sheet.XSpreadsheetDocument);
importClass(Packages.com.sun.star.sheet.XSpreadsheet);
importClass(Packages.com.sun.star.container.XIndexAccess);
importClass(Packages.com.sun.star.table.XCellRange);
importClass(Packages.com.sun.star.sheet.XCellRangeAddressable);
importClass(Packages.com.sun.star.table.CellRangeAddress);
importClass(Packages.com.sun.star.table.XTableChartsSupplier);
importClass(Packages.com.sun.star.table.XTableChart);
importClass(Packages.com.sun.star.chart.XChartDocument);
importClass(Packages.com.sun.star.document.XEmbeddedObjectSupplier);
importClass(Packages.com.sun.star.container.XNameAccess);
importClass(Packages.com.sun.star.beans.XPropertySet);

	loadProps = new Array(); // We need no properties
	xSheetComponent = XSCRIPTCONTEXT.getDocument();
	xDocument = UnoRuntime.queryInterface(XSpreadsheetDocument,xSheetComponent);
	xSheets = xDocument.getSheets();
	xIndexSheets =UnoRuntime.queryInterface(XIndexAccess, xSheets);
	xSheet =UnoRuntime.queryInterface(XSpreadsheet,xIndexSheets.getByIndex(0));
	// [ Graph Data ]
		for(i=0; i<5; i++)
			{
			for(j=0; j<4; j++)
				insert(i, j, i+j+1, xSheet, true);
			}

	// Graph枠の作成
		oRect = new Packages.com.sun.star.awt.Rectangle();
		oRect.X = 500;
		oRect.Y = 3000;
		oRect.Width = 10000;
		oRect.Height = 5000;
	// Graph Dataの取得
		oRange =UnoRuntime.queryInterface(XCellRange, xSheet);
		myRange = oRange.getCellRangeByName("A1:E4");
		oRangeAddr =UnoRuntime.queryInterface(XCellRangeAddressable, myRange);
		myAddr = oRangeAddr.getRangeAddress()
	// 新規Grahの作成&Data Rangeの指定
		cellRangeAddressName = myAddr.CellRangeAddress
		oAddr = new Array();
		oAddr[0] = myAddr;
	// Graph描画start. Graph Name 「example」とする
		oSupp =UnoRuntime.queryInterface(XTableChartsSupplier, xSheet);
		oCharts = oSupp.getCharts();
		oCharts.addNewByName("Example", oRect, oAddr, true, true);
	// Graph属性設定
		tempName =UnoRuntime.queryInterface(XNameAccess, oCharts).getByName("Example");
		oChart =UnoRuntime.queryInterface(XTableChart, tempName);
		oEOS =UnoRuntime.queryInterface(XEmbeddedObjectSupplier,oChart);
		oInt = oEOS.getEmbeddedObject();
		xChart =UnoRuntime.queryInterface(XChartDocument, oInt);
		oDiag = xChart.getDiagram();
	// 3-Dへ変更
		oCPS =UnoRuntime.queryInterface(XPropertySet, oDiag);
		oCPS.setPropertyValue("Dim3D", new java.lang.Boolean(true));
	
JOptionPane.showMessageDialog(null, "Success");

// [ Function :  insert ]
//Cellへの入力関数(insert)の定義
function insert(x, y, content, container, isValue)
{
oCell = container.getCellByPosition(x, y);
if(isValue)
oCell.setValue(new java.lang.Float(content).floatValue());
else
oCell.setFormula(content);
}

Macroの杜(JavaScript編)< 前 【 Calc 】次 >

**********************【 Index 】**********************

**********[ Macro Code ]**********

【 Calc(表計算) 】

CC-1)[Calc]Cell入力

CC-1)[Calc]Cell入力(その2)

CC-2)[Calc]Cell値( A1 )を取得する

CC-3)[Calc]Cell Range( A1:C4 )を選択(取得)する。(但し実Sheet上は変化無し)

C)[Calc]値の入力と計算

C)[Calc]Cellの結合

CCI-)[Calc]CellのInsert

CCI-)[Calc]CellのDelete

CCI-)[Calc]CellのCopy

CCI-)[Calc]CellのMove

CCS-1)[Calc]指定Cell( A1, A2 )の背景色設定

CCS-2)[Calc]指定Cell( A1, A2 )の文字色設定

CCS-3)[Calc]専用Style(背景色、文字色、Style Name = "MyStyle")の設定(「書式」⇒「スタイルと書式設定」に追加)

CCS-4)[Calc]指定範囲を専用Styleにする

CCS-)[Calc]Cell Fontの設定

CCS-)[Calc]文字Sizeの設定

CCS-)[Calc]文字太さの設定

CCS-)[Calc]Textを自動的に折り返す

CCS-)[Calc]文字の角度設定

CCClr-1)[Calc]CellのClear

CF-1)[Calc]新規にCalc fileを開く

CF-2)[Calc]任意のCalc fileを開く

CF-)[Calc]任意のCalc fileの開閉

CF-)[Calc]任意のCalc fileの開き、上書き保存後に閉じる

CS-1)[Calc]Sheet1にAccessする

CS-)[Calc]Current Sheetの変更

CS-)[Calc]Current Sheet名の取得1

CS-)[Calc]Current Sheet名の取得2

CS-)[Calc]Sheet名があるかどうかを調べる

CS-)[Calc]Sheet枚数取得

CS-)[Calc]Sheetの新規挿入

CS-)[Calc]SheetのCopy

CS-)[Calc]Sheetの移動

CS-)[Calc]Sheetの削除

CS-)[Calc]Sheet名の変更

CS-)[Calc]Sheet Style取得

CS-)[Calc]

CAd)[Calc]Active CellのAddress取得

CAd)[Calc]任意の列のData最終行取得

CHy-)[Calc]HyperLink

C)[Calc]Simple Diagram作成

CG-2)[Calc]3D Diagram作成

Top of Page

Macroの杜(JavaScript編)
< 前【 Calc 】次 >

【 Index 】

[ Macro Code ]

【　Calc(表計算)　】