(OpenOffice Basic)Calcでセルアクセスの高速化

OpenOffice3.2です。

ThisComponent.Sheets(0).getCellByPosition( col , row ).setString("")

などで多数のセルにアクセスすると非常に遅くなります。(特にセルのカラー等スタイルを変更する場合)

例えば選択した約12000個のセルに一斉に書き込みを行い、セルのフォントカラー変更するのに、941秒もかかってしまいました。

ということで、高速化です。

参考にしたのは[OpenOffice.org Basic] シートへの高速なアクセスです。

まず、画面更新の抑制をすることでかなり速くなるようです。

VBAでも Application.ScreenUpdating プロパティに bool 値をいれて画面更新の停止・再開をすることである程度高速化できました。

OpenOffice Basicだと、下記のコードで画面更新が制御できるようです。

ThisComponent.addActionLock()   ' 画面更新抑制
ThisComponent.removeActionLock()  ' 画面更新抑制解除

これにより、先ほどの12000個のセルに対する処理は、25秒と大幅に短縮されました。

さて、さらに高速化する方法があるようです。

それは配列にためたデータで読み込み書き込みを行う方法です。

この方法を使うと1秒でセルの読み取り・書き込みが完了しました。

圧倒的な速度です。

例えばセルの現在の値(時刻フォーマット)を読み込んで1:00加算するのは下記のようなコードとなります。

Dim str As String
str = "01:00"
'まずセル内容読取る
Dim aryData()  As Variant
aryData = ThisComponent.Sheets(0).getCellRangeByPosition( 0 , 0 , 100  , 100 ).getDataArray()

Dim iRow As Integer , iClm As Integer
For iRow = 0 To Ubound( aryData )
    For iClm = 0 To Ubound( aryData(iRow) )
        Dim dNowTime As Double
        Dim dTime As Double
        dNowTime = aryData(iRow)(iClm)
        dTime = CDbl( TimeSerial( Mid( str,1,2 ) , Right(str,2) , 0 ) )
        '時間を加算
        aryData(iRow)(iClm) = dNowTime + dTime 
    Next iClm
Next iRow

'配列をシートにセット
ThisComponent.Sheets(0).getCellRangeByPosition( 0 , 0 , 100  , 100 ).setDataArray( aryData )