LibreOffice-VBA-シートを別のブックにコピーするマクロ

LibreOfficeでVBAマクロ実行。今回は
シートを別のブックにコピーするマクロ
を示す。

■LibreOffice-VBA-シートを別のブックにコピーするマクロ

Option VBASupport 1
 
Sub sample11()
 
Dim wb1 As Workbook
Set wb1 = Workbooks("無題 1.ods")
Workbooks("部品データ_191108.ods").Worksheets("部品表").Copy After:=wb1.Sheets(wb1.Sheets.Count)
 
End Sub

※[7.] 「部品データ_191108.ods」の「部品表」シートを「無題 1.ods」にコピーする。

■マクロ実行対象

コピー元、「部品データ_191108.ods」の「部品表」シート。

コピー先、「無題 1.ods」。シートは「Sheet1」のみ。

■マクロ実行結果

「無題 1.ods」に「部品表」シートが追加される。

■補足-エクセルVBA-シートを別のブックにコピーするマクロ

Sub sample11e()
 
Dim wb1 As Workbook
Set wb1 = Workbooks("無題 1.xlsx")
Workbooks("部品データ_191108.xlsx").Worksheets("部品表").Copy After:=wb1.Sheets(wb1.Sheets.Count)
 
End Sub

「Option VBASupport 1」は削除。
エクセルのファイル形式「xlsx」使用する。

■あとがき

LibreOffice BasicでもエクセルVBAマクロで問題なく
シートを別ブックにコピーできた。
以上。