Hallo!
Scheinbar finde ich den Stolperstein nicht. Ich habe folgenden Beispielcode:
Dim objIExplorer As Object
Dim Adresse As String
Dim i As Integer
Set objIExplorer = CreateObject("InternetExplorer.Application")
With objIExplorer
.Visible = False
.Navigate "http://www.vba-forum.de"
Do While .Busy
DoEvents
Loop
.Visible = False
AppActivate Title:=ThisWorkbook.Windows(1).Caption, Wait:=True
DoEvents
Adresse = LocationURL
Cells(1, 1).Value = Adresse
.Visible = False
End With
Set objIExplorer = Nothing
Er schreibt mir aber die Adresse nicht in die Zelle. Was mache ich falsch?
Danke
Sven
|