Access小技集

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

投稿日:

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

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

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

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

【その2】
    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

-Access小技集

Copyright© ネーブルス Access講座 , 2021 All Rights Reserved.