|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.01.2016, 11:00 | #1 |
Регистрация: 21.05.2014
Сообщений: 3
|
Копирование файлов по списку
Добрый день. Помогите, пожалуйста. Нашёл макрос, который копирует файлы по указанной директории, но для моей задачи не совсем подходит, т.к. у меня огромное количество файлов (>1000), которые нужно рассовать по разным директориям. Не могу прописать в макросе, что директории файлов нужно брать из столбца A, а директории для копирования этих файлов нужно брать из столбца B.
Макрос: Код HTML:
Sub Copy_File() Dim objFSO As Object, objFile As Object Dim sFileName As String, sNewFileName As String sFileName = Range("a1") 'имя исходного файла sNewFileName = Range("b1") 'имя файла в конечной директории If Dir(sFileName, 16) = "" Then MsgBox "Нет такого файла", vbCritical, "Ошибка": Exit Sub 'копируем файл Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(sFileName) objFile.Copy sNewFileName MsgBox "Файл скопирован", vbInformation, "ааа" End Sub Последний раз редактировалось AlexanderJin; 20.01.2016 в 11:11. |
20.01.2016, 12:30 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
при активном листе с данными выполните этот макрос
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
20.01.2016, 13:23 | #3 | |
Регистрация: 21.05.2014
Сообщений: 3
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Импорт значений из внешних книг Excel по списку файлов | Varen1k | Microsoft Office Excel | 14 | 14.08.2018 10:09 |
Копирование файлов | Wishangel | Работа с сетью в Delphi | 3 | 08.09.2010 14:22 |
Удаление строк по списку файлов | 550953 | Microsoft Office Excel | 7 | 01.09.2009 10:23 |
Копирование файлов | matus | Помощь студентам | 9 | 27.02.2008 19:34 |
Копирование файлов | Devil_uu | Помощь студентам | 2 | 24.03.2007 20:27 |