Нужна помощь с макросом-необходимо пройти перебором по столбцу B с первой ячейки

Автор Atlant_50, 3 марта 2020, 19:43

0 Пользователи и 1 гость просматривают эту тему.

Atlant_50

Нужна помощь с макросом (Верней, не так, а вот так: прошу его написать)
если можно, то с комментариями (очень хочется понять как такое сделать и больше не приставать к Вам, уважаемые Гуру, с глупыми вопросами) :) :)

есть уже макрос который вытаскивает из папки имена файлов и "обрезки" имен файлов
картинку прилагаю
а файл который нужно копировать из директории в директорию пришлось переименовать немножко

необходимо пройти перебором по столбцу B с первой ячейки. Если запись в первой ячейке ни с какой последующей
не совпадает, то скопировать соответствующий файл (к примеру D:\666\test\1\08103022_est.014)
из столбца А директории D в любую другую директорию (к примеру D:\5),
и после копирования проставить пометку в столбец E "отправлен". Если запись совпадает, то найти эти
записи и отправить все соответствующие файлы в другую директорию, так же с пометкой в столбце E "отправлен" . И так поступить с каждой заполненной
ячейкой столбца B, но не брать уже те файлы, которые были найдены (т.е. имели совпадения).

Помогите, пожалуйста! Я пока не понимать многое в либре ??? ??? :'( :'(
или отправьте куда-нибудь читать книжки! ;) ;)

bigor

Как получается лист2 ? Формируется полностью или только столбцы а и в меняются? Если  добавить столбцы с  d с формулами, что бы уменьшить проверки в макросе, они останутся? Файлы обязательно копировать? или можно переносить, тогда не надо контролировать
Цитироватьно не брать уже те файлы, которые были найдены
И хотелось бы конкретики, куда какие файлы копировать/переносить. Если он уникальный, то написано в d:\5, нашли первую партию неуникальных spn.019
Цитироватьв другую директорию
пусть d:\6. А следующую партию reestr.014 куда? опять в d:\6 ? или уже в d:\7?
Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

Atlant_50

На Листе 2 меняются только столбцы А и B. Если добавить столбцы C и D, думаю, что ничего не изменится.Файлы можно переносить. Все Файлы переносить в d:\5, только по очереди. Так как будет происходить следующее: копируется файл в d:\5, запускается макрос для обработки этого файла/ или одинаковых обрезанных файлов, в книге есть ещё вкладки, туда информация записывается при обработке файла, далее документ сохраняется. Вот теперь нужно скопировать или переместить следующий файл для обработки. Как-то так. Но хотелось бы без формул

bigor

"Лишние" файлы могут быть в первоначальной папке? Т.е. допустим берем значение из столбца В и делаем проверку через dir(Путь\*Значение из В.*) и все найденные переносим в d:\5 Или нужно еще сравнивать найденные с именами из А?
Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

Atlant_50


bigor

Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

Atlant_50

Спасибо за потраченное на меня время!  :D :D :D Смогу только завтра на работе посмотреть!
Можно будет задавать вопросы?

Atlant_50

Не понимаю строку
name (IN_d & sFileName) as out_d & sFileName
Через print in_d & sFileName вижу директорию\файл который нужно перенести Или скопировать. Не понимаю as out_d & sFileName Т.е. получается что это строка переноса? Кстати , на эту строку и ругается. Говорит, файл не найден, а он есть.  ??? :-\

bigor

Name старое имя файла As новое имя файла  - эта строка переносит файлы из папки указанной в столбце d  в папку указанную в переменной out_d
Если ругается, то скорее всего нет папку куда переносить
Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

Atlant_50

И точно! Папка-то есть, но не в корне d! Вот я дурында! Спасибо большое!  :beer: