Attribute VB_Name = "DialogOpenFile"
Option Compare Database
Option Explicit

Declare Function GetOpenFileName Lib "comdlg32.dll" _
Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Boolean
Declare Function GetSaveFileName Lib "comdlg32.dll" _
Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Boolean

Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As Long
nMaxCustrFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustrData As Long
lpfnHook As Long
lpTemplateName As Long
End Type

Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_CREATEPROMPT = &H2000
Public Const OFN_EXPLORER = &H80000
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_NOCHANGEDIR = &H8
Public Const OFN_NODEREFERENCELINKS = &H100000
Public Const OFN_NONETWORKBUTTON = &H20000
Public Const OFN_NOREADONLYRETURN = &H8000
Public Const OFN_NOVALIDATE = &H100
Public Const OFN_OVERWRITEPROMPT = &H2
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_READONLY = &H1
Public Const OFN_SHOWHELP = &H10

Public Function OpenFile(ByVal InitDir As String, ByVal fName As String) As String
Dim strFile As String *  512 
Dim of As OPENFILENAME
Dim f As String
Dim P%
' Установка начальных значений структуры
of.hwndOwner = Application.hWndAccessApp
of.hInstance =  0 
of.lpstrCustomFilter =  0 
of.nMaxCustrFilter =  0 
of.lpfnHook =  0 
of.lpTemplateName =  0 
of.lCustrData =  0 
'Ниже вы можете изменить фильтры для поиска файлов
of.lpstrFilter = "Excel File (*.xls)" & Chr$( 0 ) & "*.xls" & Chr$( 0 ) & _
"All Files (*.*)" & Chr$( 0 ) & "*.*" & Chr$( 0 ) & Chr$( 0 )

of.nFilterIndex =  3 

of.lpstrFile = fName & String$( 512  - Len(fName),  0 )
of.nMaxFile =  511 

of.lpstrFileTitle = String$( 512 ,  0 )
of.nMaxFileTitle =  511 
' Ниже вы можете изменить заголовок окна
of.lpstrTitle = "Импорт Excel Файлов"

of.lpstrInitialDir = InitDir
' Можете изменить расширение файла
of.lpstrDefExt = "xls"

of.Flags = OFN_FILEMUSTEXIST + OFN_PATHMUSTEXIST
of.lStructSize = Len(of)
If GetOpenFileName(of) Then
P% = InStr( 1 , of.lpstrFile, Chr$( 0 ))
OpenFile = left(of.lpstrFile, P% -  1 )
Else
OpenFile = ""
End If
End Function

CommonDialog1.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer

Dim itm As Variant
Dim dlgOpen As Office.FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)

With dlgOpen
.AllowMultiSelect = True
.Show
For Each itm In .SelectedItems
' ...
Next
End With