![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#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. |
![]() |
![]() |
![]() |
#2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
при активном листе с данными выполните этот макрос
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#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 |