ブックを開く/閉じる/保存する

Sub ブックを開く()

Dim mybook As Workbook
Set wb = Workbooks.Open(Filename:="C:\work\sample.xls")

Dim ws As Worksheet
Set ws = Worksheets("表紙")

MsgBox ws.Cells(9, 3)

End Sub

保存しないで閉じる

Workbook.Close SaveChanges:=True

保存して閉じる

Workbook.Close SaveChanges:=False

上書き保存

Workbook.Save

名前を付けて保存

Workbook.SaveAs "ファイル名"