Перемещение файлов по папкам - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5