Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос файлов, С помощью макроса перенести файлы из одной папки в другую
 
#1
23.01.2014 10:17:32
Уважаемые форумчане нужна помощь в решении задачи по переносу файлов!
Есть программа с помощью которой формируются отчёты представляющие собой пять файлов формата CSV, которые записываются каждый день в новую папку. Название папки представляет собой дату за которую выгружен файл и имеет вид (пример 01.01.2014). Так же есть файл  EXCEL куда данные из CSV файлов переносятся (макросом) и делаются различные расчеты. Но перед тем как занести эти файлы нужно каждый файл перенести в отдельную  папку (чтобы выгрузить данные за 01.01.2014 необходимо из папки с названием 01.01.2014 скопировать файлы 1.CSV в папку 1; 2.CSV в папку 2; и т.д все 5-ть файлов) Суть задачи состоит в том, чтобы за текущую дату файлы из папки соответствующей текущей даты переносились каждый в свою папку, перед этим удалив предыдущие файлы в этих папках.
 
 
 
#2
23.01.2014 10:21:08
А это надо именно в экселе делать или можно системный скрипт запускать? ;)
Если автоматизировать бардак, то получится автоматизированный бардак.
 
 
 
#3
23.01.2014 10:22:30
Кросс:
http://www.excelworld.ru/forum/10-8476-1
Я сам - дурнее всякого примера! ...
 
 
 
#4
23.01.2014 10:33:34
самое простое -  метод filecopy vba, потом убить оригинал командой kill( но не самый быстрый)


можно запустить системную команду shell move

можно создать обект filesystemobject - Set f = CreateObject("scripting.filesystemobject" ;)   и воспользоваться его методом move
Изменено: Слэн - 23.01.2014 10:34:02
Живи и дай жить..
 
 
 
#5
23.01.2014 10:35:59
ps тонкости - во всех случаях, по-моему, это асинхронное действие - те надо подождать пока файлы будут в самом деле скопированы..


если это именно перенос, и он делается внутри одного диска, то это быстрее
Изменено: Слэн - 23.01.2014 10:37:03
Живи и дай жить..
 
 
 
#6
23.01.2014 11:04:13
Может макросом брать файлы сразу из папки "пример 01.01.2014" - и ничего не нужно будет переносить?
 
 
 
#7
23.01.2014 11:16:25
Можно еще сразу перемещать методом Name As:
Код
Name sOldFileName As sNewFileName
Более подробно расписывал здесь: Как средствами VBA переименовать/переместить/скопировать файл
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#8
23.01.2014 12:38:51
wowick, именно в Excel, потому что дальнейшие действия делаются там же. Проблема заключается не в переносе из одного места в другое, а в том, что переносить файл из папки название, которой соответствует текущей дате
 
 
 
#9
23.01.2014 12:42:20
Hugo, может и проще, но я не программист, а напрягать кого-то переделывать макрос не очень хочется. Вопрос больше стоит не в переносе данных, а как выбрать папку по текущей дате.  
 
 
 
Страницы: 1
Читают тему
Наверх