Sub エクセルファイルを開く()

    '開きたいファイルをフルパスで拡張子含めて指定する
    開くファイル = "C:\サンプル.xlsx"

    Workbooks.Open 開くファイル

End Sub