EXCEL VBA получить исходную папку в Const

Question

У меня есть код "copyMultFiles" Переместить много значений из многих файлов в один файл Моя проблема не может использовать параметр в "Const"

Ошибка этой строки "Const csMyPath As String = vaFiles1" vaFiles1 - получить исходную папку, которую я не могу ввести в csMypath

 'get source folder
    Dim diaFolder As FileDialog
    Dim vaFiles1  As String
    ' Open the file dialog
    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    diaFolder.AllowMultiSelect = False
    diaFolder.Show

    'MsgBox diaFolder.SelectedItems(1)
    vaFiles1 = diaFolder.SelectedItems(1)

    '    change these to suit requirements
    Const csMyPath As String = vaFiles1
    Const csMyFile As String = "*.xls" 'source search pattern
    Const csSRng As String = "$B$5,$G$36,$I$36,$G$37,$I$37" 'source range
    Const csTRng As String = "$A$1" 'target range

Answer 1

Вы не можете объявить константу, которая не является константой. Вы устанавливаете переменную во время выполнения, поэтому вам нужно сделать ее переменной.

Dim csMyPath As String: csMyPath = vaFiles1