EXCEL VBA liefert den Quellordner nach Const

387
Bluez Pavat

Ich habe einen Code "copyMultFiles". Verschieben Sie viele Werte in vielen Dateien in eine einzige Datei. Mein Problem ist, dass Parameter in "Const" nicht verwendet werden können.

Fehler in dieser Zeile "Const csMyPath As String = vaFiles1" vaFiles1 enthält den Quellordner, den ich nicht in csMypath eingeben kann

 '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 Antwort auf die Frage

3
Jonno

Sie können keine Konstante deklarieren, die nicht konstant ist. Sie setzen zur Laufzeit eine Variable, daher müssen Sie diese Variable als Variable definieren.

Dim csMyPath As String: csMyPath = vaFiles1

Verwandte Probleme