Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
копирование необходимых файлов
 
#1
19.12.2017 10:33:30
добрый день. не могли бы помочь. как из папки 123 скопировать файлы, имена которых имеются в столбце I, в папку 567 .
 
 
 
#2
19.12.2017 10:47:51
Код
Sub CopyFiles()
Dim iRow&, iPath$, iSep$, cl As Range
On Error Resume Next
lRow = Cells(Rows.Count, "I").End(xlUp).Row
iPath = ThisWorkbook.Path & Application.PathSeparator
iSep = Application.PathSeparator
For Each cl In Range("I1:I" & lRow).Cells
    FileCopy iPath & "123" & iSep & cl.Value & ".txt", iPath & "567" & iSep & cl.Value & ".txt"
Next
End Sub
Изменено: Sanja - 19.12.2017 11:11:13
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
19.12.2017 10:55:33
Sanja, я, наверное, что то не так делаю. макрос отрабатывает без ошибок, но в папке 567 остается пусто. может, у кого получилось.
 
 
 
#4
19.12.2017 10:58:21
А где лежит файл из которого Вы запускаете макрос? Код написан так, как у Вас расположены файлы и папки в архиве. У меня, на Ваших файл все отработало корректно
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
19.12.2017 11:01:04
И в момент выполнения макроса активным должен быть лист со списком имен файлов
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
19.12.2017 11:03:24
скачал архив с форума. распаковал. скопировал код в модуль файла txt.xlsm и запустил макрос. в итоге пусто в 567.
 
 
 
#7
19.12.2017 11:07:03
Опечатка закралась
Вторую строку кода замените на такую
Код
Dim iRow&, iPath$, iSep$, cl As Range
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
19.12.2017 11:12:55
Sanja, спасибо. все стало на свои места. заработало.
 
 
 
#9
19.12.2017 11:33:01
Еще вариант!
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#10
19.12.2017 11:54:05
Nordheim, спасибо.  
 
 
 
Страницы: 1
Наверх