Cellから値を取得する

　いよいよ「Cellから値を取得する」
http://openoffice3.web.fc2.com/OOoBasic_Calc.html#OOoCCB02a

　これが出来るようになるとやりたいことに近づく。

　今回動かしたコードは以下のとおり。
Sub Main

Dim Doc, Sheet As Object
Dim Cell As Variant

Doc = ThisComponent
Sheet = Doc.Sheets.getByName("Sheet7")

Cell = Sheet.getCellByPosition(0, 0).Value
msgbox("Sheet.getCellByPosition(0, 0).Value = " & Cell)
Cell = Sheet.getCellByPosition(0, 0).String 
msgbox("Sheet.getCellByPosition(0, 0).String = " & Cell)
Cell = Sheet.getCellByPosition(0, 0).Formula 
msgbox("Sheet.getCellByPosition(0, 0).Formula = " & Cell)

End Sub

　実行結果は以下のとおり。

　取得する形式をきちんと指定しないと想定した値が入ってこないのには注意が必要だな。

　それはさておき。
　Value と Formula の結果が理解出来ていないのは問題だな。