複数ファイル選択ダイアログ(Office Object Library を使用) : Access



BackHome BackTips Backメニュー

■ 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

BackHome BackTips Backメニュー

Copyright(C) FeedSoft