EXCELのVBAを使って任意のファイルのフルパスを取得する！

050-VBA

2021.07.04

へっぽこヘタレシステム管理者の管理人です。

さて、ある部署からエクセルのマクロの作成を依頼され・・・

その過程で、いくつか部品を作ったので忘備録として掲載します。

エクセルのマクロを使って任意のファイルのフルパスを取得する

まずはコードです。

例では、マクロ１に割り当てています。

Sub Macro1()
'
' Macro1 Macro
'
    'ファイル選択ダイアログを表示する
        With Application.FileDialog(msoFileDialogFilePicker)
            .Title = "ファイルを選択してください"
             
            '初期フォルダ設定（起動しているエクセルファイルのパス）
            .InitialFileName = ThisWorkbook.Path & "\"
             
            'ファイル選択ダイアログ表示
            If .Show = True Then

                '選択されたファイルパスを取得
                selectionfile_name = .SelectedItems(1)

                'セルA1にファイル名
                Cells(1, 1) = selectionfile_name
                
            Else
                selectionfile_name = ""
            End If
        End With


End Sub

コードの処理は次のとおりです。

ファイル選択ダイアログのタイトルを設定する【ファイルを選択してください】

ファイル選択ダイアログの初期フォルダ設定する【起動しているエクセルのパス】

ファイル選択ダイアログを開く

ブログランキングにご協力ください！