PDA

Vollständige Version anzeigen : Weiter nach Datei öffnen


Cocolores100
18.02.2008, 22:06
Ich möchte eine Datei mit einer Dialog-Box öffnen:

Set sh = CreateObject("shell.Application")
Set Datei = Application.FileDialog(msoFileDialogFilePicker)
With Datei
.Filters.Add "FM-IBV-Dateien", "*.old", 1
.AllowMultiSelect = False
.Title = Kopftext
.InitialFileName = Pfad
.ButtonName = "Attacke!"
.InitialView = msoFileDialogViewList
If .Show = -1 Then sh.Open .SelectedItems(1)
End With

Danach soll VBA in der neuen Datei arbeiten. Ich kann die neu geöffnete Datei aber nicht aktivieren, da der Code direkt weiterläuft und nicht wartet, bis die Datei geöffnet ist....
wo liegt da mein Fehler?

jinx
04.05.2008, 08:53
<font size="2" face="Century Gothic">Moin, Cocolores100,

dem Vorgehen eine Pause "spendieren" bzw. dies in einer Fehlerbehandlung einbauen, bevor der Code fortgesetzt wird.</font>