今回はVBAでファイルのパスを取得するための「参照」ボタンを作ります。
うめ
ユーザーに読み込むファイルを指定させる時に便利です！
コピペで使えるので、是非活用して下さい！
作成手順
先にExcel側の準備をします。
❶「開発タブ」⇒「挿入」⇒「コマンドボタン」を選択
❷「コマンドボタン」を設置して、ボタンを右クリックして「プロパティ」を選択
❸「Caption」を「参照」と変えます。
❹同じくボタンを右クリックして「コードの表示」を選択
❺下記コードを貼り付ける
|
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 |
実行
デザインモードが無効になっていることを確認してから
設置した「参照」を選択すると
ファイル選択のウィンドウが開くので、ファイルを選択すると
指定したファイルのパスがC2セルに貼り付けられます。
