(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.

Interesting Posts

Как сохранить таблицу excel в двойной массив String с помощью apache POI?

Формула MDX Excel Pivot

Разбор листа Excel с более чем 255 символами с использованием Python 2

Вставка нескольких файлов в рабочий лист при увеличении строки

Общие значения для нескольких вкладок в Excel с использованием формулы

Специальный символ добавляется перед § в экспорт csv в jquery

Я не могу комбинировать разблокировать vbaproject и писать в этой книге

Как я могу нажать кнопку ленты ленты Excel Addin с помощью C #? (Reuters Excel Addin)

Правильное количество строк, не копирующих

Скопировать текст Excel 2010 в другую книгу

Ошибка автоматизации на VB6 – «Указанный модуль не найден» – 2147024770

Скопируйте и вставьте таблицу Excel в слово без ссылки или сохранения в виде GIF

Excel VBA – перемещение столбцов при вставке новых столбцов

EXCEL: создание / удаление строк с автозаполненными данными / функциями, соответствующими числу в ячейке

Имея truble Кодирование текста на иврите в Microsoft.Office.Interop.Excel (консольное приложение) c #

Давайте будем гением компьютера.