ブックの新規作成
このマクロを実行すると、新しいブックが作成されます。
Sub CreateNewWorkbook()
Workbooks.Add
End Subブックを開く
このマクロを実行すると、指定したパスにあるブックが開かれます。
Sub OpenWorkbook()
Workbooks.Open "C:\path\to\your\file.xlsx"
End Subブックを保存する
上書き保存
このマクロを実行すると、現在のブックが上書き保存されます。
Sub SaveWorkbook()
ThisWorkbook.Save
End Sub名前を付けて保存
このマクロを実行すると、指定したパスに新しい名前でブックが保存されます。
Sub SaveWorkbookAs()
ThisWorkbook.SaveAs "C:\path\to\your\newfile.xlsx"
End Subブックの名前を変更する
このマクロを実行すると、現在のブックが新しい名前で保存されます。
Sub RenameWorkbook()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.SaveAs "C:\path\to\your\newfilename.xlsx"
End Subブックを閉じる
保存して閉じる
このマクロを実行すると、現在のブックが保存されて閉じられます。
Sub CloseWorkbook()
ThisWorkbook.Close SaveChanges:=True
End Sub保存せずに閉じる
このマクロを実行すると、現在のブックが保存されずに閉じられます。
Sub CloseWorkbookWithoutSaving()
ThisWorkbook.Close SaveChanges:=False
End Subブック間でのシートの移動またはコピー
シートの移動
このマクロを実行すると、現在のブックの「Sheet1」が指定したブックの最後に移動されます。
Sub MoveSheetToAnotherWorkbook()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\path\to\destination\file.xlsx")
ThisWorkbook.Sheets("Sheet1").Move After:=wb.Sheets(wb.Sheets.Count)
End Subシートのコピー
このマクロを実行すると、現在のブックの「Sheet1」が指定したブックの最後にコピーされます。
Sub CopySheetToAnotherWorkbook()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\path\to\destination\file.xlsx")
ThisWorkbook.Sheets("Sheet1").Copy After:=wb.Sheets(wb.Sheets.Count)
End Sub
