「参照」ボタンからファイル名を反映したい
ユーザーにファイルやフォルダなどを選択する際、
webページのように参照ボタンを置いてそこから選ばせたいです。
Function化して楽にしたいと思います。
オートシェイプで「参照」ボタンを作って、任意のセルに配置する。
その後、下記のコードを入れれば、オートシェイプの位置の左隣のセルにファイル名を反映します。
'■「参照」ボタンからファイル名を反映
Public Sub Call_FileReference()
'■クリックしたShapeからセル位置を特定。→反映場所は一つ隣のセル
Dim rng As Range: Set rng = ActiveSheet.Shapes(Application.Caller).TopLeftCell
'■ファイルを取得
Dim sFile As Variant
If Call_FileOpenAlone(sFile) = False Then Exit Sub
rng.Offset(0, -1) = sFile(1) 'C:\vba\sample.xlsx
End Sub
注意点
- 上記のコードのみでは動きません。こちらのFunctionも必要です。
- ファイルでなくフォルダ参照する場合は「Call_FileOpenAlone」ではなくこちらの記事を参照。
コメント