Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.02.2019, 23:42   #1
Student_VBA
Новичок
Джуниор
 
Регистрация: 21.02.2019
Сообщений: 2
По умолчанию Автоматизация подготовки документов

Добрый день, уважаемые форумчане!
Прошу помочь с решением вопроса.

Суть задачи: имеется огромный перечень сотрудников, при участии в тендерах требуется прикладывать по каждому сотруднику (дипломы И(ИЛИ) различные корочки ОТ, ПТМ, ЭБ и т.д. зависит от условий тендера).

Решение есть но не владею VBA(:
1. Необходимо, чтобы макрос работал только по отфильтрованному списку в excel, например, по должностям (проектировщик/наладчик/руководитель), т.к. тендеры бывают различного характера (только проектирование или только наладка или комплексно) - фильтрация делается вручную;

2. По каждому сотруднику требуется создание папки с ФИО (название папки берется из столбца B) что-то похожее нашел и сделал чтобы папки создавались только по отфильтрованному списку:

Sub pars()
Dim c As Range
For Each oCell In Range("B2", Cells(Rows.Count, "B").End(xlUp)).SpecialCells(xlCell TypeVisible)
If Not IsEmpty(oCell) Then MkDir ThisWorkbook.path & "" & oCell
Next
End Sub

3. С папки на сервере требуется осуществлять поиск по содержанию слов в названии файла: первое слово до пробела в столбце B (это фамилия) + слово "диплом"/"ОТ"/"ПТМ"/"ЭБ" - хотелось бы сделать дополнительное слово для поиска в виде чекбокса.

4. Копировать найденные файлы в каждую созданную папку с ФИО.
Вложения
Тип файла: rar Парсер кадров.rar (16.3 Кб, 10 просмотров)
Student_VBA вне форума Ответить с цитированием
Старый 23.02.2019, 13:02   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Так с чем проблема?
3-4 пункты можно выполнять во 2м.
Нужно запустить 4(по количеству слов диплом/от/птм/еб) цикла для поиска файлов в каталоге. Поиск файлов можно реализировать например так https://stackoverflow.com/questions/...lder-using-vba если файл нашелся копируем его в
Код:
ThisWorkbook.path
https://stackoverflow.com/questions/...ory-to-another
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 01.03.2019, 20:40   #3
Student_VBA
Новичок
Джуниор
 
Регистрация: 21.02.2019
Сообщений: 2
Печаль

Спасибо, за ссылки! попробую что-нибудь с этим сделать, к сожалению, с VBA на Вы
Student_VBA вне форума Ответить с цитированием
Старый 01.03.2019, 21:31   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

пробуйте, ведь без труда не вытащить рыбку из пруда.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автоматизация создания документов Word по шаблону AndruXAXA Фриланс 6 29.09.2018 10:28
Автоматизация создания документов SashaS Microsoft Office Excel 3 01.03.2012 16:41
2 Вопроса подготовки к экзамену! denizkin Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 20.01.2011 19:23
Совет насчет подготовки к егэ!!! Dr.MagoR Паскаль, Turbo Pascal, PascalABC.NET 2 12.04.2009 17:13