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

285
Bluez Pavat

У меня есть код "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
0

1 ответ на вопрос

3
Jonno

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

Dim csMyPath As String: csMyPath = vaFiles1

Похожие вопросы