AccessVBA 標準モジュール②参照ダイアログボックス表示

Option Compare Database

Public Function FDFolderPicker()
‘*********************************************
‘*  [参照] ダイアログ ボックス(フォルダ参照)
‘*********************************************
‘[参照] ダイアログ ボックスの FileDialog オブジェクトを作成します。
Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
‘選択した各アイテムのパスを保存す変数を宣言します。
Dim vrtSelectedItem As Variant

‘プロパティの設定
With fd
.Title = “フォルダ参照ダイアログ”

.InitialView = msoFileDialogViewDetails
.InitialFileName = “C:\”

‘[参照] ダイアログ ボックスを表示します。
If .Show = -1 Then
‘ユーザーがアクション ボタンをクリックした場合
For Each vrtSelectedItem In .SelectedItems
FDFolderPicker = vrtSelectedItem
Next vrtSelectedItem
Else
‘ユーザーが [キャンセル] をクリックした場合
End If
End With

‘オブジェクトの変数に Nothing を設定します。
Set fd = Nothing

End Function
Public Function FDFilePicker()
‘*********************************************
‘*  [参照] ダイアログ ボックス(ファイル参照)
‘*********************************************
‘[参照] ダイアログ ボックスの FileDialog オブジェクトを作成します。
Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)
‘選択した各アイテムのパスを保存す変数を宣言します。
Dim vrtSelectedItem As Variant

‘プロパティの設定
With fd
.Title = “サンプルダイアログ(ファイル参照)”
‘フィルターの設定
.Filters.Clear
.Filters.Add “テキスト”, “*.txt; *.csv”
.Filters.Add “エクセル”, “*.xls”
.Filters.Add “Access”, “*.mdb”
.Filters.Add “イメージ”, “*.gif; *.jpg; *.jpeg”
.Filters.Add “すべてのファイル”, “*.*”
.FilterIndex = 3

.InitialView = msoFileDialogViewDetails
.InitialFileName = CurrentProject.Path
.AllowMultiSelect = False

‘[参照] ダイアログ ボックスを表示します。
If .Show = -1 Then
‘ユーザーがアクション ボタンをクリックした場合
For Each vrtSelectedItem In .SelectedItems
FDFilePicker = vrtSelectedItem
Next vrtSelectedItem
Else
‘ユーザーが [キャンセル] をクリックした場合
End If
End With

‘オブジェクトの変数に Nothing を設定します。
Set fd = Nothing

End Function

About

You may also like...

Your email will not be published. Name and Email fields are required