GetOpenFilename öffnet die Datei nicht
24.08.2007 16:40:00
Andre
ich bin neu hier im Forum und mit Excel eigentlich ganz gut doch in VBA bin ich noch Anfänger. Ich suche mir meine Bestandteile zusammen und pflaster mir so meine Makros.
Jetzt habe ich folgendes Problem:
Ich muss den Inhalt aus hunderten Dateien zusammensuchen und in einer Datei zusammenpacken. Ich dachte mir, dass ich einen Makro mache, der immer eine Datei öffnet und dann die entsprechenden Zeilen und Spalten kopiert und in das eine Sheet einträgt. Die Zeilen und Spalten sind immer die selben, so dass ich mir mit dem Makro schon einiges an Zeit sparen kan. Die Dateien heißen nur total unterschiedlich. Ich dachte mir, dass ich mit dem Befehl GetOpenFilename die jeweilige Datei suche und dann öffnen kann.
ChDrive ("C")
ChDir ("C:\MyFiles")
FileName = Application.GetOpenFilename("Excel-Dateien (*.xls), *.xls", , "Zu lesendes Dokument")
Es erscheint auch die Auswahl und ich doppelklicke auf das File, nur es passiert nichts. Die Dialogbox geht wieder zu, doch die Datei öffnet sich nicht?
Kann mir jemand helfen?
Danke
Andre