Power Query. VBA. Указать путь к файлу/папке при помощи VBA

Описание

Нам необходимо в таблице параметров задать пути к файлам и/или папкам источникам при помощи VBA.

Мы создадим кнопки, при клике на которые откроется диалоговое окно для выбора файла/папки источника.

Код

Код для выбора файла:

Sub FilePath()
    Dim strFilePath As String
    With Application.FileDialog(msoFileDialogFilePicker)
        If .Show <> 0 Then
            strFilePath = .SelectedItems(1)
        End If
        Selection.Value = strFilePath
    End With
End Sub

Код для выбора папки:

Sub FolderPath()
    Dim strFolderPath As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show <> 0 Then
            strFolderPath = .SelectedItems(1)
        End If
        Selection.Value = strFolderPath
    End With
End Sub