Microsoft Excel

Herbers Excel/VBA-Archiv

Fenster "Öffnen" ändern | Herbers Excel-Forum


Betrifft: Fenster "Öffnen" ändern von: Georg
Geschrieben am: 17.11.2009 00:05:22

Hallo liebes Forum.

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
Danke schon im Voraus für die Hilfe.

Gruß Georg

  

Betrifft: AW: Fenster "Öffnen" ändern von: Georg
Geschrieben am: 17.11.2009 17:53:46

Hallo Forum,

Vielleicht hab ich die Frage schlecht formuliert?

Eventuell komme ich über einen anderen Weg zum Ziel?
Wie kann ich eine XLS aus dem Ordner http://members.... öffnen, ohne das eine Dialog Fenster erscheint?

Gruß Georg


  

Betrifft: neue Idee von: Georg
Geschrieben am: 19.11.2009 21:02:03

Hallo Forum,

Dachte mir, vielleicht das so zu lösen.
Ein neues Workbook öffnen, von dort aus eine userform öffnen und die http://datei im hintergrund von wb1 öffnen.

Könnte das Klappen?

Grüsse Georg


Beiträge aus den Excel-Beispielen zum Thema "Fenster "Öffnen" ändern"