今回はVBAでファイルのパスを取得するための「参照」ボタンを作ります。
![うめ](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2020/02/梅屋ラボ-コピー.png?w=1256&ssl=1)
うめ
ユーザーに読み込むファイルを指定させる時に便利です!
コピペで使えるので、是非活用して下さい!
作成手順
先にExcel側の準備をします。
❶「開発タブ」⇒「挿入」⇒「コマンドボタン」を選択
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2022/04/image-12.png?resize=368%2C302&ssl=1)
❷「コマンドボタン」を設置して、ボタンを右クリックして「プロパティ」を選択
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2022/04/image-13.png?resize=297%2C284&ssl=1)
❸「Caption」を「参照」と変えます。
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2022/04/image-14.png?resize=443%2C251&ssl=1)
❹同じくボタンを右クリックして「コードの表示」を選択
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2022/04/image-15.png?resize=346%2C318&ssl=1)
❺下記コードを貼り付ける
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Private Sub CommandButton1_Click() '選択したファイル名を表示 Dim PathName As String: PathName = Application.GetOpenFilename("全てのファイル, *.*") If PathName <> "False" Then 'ファイルが指定された場合 Sheets(1).Cells(2, 3).Value = PathName Else 'キャンセル時は何もしない Exit Sub End If End Sub |
実行
デザインモードが無効になっていることを確認してから
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2022/04/image-18.png?resize=230%2C148&ssl=1)
設置した「参照」を選択すると
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2022/04/image-19.png?resize=472%2C144&ssl=1)
ファイル選択のウィンドウが開くので、ファイルを選択すると
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2022/04/image-16.png?resize=773%2C435&ssl=1)
指定したファイルのパスがC2セルに貼り付けられます。
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2022/04/image-17.png?resize=536%2C148&ssl=1)