Access小技集

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

投稿日:2021年5月26日 更新日:

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

 

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

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講座 , 2024 All Rights Reserved Powered by AFFINGER5.