AccessのVBAで、ファイル選択ダイアログでファイルパスを取得する。～パソコンの小技・備忘録

AccessのVBAで、ファイル選択ダイアログでファイルパスを取得する。

ファイル選択ダイアログでファイルパスを取得する方法です。

フォーム上で、パスを指定する際などに設定すると便利だと思います。

'取得したパスをテキストボックスに入力します。 With Application.FileDialog(msoFileDialogOpen) 　　.Title = "ファイルの選択" 　　.Filters.Clear 　　.Filters.Add "すべてのファイル", "*.*" 　　.AllowMultiSelect = False 　　.InitialFileName = CurrentProject.Path 　　If .Show = -1 Then 　　　　Me.txtFilePath = .SelectedItems(1) 　　End If End With

以上のような記述で、ファイルダイアログを表示し、ファイルパスを取得することができます。
例では、フィルタ機能で「すべてのファイル」を対象としていますが、フィルタを変えることで、特定の拡張子に限定することができます。

トップページに戻る

パソコンの小技・備忘録トップページ(http://pckowaza.web.fc2.com/)を表示

※更新履歴などを掲載していますので、お気に入りはぜひトップページでお願いします！

パソコンの小技・備忘録

AccessのVBAで、ファイル選択ダイアログでファイルパスを取得する。

トップページに戻る

サイト内検索

小技カテゴリー

カウンタ

メール送信