Microsoft Access小技集013－ダイアログボックスとデスクトップパス

Microsoft Accessで業務システムを構築する際の、ちょっとしたコツをメモしています。
Access講座内で説明する項目もあります。

デスクトップのパスを取得

Dim WSH As Object
dim strPath as string
Set WSH = CreateObject("WScript.Shell")
strPath = WSH.SpecialFolders("Desktop") & "\"

ダイアログボックスを表示する

【その１】
Dim Target As String
Target = Application.GetOpenFilename(“Excel ブック,*.xls?”)
If Target = “False” Then Exit Sub

【その２】
    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Clear
        .Filters.Add "Excelファイル", "*.xlsx"
        .Filters.Add "Excel2003", "*.xls"
        .Filters.Add "Excelマクロ有効", "*.xlsm"
        .InitialFileName = strPath
        .AllowMultiSelect = False

        If .Show = True Then　　←選択された場合
            strPath = .SelectedItems(1)
        Else　　　　　　　　　　←キャンセルされた場合
            Exit Sub
        End If
    End With