VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Redirect-Adressen aus Internetseiten auslesen

Gruppe

Extern

Bereich

Internet

Thema

Redirect-Adressen aus Internetseiten auslesen

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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Internet