Makro zum Öffnen von Excel-Hyperlinks

7744
admintech

Ich würde gerne wissen, ob mir jemand helfen kann, ein Makro zu öffnen, um eine Liste mit Hyperlinks zu öffnen.

Ich habe eine Liste von etwa 600 Hyperlinks in einer Spalte in separaten Zeilen. Ich muss jeden öffnen, um zu sehen, ob der Link funktioniert. Trotzdem ist es langweilig und langweilig, da ich manchmal auf Excel warten muss, um mich einzuholen lass es lieber 100 auf einmal tun, während ich andere Dinge tue

1
Für jede Lösung, die Sie finden, gibt es ein überraschend merkwürdiges Feature in Office, das Sie möglicherweise berücksichtigen müssen: Es verwendet zunächst eine Internet Explorer-Komponente (identifiziert sich jedoch nicht selbst als Internet Explorer), um festzustellen, ob die URL, auf die Sie klicken, gültig ist. Danach übergibt es * die resultierende URL * an den Standardbrowser (oder * nicht *, wenn die Website aus irgendeinem Grund den Benutzeragenten "Microsoft Office Existence Discovery" blockiert). Details finden Sie unter http://superuser.com/questions/41935/clicking-hyperlinks-in-email-messages-becomes-painfully-slow/42237#42237 Arjan vor 15 Jahren 1

2 Antworten auf die Frage

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

Quelle

0
joe

Wenn Sie Internet Explorer automatisieren, können Sie möglicherweise das Browserfenster in Excel drucken. Sie müssen einen Verweis auf Microsoft Internet Controls festlegen.
Hier ist ein Beispiel:

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

Quelle

Das funktioniert nicht, der Bereich liegt zwischen D237 und D337 admintech vor 15 Jahren 0

Verwandte Probleme