EXCEL VBA obtém pasta de código-fonte para Const

Question

eu tenho um código "copyMultFiles" Mova muitos valores em muitos arquivos para um único arquivo Meu problema não pode usar o parâmetro em "Const"

Erro nesta linha "Const csMyPath As String = vaFiles1" vaFiles1 é obter pasta de origem que não posso entrar em 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

Você não pode declarar uma constante que não é constante. Você está configurando uma variável em tempo de execução, portanto, é necessário torná-la uma variável.

Dim csMyPath As String: csMyPath = vaFiles1