【VBA】フォルダ選択ダイアログを表示する

0

    <機能>

    フォルダ選択ダイアログを表示します。

    下記プロパティを設定します。

    ・初期表示フォルダ

    ・ダイアログタイトル

    ・ボタンのキャプション

     

    <動作検証>
    Microsoft Office 2016

     

    <実行イメージ>

    VBA,フォルダ選択ダイアログイメージ

    VBA,選択フォルダ表示

     

    <使い方>
    適当なところにソースを貼り付けてください

    フォルダを選択する() を実行すると処理を開始します

     

    '/********************************************************
    '/* フォルダ選択ダイアログを表示する
    '/* 引数:
    '/*  strDefault 初期表示フォルダ
    '/* 戻り値:
    '/*  選択されたときtrue、キャンセルされたときfalse
    '/*  strSelect  選択されたフォルダパス(参照)
    '/********************************************************

    Function SelectFolder(ByVal strDefault As String, _
                        ByRef strSelect As String) As Boolean
        SelectFolder = False
        strSelect = ""
        
        '//フォルダ選択ダイアログを表示
        With Application.FileDialog(msoFileDialogFolderPicker)
            '初期表示フォルダ
            .InitialFileName = strDefault & "¥"
            'タイトルを指定
            .Title = "フォルダ選択ダイアログサンプル"
            'ボタンのキャプションを変更
            .ButtonName = "選択確定"
            
            'フォルダが選択された
            If .Show = True Then
                strSelect = .SelectedItems(1)
                SelectFolder = True
            Else
                .Execute
            End If
        End With
    End Function


    '/********************************************************
    '/* フォルダ選択ダイアログ呼び出しサンプル
    '/********************************************************

    Public Sub フォルダを選択する()
        Dim strSelect As String
        Dim wksel As Variant, wkmsg As String
        
        '//フォルダを選択する
        If Not SelectFolder(ThisWorkbook.Path, strSelect) Then
            MsgBox "フォルダ選択がキャンセルされました", vbCritical
            Exit Sub
        End If
        
        '//選択されたフォルダを表示
        MsgBox "選択フォルダ:" & vbCrLf & strSelect, vbInformation
        
    End Sub
     

    よろしければポチッと押してください

    プログラマー ブログランキングへ

     



    calendar

    S M T W T F S
    1234567
    891011121314
    15161718192021
    22232425262728
    293031    
    << October 2017 >>

    profile

    others

    mobile

    qrcode