Я хотел бы знать, если кто может помочь мне сделать макрос, чтобы открыть список гиперссылкам.
У меня есть список около 600 гиперссылок все в столбце в отдельных строках, я должен открыть каждый из них, чтобы увидеть, если ссылка работает, но это скучно и утомительно, как я должен ждать иногда excel, чтобы догнать я бы гораздо лучше оставить его делать 100 в то время как я делаю другие вещи
3131
KompSub 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
Если вы автоматизируете Internet Explorer, вы можете быть в состоянии распечатать браузер
окна из Excel. Необходимо установить ссылку на Microsoft
Управление Интернетом.
Вот пример:
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
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
