【VBA】Workbooks

'VBAが書かれているブックを参照する
Set wb = ThisWorkbook

'アクティブなブックを参照する
set wb = ActiveWorkbook

'ブックを指定して参照する
set wb = Workbooks("サンプル.xlsx")

Set wb = Workbooks.Add

'普通に開く
Set wb = Workbooks.Open("ブックのパス")

'読み取り専用で開く
Set wb = Workbooks.Open("ブックのパス", ReadOnly:=True)

'ブックを上書き保存する
wbオブジェクト.Save

'ブックに名前を付けて保存する
wbオブジェクト.SaveAs "ブックのパス 例 C:\xxxxx.xlsx"

'ブックを閉じる（未保存の場合はポップアップが出てしまう）
wbオブジェクト.Close

'ブックを保存して閉じる
wbオブジェクト.Close SaveChanges:=True

'ブックを保存せずに閉じる
wbオブジェクト.Close SaveChanges:=False

'ファイル名
wb_name = wbオブジェクト.Name

'ディレクトリ
wb_path = wbオブジェクト.Path

'ディレクトリ＋ファイル名
wb_fullname = wbオブジェクト.FullName