Fenster "Öffnen" ändern
Georg
Ich habe noch immer folgendes "Dorn im Auge".
Wenn ich mit folgendem Makro die Datei online abrufe, dann öffnet sich ein Fenster mit dem genauem Pfad.
In diesem Fenster möchte ich am liebsten den Pfad wegblenden, und einfach ein Fenster haben, wo drin steht "Bitte warten, die Datei wird geladen"
Hier das Makro:
Sub onlinedateiholen()
Application.DisplayAlerts = False
'Application.WindowState = xlMinimized '--minimiert das Fenster
Application.ShowWindowsInTaskbar = False '--deaktiviert die Taskbar
pfad = "http://members.aon.at"
wkb1 = "/datei.xls"
Workbooks.Open (pfad & wkb1)
Set wks1 = ActiveWorkbook.Worksheets(1)
'....hier werden die daten geholt
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Application.ShowWindowsInTaskbar = True
End Sub
Gruß Georg
Anzeige