Как открыть файл Excel по щелчку кнопки из Access-а?

Shell "excel.EXE ""L:\ Торговый зал\Запасы.xls""", 1

Shell "Полный\Путь\И\Имя\Программы\Для\Открытия\ФайловPDF.EXE ""L:\ Торговый зал" & [Название файла] & """", 1

application.FollowHyperlink "L:\Торговый зал" & [Название файла]

Private Sub Кнопка0_Click()
Shell start ''C:\Users\ololosha\Desktop\Stock After Pick8.accdb'''
Application.Quit
End Sub

If Dir("путь\файл.accdb")="" Then
   Msgbox "Проверьте полномочия"
   Exit Sub
End If

Public Sub Открыть_файл()
 Dim Obj As Object ' Переменная для хранения справочной инф в Excel
 Dim ExcelWasNotRunning As Boolean    ' Flag реализации
    Set ExcObj = New Excel.Application ' инициализация объекта-Excel
    ExcObj.Visible = True 'вывод на экран
    On Error Resume Next    
    ' Тест, чтобы увидеть, что копия Microsoft Excel уже запущена
    ' игнорировать следующую возможную ошибку
    ' Getobject function без первого аргумента
    ' позволяет получить приложение. Если оно не запускается,
    ' появляется сообщение об ошибке.
    Set ExcObj = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then ExcelWasNotRunning = True
    Err.Clear 'удалить сведения об ошибках
    ' Microsoft Excel запущена
    ' получить искомый объект
    Set Obj = GetObject("E:\Книга1.xlsx")
    
    'Показать объект Microsoft Excel помощью его свойств.
    'Показать реальное окно, содержащее файл с помощью Windows
    ' ссылок на объект Obj
    Obj.Application.Visible = True
    Obj.Parent.Windows(1).Visible = True
 
    'работайте с объектом здесь:
                    ' ...
    'Если данная копия Microsoft Excel не был запущена, когда вы
     'стартовали, закройте объект, используя метод Quit
    'Обратите внимание, что при попытке выйти из программы Microsoft Excel,
    'заголовок окна мигает, и отображается сообщение о том,
    'хотите ли Вы сохранить все загруженные файлы.
    'Если файл не загружен-не будет сообщения, а только интерфейс Microsoft Excel
    If ExcelWasNotRunning = True Then
        Obj.Application.Quit
    End If
    Set Obj = Nothing    ' удалить объект из оперативной памяти
End Sub