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
Leider bekomme ich immer eine Fehlermeldung....anscheinend ist es so, dass erst der komplette Code ausgeführt wird, bevor die Datei öffnet. Kann das sein?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