Daten aus Download-Datei übertragen
Gordon
ich möchte gerne eine CSV-Datei, die im Internet liegt, öffnen und die Daten aus der Datei in meine Programm-Exceldatei übernehmen. Der Code schaut derzeit so aus:
Sub test()
Dim objExplorer
Set objExplorer = CreateObject("InternetExplorer.Application")
With objExplorer
.Navigate ("DER LINK")
.StatusBar = False
.MenuBar = False
.Toolbar = False
.Visible = True
.Resizable = True
.Width = 800
.Height = 600
End With
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "%f", True
objExplorer.Quit
Set objExplorer = Nothing
ThisWorkbook.Sheets(1).Range("A:I").Value = ActiveWorkbook.Sheets(1).Range("A:I").Value
End Sub
Gibt es da Wege diess zu umgehen? Hatte es mit 'Application.Wait' versucht, aber leider läuft dann die Zeit runter, die Fehlermeldung kommt und dann öffnet die Datei.
Hat jemand eine Idee, wie das Problem zu behandeln ist?
Gruß + Danke
Gordon
Anzeige