Excel VBA ﾌﾞｯｸ名を取得するNameﾌﾟﾛﾊﾟﾃｨ 保存場所を取得するPathﾌﾟﾛﾊﾟﾃｨ

• オブジェクト（必須）
  名前を取得したいブックを表すWorkbook【ﾜｰｸﾌﾞｯｸ】オブジェクトを指定します。

Sub ブックオープン()
Dim ブック名 As String
Dim ブック As Workbook
On Error GoTo エラー処理
ブック名 = InputBox("開くブック名を拡張子付きで入力してください")
For Each ブック In Workbooks
If ブック.Name = ブック名 Then
MsgBox ブック名 & "は開いています。"
Exit Sub
End If
Next
Workbooks.Open ThisWorkbook.Path & "¥" & ブック名
Exit Sub
エラー処理:
MsgBox "指定のブックは存在しません。"
End Sub

3行目【Dim ブック As Workbook】
開いているブックを繰り返し処理の中で順に格納する変数「ブック」をオブジェクト型(Workbook)で宣言します。

4行目【On Error GoTo エラー処理】
ユーザーが入力したブック名が存在しない場合、エラーが発生するのでエラーが発生した場合14行目の「エラー処理」ラベルまで処理をジャンプします。

5行目【ブック名 = InputBox(“開くブック名を拡張子付きで入力してください”)】
InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数を使用してユーザーに検索するブック名を入力してもらい変数「ブック名」に代入します。

6行目【For Each ブック In Workbooks】
For Each【ﾌｫｰｲｰﾁ】ステートメントで変数「ブック」に開いているブックを繰り返しの中で順に格納します。

7行目【If ブック.Name = ブック名 Then】
開いているブックが格納されている変数ブックのブック名をNameプロパティで取得して、ユーザーが入力したブック名が
格納されている変数ブックと同じだった時をIf【ｲﾌ】ステートメントで定義します。

8行目　9行目
【MsgBox ブック名 & “は開いています。”
Exit Sub　】
7行目のIf【ｲﾌ】ステートメント（条件分岐）が成立したとき、すなわち、ユーザーが入力したブック名のブックが開いていいるとき、メッセージを出し、処理を終了します。

12行目【Workbooks.Open ThisWorkbook.Path & “¥” & ブック名】
ユーザーが入力したブック名が存在していて開いていない場合にWorkbooks【ﾜｰｸﾌﾞｯｸｽ】コレクションのOpen【ｵｰﾌﾟﾝ】メソッドでユーザー指定のブックを開きます。

• オブジェクト（必須）
  パス（保存場所）を確認するブックを表すWorkbook【ﾜｰｸﾌﾞｯｸ】オブジェクトを指定します。

Sub 保存()
Dim パス As String
パス = ThisWorkbook.Path
Workbooks.Add.SaveAs Filename:=パス & "¥新規ブック.xlsx"
End Sub