Макрос для открытия гиперссылок Excel

7471
admintech

Я хотел бы знать, может ли кто-нибудь помочь мне сделать макрос, чтобы открыть список гиперссылок.

У меня есть список из примерно 600 гиперссылок, все в столбце в отдельных строках, я должен открыть каждую из них, чтобы увидеть, работает ли ссылка, но это скучно и утомительно, так как мне иногда приходится ждать, пока Excel сможет наверстать упущенное скорее оставьте это, делая 100 за один раз, пока я делаю другие вещи

1
Для любого решения, которое вы найдете, в 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 
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

Источник

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

Похожие вопросы