IE file Upload automatisieren
12.10.2013 00:21:21
Tobias
ich brauche dringend eure Hilfe. Ich bin jetzt schon mehrere Tage auf der Suche nach einer Lösung einen Bilderupload zu automatisieren.
Mein Ansatz:
Dim sURL As String
Dim ElementCol As IHTMLElementCollection
Dim link As HTMLAnchorElement
sURL = "http://www.trixum.de"
Set IE1 = New InternetExplorer
Set IE2 = Nothing
With IE1
.navigate sURL
.Visible = True
On Error GoTo Weiter1 'Anmeldung überspringen
.document.getElementById("auth-email").Value = "***@gmx.de"
.document.getElementById("auth-password").Value = "***"
.document.all("submit-auth").Click
Do
DoEvents
Loop Until .ReadyState = 3
Do
DoEvents
Loop Until .ReadyState = 4
Weiter1:
End With
Do
DoEvents
Loop Until IE1.ReadyState = 4
IE1.document.all("uploadify").Click
Danach öffnet sich ein Flash Uploadfenster in dem man Dateien auswählen kann. Dieses würde ich nun gerne steuern und über variabelen befüllen.Problem: Das Fenster blockiert das VBA. Die nächste Zeile im Code wird erst nach manuellen schließen des Fensters wieder weiter ausgeführt.
Gibt es eine Möglichkeit ohne das Fenster die Datei hochzuladen oder kann man das Verhalten dieses Fensters irgendwie beinflussen? Ich bin echt für jede Hilfe dankbar.
Hier noch der Quellcode:
input id="uploadify" width="150" type="file" height="30" name="uploadify" style="display: none;" _
object id="uploadifyUploader" width="150" height="30" type="application/x-shockwave-flash" data= _
"http://www.trixum.de/Resources/Flash/uploadify.swf" style="visibility: visible;"