Sub FollowLinks() Dim c As Range For Each c In Range(Cells(1, 3), Cells(1, 3).End(xlDown)) If c <> vbNullString Then ThisWorkbook.FollowHyperlink (c.Offset(, 1).Value) End If Next End Sub
Макрос для открытия гиперссылок Excel
7464
admintech
Я хотел бы знать, может ли кто-нибудь помочь мне сделать макрос, чтобы открыть список гиперссылок.
У меня есть список из примерно 600 гиперссылок, все в столбце в отдельных строках, я должен открыть каждую из них, чтобы увидеть, работает ли ссылка, но это скучно и утомительно, так как мне иногда приходится ждать, пока Excel сможет наверстать упущенное скорее оставьте это, делая 100 за один раз, пока я делаю другие вещи
Для любого решения, которое вы найдете, в Office есть удивительно странная функция, которую вам, возможно, придется принять во внимание: сначала он использует компонент Internet Explorer (но не идентифицирует себя как Internet Explorer), чтобы проверить, является ли URL-адрес одним щелчком мыши действительным. После этого он передает * полученный URL-адрес * браузеру по умолчанию (или * не *, если веб-сайт по какой-либо причине блокирует пользовательский агент «Обнаружение существования Microsoft Office»). Подробности на http://superuser.com/questions/41935/clicking-hyperlinks-in-email-messages-becomes-painfully-slow/42237#42237
Arjan 15 лет назад
1
2 ответа на вопрос
1
joe
0
joe
Если вы автоматизируете Internet Explorer, вы можете распечатать окно браузера из Excel. Вам нужно будет установить ссылку на Microsoft Internet Controls.
Вот пример:
Sub printweb() Dim ie As InternetExplorer Set ie = New InternetExplorer ie.Visible = True ie.Navigate Range("A1").Value 'A1 holds the URL Do DoEvents Loop Until ie.ReadyState = READYSTATE_COMPLETE 'This prints it ie.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER End Sub
Это не работает, диапазон будет от D237 до D337
admintech 15 лет назад
0
Похожие вопросы
-
2
Конвертировать макрос Excel 4.0 в VBA
-
3
Исправить (сегодня) дату в Excel
-
5
Невозможно создать диаграммы для всех значений во всем столбце в Excel 2003
-
-
4
Excel 2007 | Удалить пустые поля из сводных таблиц
-
2
Как будет выглядеть макрос Outlook 2007 для автоматизации Специального вставки - неформатированный т...
-
2
Коды ASCII появляются в Excel '03, но не в '07
-
4
Открыть несколько экземпляров Excel без сообщения блокировки PERSONAL.xlsb
-
2
Шрифт гиперссылки в Excel всегда меняется на шрифт / размер шрифта по умолчанию
-
2
Как вывести Excel из режима выбора ячеек
-
5
Выделить весь столбец без строки заголовка в макросе Excel