Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как создать папку с именем файла и переместить в нее сам файл
 
#1
08.05.2012 06:26:58
Здравствуйте! Помомгите решить задачу с помощью макроса. Имеются файлы (кол-во больше 1000 и ежедневно растет), задача: создать папку с именем файла и переместить в нее сам файл. Так для каждого файла. Делал все это в Total Commander, но одни и те же действия повторять замучился. Прикрепляю скриншот со структурой каталога, сверху уже готовые папки с перемещенными в них файлами, снизу, файлы которые необходимо переместить. Саму папку выкладывать не стал, велик размер. Спасибо!
 
 
 
#2
08.05.2012 09:02:52
... создает папку и копирует туда  
 
АВТОР: EducatedFool (Игорь) может не обидеться, модуль1 добавил и все...
 
 
 
#3
08.05.2012 09:41:46
Спасибо, работает! Только есть один момент. Дело в том, что работа происходит в сетевой папке, т.е. при создании папок и копировании туда файлов, мне придется в ручную удалять скопированные файлы из корня папки, а в это время могут появится среди них уже новые файлы, которые не учавствовали в копировании и я могу случайно их удалить. Вот если бы модуль не копировал, а перемещал в папку было бы здорово, хотя и так хорошо.
 
 
 
#4
08.05.2012 10:22:10
Sub temp()  
   Application.DisplayAlerts = False  
   For i = 6 To Cells(Rows.Count, 2).End(xlUp).Row  
   Range("F" & i).FormulaR1C1 = "=MID(RC[-3],1,LEN(RC[-3])-4)"
   Cells(i, 6).Value = Cells(i, 6).Value  
   MkDir Cells(i, 6)'создаем папку  
       FileCopy Cells(i, 3).Value, Cells(i, 6).Value & "\" & Cells(i, 2).Value'копируем файл  
       Kill Cells(i, 3).Value'удаляем файл  
   Next  
   Application.DisplayAlerts = True  
End Sub
Excel 2007
 
 
 
#5
08.05.2012 11:37:17
Спасибо, ABC!
 
 
 
Страницы: 1
Читают тему
Наверх