Всех приветствую. Возникла следующая, неразрешимая для меня, задача. Имеется excel таблица, в одном столбце серийные уникальные 15-значные номера оборудования. Также имеется папка, содержащая подпапки, в которых находятся .pdf файлы с паспортами оборудования. Каждый pdf файл переименован в соответствии с уникальным 15-значным серийным номером. Задача состоит в том, чтобы в excel таблице в соседнем столбце с номерами оборудования автоматически проставлялись гиперссылки на соответствующий файл pdf. Важный момент, почему бы не сделать это вручную – объем в тысячи штук + весь архив документов, включающий excel таблицу и все pdf файлы должен перемещаться на различные ПК, соответственно гиперссылки будут ломаться.

Что смог осилить я: получилось двумя способами составлять каталог гиперссылок на pdf файлы в вышеозначенной папке.

Способ 1. С помощью надстройки в excel ASAP Utillities на отдельном листе выводится список гиперссылок на файлы в заданной папке. Возможно есть шанс связать его с номерами оборудования через какую-то формулу, но обычный ВПР у меня не срабатывает, да и как сделать результат в ячейке гиперссылкой хотя бы на отдельный лист с гиперссылками я не понимаю.

Способ 2. Нашел excel файл с макросом, дающим тот же результат, как и в Способе 1, но так как с VBA у меня все довольно не очень, что дописать в макрос, чтобы он соотносил созданные гиперссылки с заданными номерами оборудования, я даже не представляю.

На этом светлые идеи у меня закончились. В каком направлении копать дальше – просто не понимаю. Возможно, кто-то уже сталкивался с подобной задачей и путями её решения, возможно я изначально начал действовать в не правильном направлении или в самом excel есть волшебная кнопка/функция, которая все это делает легко и просто, а я по своей бестолковости, единственный кто об этом не знает. Буду безмерно благодарен за любые подсказки.

И по традиции - кот пикабушника для привлечения хорошего настроения.

Добрый день вам, мои подписчики, и те, кто случайно увидел этот пост.
Решил я делиться своими знаниями по интереснейшей и как ни крути очень востребованной теме – макросы на VBA.
На самом деле, я планирую рассказывать не только про VBA, но и всем что знаю и чему научился за долгие годы работы.
Не буду описывать самые азы – типы данных, их различия, типы макросов и т.п.. Нет, это будет курс по самым хардкорным вещам, с объяснениями тех моментов которые вы никогда не узнаете в самоучителях и которые обычно не рассказывают другие, такие как я, эксперты.

Начнем с малого – простой скрипт записи в txt файл

' - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - +
' Создано: 2020.04.06 08:31:29
' Создатель: Фамилия Имя <vbawisard@gmail.com>
' Название: sc_String_In_TXT
' Тип: Sub
' Доступ: Public
' Описание: Записать строку в текстовый файл
' Параметр: strText {String} - Записываемая строка
' Параметр: strFile {String} - Полное имя файла
' - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - +
Public Sub sc_String_In_TXT(ByVal strText As String, _
ByVal strFile As String)

If Not DEBUGGING Then On Error Resume Next ' Игнорирование ошибки
' - - - - - - - - - - - - - - -
Dim objFSO As Object ' Объект взаимодействия с файловой системой
Dim objTextFile As Object ' Объект ссылка на файл
' - - - - - - - - - - - - - - -

Set objFSO = CreateObject("scripting.filesystemobject") ' Создаем объект взаимодействия с файловой системой
Set objTextFile = objFSO.OpenTextFile(strFile, 8, True) ' Открываем файл
objTextFile.Write vbNewLine & strText ' Записываем строку
objTextFile.Close ' Закрываем файл
Set objTextFile = Nothing ' Чистим память
Set objFSO = Nothing ' Чистим память

' - - - - - - - - - - - - - - -
Err.Clear ' Сбрасываем ошибку

End Sub

Итак, начнем по порядку:
Для того что бы записать какую-то информацию в txt нам необходимо:
1. Записываемая строка (strText)
2. Имя файла в который будем записывать (strFile)
Оба значения мы получаем извне как параметры скрипта
Что бы взаимодействовать с файловой системой нам нужны два объекта:
1. Объект файловой системы (objFSO)
2. Файл в который будем записывать (objTextFile)
Их мы будем инициировать в момент выполнения
Теперь переходим к основной части. Для выполнения этого действия вам необходимо 4 шага:
1. Set objFSO = CreateObject("scripting.filesystemobject") - Создать объект взаимодействия с файловой системой
2. Set objTextFile = objFSO.OpenTextFile(strFile, 8, True) - Создать объект файла – для этого мы указываем:
2.1. strFile – имя файла
2.2. 8 – режим записи в конец файла
2.3. True – маркер что необходимо создать файл если он не существует
3. objTextFile.Write vbNewLine & strText - Записываем в файл не забыв добавить в начало записываемой строки vbNewLine
4. objTextFile.Close - Закрываем файл


Дальше для полного феншуя я обычно добавляю очистку памяти "убивая" объекты
Set objTextFile = Nothing
Я понимаю что по завершению скрипта эти объекты должны сами обнулиться, но я привык руководствоваться принципом "На VBA надейся, а сам не плошай".
Из того что не вошло в основной скрипт, но на что точно обратит внимание внимательный человек:
If Not DEBUGGING Then On Error Resume Next – игнорирование ошибки, причем режим игнорирования может включаться и отключаться глобальной константой DEBUGGING – когда она False – ошибки, игнорируются, когда True – значит включен режим отладки и при ошибке скрипт останавливает выполнение на строке с ошибкой.
Err.Clear – сброс ошибки, на тот случай когда режим дебага отключен, то скрипт пропустит7 ошибку, но при завершении эту ошибку лучше скинуть, иначе она может "потянуться" в другие скрипты и вызвать неожиданные последствия, о которых расскажу подробнее.

Очень надеюсь что мои посты кому-то будут интересны, и/или будут полезны в плане улучшения их навыков работы с VBA и Excel.