Access/VBScript - Aprire la Open File Dialog

Anziché richiamare la comdlg32.dll

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
    "GetOpenFileNameA" (pOpenfilename As openFileName) As Long

Si può lanciare lo stesso metodo da Excel (controllare che sia installato):

Public Function GetOpenFileName(Optional FileFilter, _
                                Optional FilterIndex, _
                                Optional Title, _
                                Optional ButtonText, _
                                Optional MultiSelect)

    ' https://docs.microsoft.com/en-us/office/vba/api/excel.application.getopenfilename

    Dim xls 'As New Excel.Application
    
    Set xls = CreateObject("Excel.Application")
    
    GetOpenFileName = xls.GetOpenFileName(FileFilter, _
                                          FilterIndex, _
                                          Title, _
                                          ButtonText, _
                                          MultiSelect)
    
    Set xls = Nothing
    
End Function