■ Access VBA 実行コード
'メニュー「ツール」-「参照設定」で「Microsoft Office 10.0 Object Library」にチェックしてください。
'Access2000の場合は、「Microsoft Office 9.0 Object Library」になります。
'ファイル選択ダイアログ
Public Function SelectFile_FileDialog() As String
Dim dlgfolder As FileDialog
Dim Filename As Variant
'ダイアログのタイトル
Application.FileDialog(msoFileDialogFilePicker). _
Title = "ファイルを選択してください"
'初期のフォルダ
Application.FileDialog(msoFileDialogFilePicker). _
InitialFileName = "c:\windows\"
'複数のファイルを選択可能
Application.FileDialog(msoFileDialogFilePicker). _
AllowMultiSelect = True
If Application.FileDialog(msoFileDialogFilePicker). _
Show = -1 Then
For Each Filename In Application. _
FileDialog(msoFileDialogFilePicker).SelectedItems
SelectFile_FileDialog = _
SelectFile_FileDialog & Filename & vbCrLf
Next
Else
SelectFile_FileDialog = ""
End If
End Function
'コマンドボタン クリックイベント
Private Sub コマンド0_Click()
コマンド0.Caption = SelectFile_FileDialog
End Sub