Libreoffice Openoffice Macro BASIC
LibreOffice、自身のファイル情報を取得するマクロです。 Sub SelfFileDirName下記を取得します。 １．自身のファイル名 ２．自身のファイルパス ３．自身のディレクトリ Sub SelfFileDirName Dim oUrl As String Dim FileName As String Dim FilePath As St…
印刷ジョブの基本、用紙の余白を設定するマクロです。 Sub SetPageMargin Option Explicit Sub SetPageMargin Dim oSheetStyle As Object oSheetStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName("Default") With oSheetStyle ' 100 …
印刷ジョブの基本、用紙の向きを設定するマクロです。 Sub SetPageOrientation Sub SetPageOrientation ' 列挙型(enumeration type)を使用 'Enum PaperOrientation ' https://api.libreoffice.org/docs/idl/ref/namespacecom_1_1sun_1_1star_1_1view.html Di…
印刷ジョブの基本、用紙サイズを設定するマクロです。 サンプルは下記の２種類。1. Sub SetPageSize (用紙の実寸値を使用する方法) 2. Sub SetPageSize2 (列挙型(Enum)を使用する方法) Sub SetPageSize ' 実寸を使用 Dim oSheetStyle As Object oSheetStyle …
配列を使うと各セルへの値の書き込みが劇的に高速化します。 配列を使用した下記コードでは、所要時間１秒以下で１０万個のセルへの書き込みが完了します。 LibreOffice Calcのマクロの欠点である「遅さ」を解決します。【フロー】 １．データを配列に格納し…
LibreOffice Calcでエクセルの Application.ScreenUpdating = False のようなコードを実行してもシート移動操作を伴った場合にマクロ実行シート以外のシートが表示されてしまう事があります。LibreOffice Calcでで画面更新を完全に無効にするには、マクロ動…
CalcでMariaDB MySQLに接続、SQLクエリーを実行して結果を取得【準備編】 https://yorozuyanet.hatenablog.com/entry/2019/08/11/020512 の続きです。 ---コードサンプル ここから---- Option Explicit ' Declaration Var --Public DBConnString As StringPu…
Libreoffice Openoffice の Calc は、Macro (BASIC) でデータベースに接続しSQLを送信して結果をレコードセットとして取得する事ができます。クライアント＆サーバーシステムのクライアント側をLibreofficeで構築する事が可能です。 前提条件： パソコンにJR…
Libreoffice OpenofficeマクロでCalcファイルをエクセルxlsx形式で保存する方法です。下記のサイトにたどり着くまで1週間かかりました。現時点でグーグルで検索ヒットする日本語情報はありません。 https://bugs.documentfoundation.org/show_bug.cgi?id=990…
