LibreOffice Basic言語とVBAごちゃ混ぜコード - つれづれ電脳記（日くらしPCに向かひて）

　先日、LibreOffice Calc のマクロを、この記事に書きました。ダイアログ上のテキストフィールドの文字列を、シートのセルに転記するマクロです。

Option VBASupport 1

REM ***** BASIC *****

Option Explicit

'Subルーチンの外側でoDlgを宣言しておく

Dim oDlg As Object

Sub ShowMyDialog

　DialogLibraries.LoadLibrary("Standard")

　oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)

　oDlg.Execute()

　oDlg.Dispose()

End Sub

Sub TxtTenki

　Dim oTextField As Object

　Dim sText As String

　　oTextField = oDlg.GetControl("TextField1")

　　sText = Cstr(oTextField.getText)

'A9セルに文字列を転記

　　Thisworkbook.Worksheets(1).Range("A9").Value = sText

'メッセージボックスに文字列表示

　　MsgBox "入力した文字列：" & vbLf & sText

End Sub

　このマクロを実行すると、ダイアログ上の文字列がセルに転記されます。

　上記のコードは、LibreOffice Basic 言語と、VBA （Visual Basic for Applications）がごちゃ混ぜになっています。２つの言語がごちゃ混ぜでも動作することに驚きました。

　LibreOffice Basic コードで変数 sText に値を代入し、VBA コードでその変数から値を取り出しています。このようなごちゃ混ぜが許されるのも、上記のように変数を介しているからなのだろう、と推測していました。

　ところが、ところが、実験的に今度は次のコードも試してみました。

Option VBASupport 1

REM ***** BASIC *****

Option Explicit

Dim oDlg As Object

Dim oTxt AS Object

Sub ShowMyForm

DialogLibraries.LoadLibrary("Standard")

oDlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)

oTxt = oDlg.GetControl("TextField1")

oDlg.Execute()

oDlg.Dispose()

End Sub

Sub DataTenki

　msgbox "入力文字列：" & vbLf & oTxt.Text

　Thisworkbook.Worksheets(1).Range("A1").Value = oTxt.Text

　oDlg.endExecute()

End Sub