IE steuern über aktive Zelle
27.06.2022 13:19:15
thomas
benötige ein Makro der mir aus Excel denn Internet Explorer steuert. Ich hab es bereits soweit hinbekommen dass ich die richtige Seite öffnen kann (URL ist gekürzt). Jetzt fehlt mir noch, dass die Nummer in der aktiven Zelle (sind immer 6 Zahlen) am Ende der URL mit eingetragen wird.
Beispiel:
In der aktiven Zelle steht 123456, dann soll die URL so angesteuert werden --> https:/=view&vnr=123456
Das ist der Code zum öffnen vom Internet Explorer
Danke euch schonmal für die Mühe.
VG
Thomas
Sub Automatisierung_IE_Webpage_Laden()
'eine Webpage in IE laden
Dim i As Long
Dim URL As String
Dim IE As Object
Dim objElement As Object
Dim objCollection As Object
'InternetExplorer Objekt erstellen
Set IE = CreateObject("InternetExplorer.Application")
'IE.Visible = True macht IE sichtbar
'IE.Visible = False lässt IE im Hintergrund laufen
IE.Visible = True
'URL definieren
URL = "https:/=view&vnr="
'zur URL navigieren
IE.Navigate URL
'Statusbalken zeigt dem Nutzer den Ladestatus an
Application.StatusBar = URL & " lädt. Bitte warten..."
'Webseite geladen
Application.StatusBar = URL & " geladen"
'IE entladen (vom Arbeitsspeicher entfernen)
Set IE = Nothing
Set objElement = Nothing
Set objCollection = Nothing
End Sub