Перемещение файлов по папкам - VBA
Формулировка задачи:
Добрый день товарищи!
есть код макроса, которым я пользуюсь для перемещения определенных файлов xlsx по заданным папкам.
но его громоздкость и не универсальность в том, что для каждого файла написана процедура перемещения, и имена соответственно фиксированы.
а можно ли подкорректировать код так, чтобы выполнялось перемещения файла в папку в зависимости от содержания имени файла: т.е. если в имени файла содержится слово
one
, переместил его в папкуOne
, нашел словоthree
перенес его в папкуThree
и тд. всего папок 3 и ключевых слов соответственно тоже 3
с уважением
Решение задачи: «Перемещение файлов по папкам»
textual
Листинг программы
Dim names() as String names = Array("one","two","three") fn= dir("C:\Users\papi\Desktop\Temp\*.xlsx") while fn<>"" For i=0 to Ubound(names) if fn like "*" & names(i) & "*.xlsx" then Name "C:\Users\papi\Desktop\Temp\" & fn As "C:\" & names(i) & "\" & fn end if next i fn=dir wend
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д