LibreOfficeをAutoitで動かす。マクロ(LibreOffice Basic)より簡単かも

海外で人気がある自動化ソフト「Autoit」でLibreOfficeのCalcを動かしてみます。
LibreBasicよりも簡単そう。

 

Autoit：UWSC以上の事ができます（画像認識も得意）、後継には一番

現在、UWSCのサイト閲覧できない状態（閉鎖）。残念です。死亡説まで出ています。AutoitはUWSCより、私は多機能でよくできていると思います。AutoitはBasic言語のようなスクリプトで、IE,Chrome,Excel,LibreO

take-web.com

Autoit　とは

UWSCよりも、機能が豊富（画像認識もできます）。Basicに似た仕様でわかりやすいです。

参考サイト：　Home – AutoIt

お決まりの「Hello World」

MsgBox("","","Hello World 日本はいい国！！")

この一行だけです、簡単でしょ。

好きなエディタでコードを書き、拡張子.au3で保存。クリックすれば動きます。
もちろん、関連付けはしなければだめですが

簡単なSample コード（起動編）

 LibreOffice Calcを立ち上げる

#include "Libre/OOoCalc.au3"
_OOoCalc_BookNew()

(1) #include “Libre/OOoCalc.au3”   :  LibreOfficeを動かすために必要です。海外の有志の人が作ってくれたものです。感謝し使いましょう。

(2) _OOoCalc_BookNew()  : 新規にCalcを起動します。

 LibreOfficeを起動し、最大化

#include "Libre/OOoCalc.au3"

Opt("WinTitleMatchMode", 2) ; 一部一致
Global $oCalc = _OOoCalc_BookNew() ;Create test file

WinWait("Calc")
WinSetState("Calc", "", @SW_MAXIMIZE) ;最大化

すでにあるCalcファイルを開く

#include "Libre/OOoCalc.au3"
_OOoCalc_BookOpen(@ScriptDir & "\sample.ods")

_OOoCalc_BookOpen(@ScriptDir & “\sample.ods”) ;  パス名は大事です

セルに書き込み、サンプル

文字列の挿入

#include "Libre/OOoCalc.au3"
Local $oCalc = _OOoCalc_BookNew()
_OOoCalc_WriteCell($oCalc,"日本は素晴らしい",2,1) ;cell(x,y)
_OOoCalc_WriteCell($oCalc,"野党いらない","C5") ;

_OOoCalc_WriteCell($oCalc,”文字列”,ｘ,ｙ) ;cell(x,y)
_OOoCalc_WriteCell($oCalc,”文字列”,”A1″) ; セル特定”A!”形式

 数値の挿入

#include "Libre/OOoCalc.au3"
Local $oCalc = _OOoCalc_BookNew()
_OOoCalc_WriteCell($oCalc,123456,2,1) ;cell(x,y)
_OOoCalc_WriteCell($oCalc,50000,"C5") ;

”文字列” –> 数値　：　これでOK

 セルの文字色、背景色を変える

#include "Libre/OOoCalc.au3"
Local $oCalc = _OOoCalc_BookNew()
_OOoCalc_WriteCell($oCalc,123456,2,1) ;cell(x,y)
_OOoCalc_CellSetColors($oCalc, 0xD71D3B, 0xFFEFCE, 2, 1)
_OOoCalc_WriteCell($oCalc,50000,"C5") ;
_OOoCalc_CellSetColors($oCalc, 0xFFFFFF, 0x000,"C5")

_OOoCalc_CellSetColors($oCalc, 文字色, 背景色, セルアドレス)

黒　FFFのように短縮系はだめみたいです。　FFFFFFにします。

セルの値を取得

既存のCalcを開く

#include "OOoCalc.au3"

Local $oCalc = _OOoCalc_BookOpen(@ScriptDir & "\testLibre.ods") 

ファイル名は、フルパスでないとCalcひらきません。

@ScriptDir：現在動かしてるスクリプトのあるフォルダになります。

セルの値を取得する

#include "OOoCalc.au3"

Local $oCalc = _OOoCalc_BookOpen(@ScriptDir & "\testLibre.ods") ;既存のCalc開く

Local $cellValue = _OOoCalc_ReadCell($oCalc, "a1") ;A1の値取得
MsgBox("","",$cellValue)

Local $cellValue = _OOoCalc_ReadCell($oCalc, 2,0) ;2行目の０列　（０スタート）＝A3
MsgBox("","",$cellValue)

セルの指定　（A1）

セル指定２　Cell(2，0)　０から始まる

Excelと違い数え方０スタートです

その他の関数（詳細はGoogle先生に聞いてください）

ダウン先：　OOo/LibO Calc UDF – AutoIt Example Scripts – AutoIt Forums