📖 Открыть сайт или файл для просмотра

Самый простой способ открыть сайт или файл для просмотра из кода VBA Excel - использовать метод Workbook.FollowHyperlink. 🚀

🖊 Запись метода можно сделать в двух вариантах:
🔹 ThisWorkbook.FollowHyperlink Address:="https://www.travelpayouts.com/ru/?marker=95707.tg"
🔹 ThisWorkbook.FollowHyperlink ("https://www.travelpayouts.com/ru/?marker=95707.tg")

Я предпочитаю скобки. Хоть немного, но покороче 🙂.

📌 Примеры

1️⃣ Открываем сайт:

Sub OpenSite()
    On Error Resume Next
    ThisWorkbook.FollowHyperlink _
    ("https://vremya-ne-zhdet.ru/rabota-v-internete/travelpayouts-partnerskaya-programma/")
End Sub

2️⃣ Открываем файл:

Sub OpenFile()
    On Error Resume Next
    ThisWorkbook.FollowHyperlink _
    ("C:\Test\Текстовый документ.txt")
End Sub

💡 Примечания
🔹 Оператор On Error Resume Next необходим, чтобы завершить процедуру без ошибки, если указанный сайт или файл не существует.
🔹 В комментариях на сайте писали, что метод Workbook.FollowHyperlink не работает в VBA Excel 2007. Возможно, это частный случай.

#VBA #ExcelVBA #Workbook #FollowHyperlink #ОткрытьСайт #ОткрытьФайл