既存ブックを開く

既に存在するブックを開くときは、WorkbooksオブジェクトのOpenメソッドを使用する。
Openメソッドの書式は下記の通り :

Set Workbook変数 = Workbooksオブジェクト.Open(Filename , _
                                                                              [ReadOnly], _
                                                                              [Password]) 

既存のブック D:\SampleBook.xlsx を開くサンプルコードは以下の通り :

Sub SampleOpenWorkbook1()
     Dim bk As Workbook
     Set bk = Application.Workbooks.Open(Filename:="D:\SampleBook.xlsx")
End Sub

既存のブックを読み取り専用で開くサンプルコードは以下の通り :

Sub SampleOpenWorkbook2()
     Dim bk As Workbook
     Set bk = Application.Workbooks.Open(Filename:="D:\SampleBook.xlsx", _
                                                             ReadOnly:=True)
End Sub

ブックがパスワードで保護されている場合のコードは以下の通り(パスワードは
「12345」とする) : 

Sub SampleOpenWorkbook3()
     Dim bk As Workbook
     Set bk = Application.Workbooks.Open(Filename:="D:\SampleBook.xlsx", _
                                                             Password:="12345")
End Sub