【VBA入門】ファイル操作|ブックを開く

Worlbooks.Open (FileName, UpdateLinks, ReadOnly, Format, Password, IgnoreReadOnlyRecommended, Origin, Delimiter, ​​Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

以下の条件に従って、「営業部８月実績表.xlsx」を開くマクロを作成してください。

条件

• 同じフォルダに格納されている「samplefile_vba_fileopen.xlsm」のSheet1にボタンを作成し、ボタンをクリックした時に作成したマクロが実行されるようにする。

Sub 基礎例題1()
    
    '変数を定義する
    Dim wb1 As Workbook
    Dim filePath1 As String
    
    'ファイルパスを指定する
    filePath1 = "C:¥ファイルパス¥サンプルフォルダ¥営業部８月実績表.xlsx"
    
    ' ファイルを読み取り専用で開く
    Set wb1 = Workbooks.Open(filePath1, ReadOnly:=True)

End Sub

読み取り専用で開く設定に！
読み取り専用で開くことによって、変更してはいけないファイルを誤って変更してしまうことを未然に防ぐことができます。今回はWorkbooks.Openメソッドの引数ReadOnlyをTrueに設定することで、「営業部8月実績表」を読み取り専用で開くように設定しています。

以下の条件に従って、「営業部⚪︎月実績表.xlsx」を開くマクロを作成してください。

条件

• 同じフォルダに格納されている「samplefile_vba_fileopen.xlsm」のSheet1にボタンを作成し、ボタンをクリックした時に作成したマクロが実行されるようにする。
• ファイル名の”⚪︎月”は毎月変更するものとする。
• 「営業部⚪︎月実績表.xlsx」は読み取り専用で開く。

Sub 実践例題1()

    '変数を定義する
    Dim wb2 As Workbook
    Dim filePath2 As String
    Dim fileName2 As String
    
    'ファイルパスを指定する
    filePath2 = "C:¥ファイルパス¥サンプルフォルダ¥"
    
    ' 営業部で始まり、実績表で終わるファイルを対象にする
    fileName2 = Dir(filePath2 & "営業部*実績表.xlsx")
    
    ' ファイルを読み取り専用で開く
    Set wb2 = Workbooks.Open(fileName2, ReadOnly:=True)
     
End Sub

Dir関数とワイルドカードで部分一致に！
「営業部8月実績表.xlsx」のファイルパスを直接指定せず、Dir関数を用いて部分一致にしている点がポイントです。これにより、ファイルパス名を毎回書き換える負担が無くなります。
Dir関数については改めて別記事で解説する予定です。

Application.GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

以下の条件に従って、ダイアログで選択したファイルを開くマクロを作成してください。

条件

• 同じフォルダに格納されている「samplefile_vba_fileopen.xlsm」のSheet1にボタンを作成し、ボタンをクリックした時に作成したマクロが実行されるようにする。
• 開くフォルダはダイアログで選択できるようにする。

Sub 基礎例題2()
    
    '変数を定義する
    Dim FileName3 As String
    
    'ダイアログを表示させる
    FileName3 = Application.GetOpenFilename()
    
    'ダイアログで選択したファイルを開く
    Workbooks.Open FileName3
    
End Sub

GetOpenFilenameメソッドでダイアログを表示！
今回のマクロでは、Workbooks.Openメソッドの引数Filenameに変数Filename3、すなわちGetOpenFilenameメソッドを指定することによって、ダイアログで選択したファイルを開くことができるようになっております。

以下の条件に従って、「営業部⚪︎月実績表.xlsx」を開くマクロを作成してください。

条件

• 同じフォルダに格納されている「samplefile_vba_fileopen.xlsm」のSheet1にボタンを作成し、ボタンをクリックした時に作成したマクロが実行されるようにする。
• 開くフォルダはダイアログで選択できるようにする。
• ダイアログで最初に表示されるフォルダは「サンプルフォルダ」とする。

【VBAで記述したマクロ】

Sub 実践例題2()
    
    '変数を定義する
    Dim FileName4 As String
    
    'カレントフォルダに移動する
    ChDir "C:¥ファイルパス¥サンプルフォルダ¥営業部８月実績表.xlsx"
    
    'ダイアログを表示させる
    FileName4 = Application.GetOpenFilename()
    
    'ダイアログで選択したファイルを開く
    Workbooks.Open FileName4
    
End Sub

ChDir関数で最初に表示されるフォルダを変更！
基礎例題で解説したマクロでは、最初にダイアログに表示されるフォルダとして、カレントフォルダがデフォルトで設定されています。カレントフォルダとは、コンピューターの中で現在作業しているフォルダのことを指します。
今回のマクロではChDir関数というVBA関数を利用することで、カレントフォルダを設定しています。ChDir関数でカレントフォルダを設定し直すことによって、ダイアログで最初に表示されるフォルダを変更し直すことができます。ChDir関数については改めて別記事で解説する予定です。