ich komme an folgendem Punkt nicht weiter. Es soll ein Bild einer bereits geöffneten Website mittels VBA in excel übertragen werden (evtl auch gepasted). Nun habe ich hierbei zwei Probleme:
1. Es können mehrere Browser Fenster offen sein. Fragmente des
2. Der Dateiname des Bildes ist immer ähnlich (enthält bsp.-weise rnd zahlen: " 30234282_picture798.jpg), aber nie gleich. Auch hier muss ein Fragment des Dateinamen im Script definierbar sein (*_picture*.jpg)
3. Ich finde überall nur die Funktion CreateObject("InternetExplorer.Application") aber nicht GetObject("InternetExplorer.Application")
Mein jetziges Script sieht bis jetzt so aus:
Macht aber eigentlich was ganz anderes :-)))
Sub test()
Dim appIE, Inhalt As String, Bild, B, posKL, posAZ, pos, Anz
Dim Endg, E
Endg = Array(".gif", ".jpg")
Const Url As String = "https://www.google.de"
Set appIE = CreateObject("InternetExplorer.Application")
With appIE
.Visible = True
.Navigate Url
While .Busy
Wend
Inhalt = .Document.DocumentElement.innerhtml
appIE.Quit
Columns(1).ClearContents
For E = 0 To UBound(Endg)
Bild = Split(Inhalt, Endg(E))
For B = 0 To UBound(Bild)
If Right(Bild(B), 1) ">" Then
posKL = InStrRev(Bild(B), "(") 'Klammer
posAZ = InStrRev(Bild(B), Chr(34)) 'Anführungszeichen
pos = IIf(posKL > posAZ, posKL, posAZ)
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Anz + 1, 1), Address:= _
Url & Mid(Bild(B), pos + 1) & Endg(E), TextToDisplay:= _
Url & Mid(Bild(B), pos + 1) & Endg(E)
Anz = Anz + 1
End If
Next B
Next E
End With
Set appIE = Nothing
End Sub
Kann mir da jemand helfen?
Oder ist das gar nicht möglich?
Danke
Andy