(VBA) Открывает сразу несколько гиперссылок, если ссылка не равна «(пробел)»
Я бы хотел создать код VBA, который сразу откроет сразу несколько гиперссылок.
Лист5 моей книги содержит сводную таблицу, а в столбце «M» или «Pivotfield» «Вложения» содержится ссылка, которую я хочу связать с гиперссылкой.
Ссылка выглядит примерно так:
«C: \ Users \ J_Doe \ Documents \ JDoe \ Documents \ FM200 Annual-Oct 2016.pdf"
Являясь сводной таблицей, если в этом поле нет гиперссылки, поле отобразит «(пробел)». Очевидно, их не следует открывать. Поэтому я хотел бы, чтобы мой код говорил что-то вроде строки «Открыть все гиперссылки в этом поле, которые не равны» (пробел) ».
Может ли кто-нибудь помочь? Я даже не знаю, с чего начать.
ОБНОВИТЬ
Это мой код прямо сейчас:
Sub LaunchMultipleURLs() On Error Resume Next Dim r As Range Set r = Sheet2.Range("M:M") Dim c As Range For Each c In r.Cells c.Hyperlinks(1).Follow NewWindow:=True Next c End Sub
Однако ссылка на сводную таблицу в столбце M не является фактической ссылкой. Это только место доступа к файлу, поэтому запуск этого кода сам по себе ничего не делает.
То, что я делаю, оставляет расположение ссылки следующим образом:
«C: \ Users \ J_Doe \ Documents \ JDoe \ Documents \ FM200 Annual-Oct 2016.pdf"
Таким образом, я могу просто ссылаться на сводную таблицу, делая что-то вроде «= гиперссылка (M1)», и я могу открыть файл таким образом. Однако это работает только для ячейки M1. Если есть ссылки в M2 и далее, я не могу их открыть без какого-либо VBA.