シートを別のブックにコピーするマクロ
を示す。
■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マクロで問題なくシートを別ブックにコピーできた。
以上。
