Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Redirect-Adressen aus Internetseiten auslesen

Gruppe

Internet

Problem

Die in den Internetdateien aus Spalte A festgelegten Redirect-Adressen sollen in Spalte B eingetragen werden.

Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: DieseArbeitsmappe

Sub MessageAbrufen()
   Dim IE As Object
   Dim iRow As Integer
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      Set IE = CreateObject("InternetExplorer.Application")
      IE.Visible = True
      IE.Navigate Cells(iRow, 1).Value
      Application.Wait Now + TimeSerial(0, 0, 2)
      SendKeys "{tab}^c%{F4}"
      Application.Wait Now + TimeSerial(0, 0, 2)
      Cells(iRow, 2).Select
      ActiveSheet.Paste
      Set IE = Nothing
      iRow = iRow + 1
   Loop
End Sub