OpenOfficeBasic_3(ThisWorkbook.Path)の概要（１）EXCELのVBAでは、ワークブックが含まれるフォルダーのディレクトリーパスは「 ThisWorkbook.Path 」 と記載すると実行されます。
（２）OpenOfficeBasicでは、 ThisWorkbook.Path に対応する文字列変数がなさそうです。
（３） ThisWorkbook.Pathに相当する文字列関数「 ThisWorkbookPath」を作成します。
OpenOfficeBasic_3(ThisWorkbook.Path)作成方法（１） 「OpenOfficeBasic_2.ods」ファイルを複製します。
（２）ファイル名を「OpenOfficeBasic_3.ods」に変更します。
（３）「OpenOfficeBasic_3.ods」ファイルをダブルクリックで起動します。
（４）OpenOffice-セキュリティ警告が表示されるので「マクロの有効化」ボタンを押します。
（５）メニューの「ツール」＿「マクロ」＿「マクロの管理」＿「OpenOffice Basic」を選択します。
（６）OpenOffice Basic マクロダイアログで「 OpenOfficeBasic_3.ods」＿「 Stndard 」＿「Module1」＿「Main」 を選択します。
（７）「編集」ボタンを押します。
（８）プログラムコードを以下のように変更します。
Sub Main Msgbox ThisWorkbookPath End Sub ' このブックの存在するフォルダをフルパスで返す。 ' Excel VBAでの ThisWorkbook.Pathに相当 Function ThisWorkbookPath windows_filepath = ConvertFromUrl(ThisComponent.URL ) vntURL = Split(windows_filepath, "\") i = UBound(vntURL) ReDim Preserve vntURL(i - 1) windows_dir_path = Join(vntURL, "\") ThisWorkbookPath = windows_dir_path End Function
（９）「BASIC プログラムの実行」ボタンを押します。
（１０）以下のメッセージが表示されます。
（１１）「OK」ボタンを押すとプログラムを終了します。
（１２）OpenOfficeBasicのIEDウインドウを閉じます。
プログラムコードの保存（１）メニューの「ファイル」＿「保存」を選択します。
（２）OpenOfficeＣａｌｃを終了します。
Function ThisWorkbookPathの解説（１） ConvertFromUrl(ThisComponent.URL )でファイル名を含むフルパスが得られます。
（２） Split(windows_filepath, “\”)で“\”区切りの文字列配列に変換します。
（３） UBound(vntURL)で文字列配列の数が求まります。
（４） ReDim Preserve vntURL(i - 1)で文字列配列の数を1個減らします。
（５） Join(vntURL, “\”)で文字列配列を結合すると、ファイル名を除いたフルパスが得られます。
OpenOfficeBasic_3.odsのダウンロードOpenOfficeBasic_3.odsは以下からダウンロードできます。
OpenOfficeBasic_3.odsをダウンロードする。
５章： OpenOfficeBasic_4(getCellByPosition)に行く。