Step1 新規図書データベースの作成先フォルダを指定する - 学校図書データベース

フォルダ選択ダイアログボックスを開き、MDBファイルの作成先フォルダを指定します

フォルダ選択ダイアログボックスは Application.FileDialog(msoFileDialogFolderPicker) を使い初期フォルダを指定できるようにします。

メニューに戻る

スポンサードリンク



実行画面

学校図書データベースの開始画面です。
[新規データベース作成]ボタンをクリックすると開始します。
学校図書データベースの開始画面

開いたフォルダ選択ダイアログボックスです。 初期フォルダはこのExcelブックのあるフォルダに指定しています。
フォルダ選択ダイアログボックス

スポンサードリンク



VBAコード


Option Explicit

Public Function SelectFolder_FileDialog(iniDir As String) As String
    Dim s1 As String
    
    'フォルダ選択ダイアログ
    With Application.FileDialog(msoFileDialogFolderPicker)
        'タイトル
        .Title = "フォルダを選択してください"
        '初期フォルダ
        .InitialFileName = iniDir
        If .Show = -1 Then
            '選択された
            s1 = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
            If Right$(s1, 1) <> "\" Then s1 = s1 + "\"
            SelectFolder_FileDialog = s1
        Else
            SelectFolder_FileDialog = ""
        End If
    End With
End Function

Private Sub CommandButton1_Click()
    Dim spath As String
    
    spath = SelectFolder_FileDialog(ActiveWorkbook.Path)
    If spath = "" Then
        Exit Sub
    End If
End Sub

スポンサードリンク





メニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved