Function FileSelect()
'参照設定 Microsoft office14.0 Object Library必要
On Error GoTo ErrorHandler 'エラー処理ルーチンを実行します。
Dim Returnvalue As Variant
Dim strmsg As String
Returnvalue = SysCmd(acSysCmdAccessVer)
strmsg = "Access2002、2003でないため、この機能を利用できません。"
'Accessのバージョンを調べます。
'Access2000は10.0、Access2000は9.0,Access97は8.0,Access95は7.0を返します。
Dim inttype As Integer
Dim varSelectedFile As Variant
'ファイルを選択する場合は、msofiledialogfilepicker
'フォルダーを選択する場合は、msofiledialogfolderpicker
inttype = msoFileDialogFilePicker
'ファイル参照用の設定値をセットします。
With Application.FileDialog(inttype)
'ダイアログタイトル名
.Title = "ファイル選択"
'ファイルの種類を定義します。
'.Filters.Add "xls ファイル", "*.csv"
'.Filters.Add "xlsファイル", "*.csv"
.Filters.Add "すべてのファイル", "*.*"
'複数ファイル選択を可能にする場合はTrue、不可の場合はFalse。
.AllowMultiSelect = False
'最初に開くホルダーを当ファイルのフォルダーとします。
.InitialFileName = CurrentProject.Path
If .Show = -1 Then 'ファイルが選択されれば -1 を返します。
For Each varSelectedFile In .SelectedItems
FileSelect = varSelectedFile
Next
End If
End With
Exit Function
ErrorHandler:
MsgBox "予期せぬエラーが発生しました" & Chr(13) & _
"エラーナンバー:" & Err.Number & Chr(13) & _
"エラー内容:" & Err.Description, vbOKOnly
End
End Function