質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.37%
LibreOffice Basic

LibreOffice Basicは、LibreOfficeの作業を自動化するプログラミング言語。LibreOfficeは、OpenOffice.orgから派生しており、多くのオペレーティングシステムで利用できるオフィススイートです。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

0回答

842閲覧

VBAマクロをLibreoffice環境下でも実行したい

Wisteria315

総合スコア1

LibreOffice Basic

LibreOffice Basicは、LibreOfficeの作業を自動化するプログラミング言語。LibreOfficeは、OpenOffice.orgから派生しており、多くのオペレーティングシステムで利用できるオフィススイートです。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2023/01/13 02:52

前提

ExcelVBAで作成した下記マクロをlibreOffice環境でも実行しようとしましたが、
CSVファイル作成まではたどり着いたものの中身が空のファイルになってしまいます。
basicの規法等に詳しくない為、どなたか記法をご教授頂けないでしょうか?

やりたいこと

Excelの特定のセルに入力された値をcsvファイルに書き込みたい

コード

Option VBASupport 1 Sub Click() Dim csvFile As String Dim targetRange As Range Dim wb As Workbook Dim fso As Object '出力するCSVファイルを指定 csvFile = "D:\Test\sample.csv" 'CSVファイルへ出力する範囲を指定 ※例としてシート「sample」のセル「D8」を指定 Set targetRange = Worksheets("sample").Range("D8") '新規ブックを作成 Set wb = Workbooks.Add 'CSVファイルへ出力する範囲を新規ブックへコピー targetRange.Copy wb.Worksheets(1).Range("A1") Set fso = CreateObject("Scripting.FileSystemObject") '出力するCSVファイルが既に存在する場合は削除 If fso.FileExists(csvFile) Then fso.deleteFile csvFile End If '新規ブックをCSVファイルとして出力 wb.SaveAs Filename:=csvFile, FileFormat:=xlCSV, Local:=True '新規ブックを保存せずに閉じる wb.Close SaveChanges:=False '後片付け Set fso = Nothing End Sub

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.37%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問