Download IE speichern unter per VBA
05.07.2018 11:15:00
Monal
ich stehe vor einem Problem das ich seit zwei Tagen einfach nicht lösen kann :( vielleicht kann mir einer von euch weiterhelfen?
Kurze Erklärung:
Mit folgendem VBA Code öffne ich eine Internetseite
Melde mich mit den entsprechenden Daten an (Benutzer und Passwort) lade dann den benötigten Filter und klicke dann auf Datei in Eckel exportieren. Nun wird die Tabele aufgebaut. Es erscheint ein weiteres Fenster in dem Steht Download starten. Damit denke ich landes es in einem "Zwischenspeicher" ?
Auf jeden Fall kommt ja dann eine Melden "Möchten Sie die Datei von xy speichern oder öffnen?"
Hier möchte ich ihm gerne sagen er soll sie speichern unter dem von mir vorgegebenen Pfad. Er speichert aber leider immer auf C: im Ordner Downloads.
Kann mir jemand helfen damit er es speichert wo ich es gerne hätte?
Und falls fragen kommen, nein, mit uploadFile geht das nicht. Es handelt sich hierbei um eine Interne Datenbank die Online läuft.
Sub MMDB_Öffnen_einloggen_Daten_exportieren()
Dim IEApp As Object
Dim IEDocument As Object
folder = "S:\E000_xxxxxxxxxx"
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "https://xxxx/xxxx"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementById("loginForm:btn-switch-user-pass").Click
Do: Loop Until IEDocument.readyState = "complete"
Application.Wait Now + TimeSerial(0, 0, 3)
IEDocument.getElementById("loginForm:username").Value = "xxx"
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementById("loginForm:password").Value = "xxx"
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementById("loginForm:btn-login").Click
Do: Loop Until IEDocument.readyState = "complete"
Application.Wait Now + TimeSerial(0, 0, 3)
IEDocument.getElementById("transducerOverviewButtonForm:extendedSearch_selectSearch_4").Click
Do: Loop Until IEDocument.readyState = "complete"
Application.Wait Now + TimeSerial(0, 0, 3)
IEDocument.getElementById("transducerOverviewButtonForm:j_idt53").Click
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementById("transducerExport:entityExportForm:buttonExport").Click
Application.Wait Now + TimeSerial(0, 0, 20)
Do: Loop Until IEDocument.readyState = "complete"
IEDocument.getElementById("transducerExport:exportDownloadForm:buttonDownload").Click
Application.Wait (Now + TimeValue("0:00:20"))
'Alt S - Save File
Application.SendKeys "%S", True
'Alt n - Enter filename
Application.SendKeys "%n", True
'Application.SendKeys _ (Folder & "1.csv{ENTER}"), True
Application.Wait Now + TimeValue("00:00:05") '5 Sekunden warten
IEApp.Quit
End Sub
Anzeige