Откройте файл Excel без указания имени

Question

Я построил макрос в отдельном Excel, который манипулирует исходной рабочей книгой и создает другую с новыми данными, источником которого он должен быть в srcFolder, а файл результатов - outFolder.

В настоящее время я вызываю файл следующим образом:

Set srcBk = Application.Workbooks.Open("sourceBook.xlsm")

И выходной файл находится в той же папке, в которой включен макрос. То, что я не могу сделать работу, это сделать макрос файл и папку "имя доказательства". В идеале пользователи помещают файл в папку и запускают макрос, не заботясь об имени или расширении файла (это всегда будут файлы .xls, .cls и т. Д.), А также перетаскивают папку макроса (содержащую как входящие, так и исходящие папки) в свои ПК, но вызывает файл с * и устанавливает только одну папку, он не работает, он не находит файл.

Set srcBk= Application.Workbooks.Open("\srcFolder\*.*")

Set srcBk = Application.Workbooks.Open(ActiveWorkbook.Path & "\srcFolder\*.*")

Редактировать: попытка с помощью Application.FileDialog

Dim bkDir As Office.FileDialog
Dim srcBk As Workbook
Set bkDir = Application.FileDialog(msoFileDialogFilePicker)
    With bkDir
        .AllowMultiSelect = False
        .Title = "Seleccione archivo fuente:"
        .Filters.Clear
        If .Show = True Then
            bkDir = Dir(.SelectedItems(1))
            Set srcBK = Application.Workbooks.Open(bkDir)
        End If
    End With