【ExcelVBA】[雛形]ファイル/フォルダを開く

2022.05.04

フォルダを開く(絶対パス取得)

変数”FolderPath”に選択したフォルダの絶対パスが格納されます。

VBA
Public Sub OpenFile()

    '変数宣言
    Dim FolderPath As String
    
    'フォルダを開く
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ThisWorkbook.Path '規定パスを設定
        .AllowMultiSelect = False '複数フォルダ指定オフ
        If .Show <> True Then
            Exit Sub
        End If
        FolderPath = .SelectedItems(1)
    End With

End Sub

ファイルを開く(絶対パス取得)

変数”FilePath”に選択したファイルの絶対パスが格納されます。

VBA
Public Sub GetFilePass()
    '変数設定
    Dim FilePath As String
    
    'ファイルを開く
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = ThisWorkbook.Path '規定パス設定
        .AllowMultiSelect = False '複数ファイル指定オフ
        .Filters.Clear '拡張子指定クリア
        .Filters.Add "Excelファイル", "*.xls;*.xlsx;*.xlsm" '拡張子指定設定
        If .Show <> True Then
            Exit Sub
        End If
        FilePath = .SelectedItems(1)
    End With
    
End Sub

ファイルを開く(実行)

選択したファイルを”.Execute”で実行します。

VBA
Public Sub OpenFile()

    '変数設定
    Dim FilePath As String
    'ファイルを開く
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = ThisWorkbook.Path '規定パス設定
        .AllowMultiSelect = False '複数ファイル指定オフ
        .Filters.Clear ''拡張子指定クリア
        .Filters.Add "Excelファイル", "*.xls;*.xlsx;*.xlsm" '拡張子指定設定
        If .Show <> True Then
            Exit Sub
        End If
        .Execute '実行
    End With
End Sub