Office: Datei öffnen dialog -> bei abbrechen Datei schließen!

Hallo zusammen!

Ich habe mal wieder ein VBA-Problem, bei dem ich nicht weiterkomme. Ich benutze einen Datei-Öffnen-Dialog um eine CSV-Datei (zwecks weiterer Bearbeitung durch ein Makro) einzulesen. Wenn der Benutzer auf Abbrechen klickt würde es natürlich unweigerlich zu einer Fehlermeldung kommen, da das Makro versuchen würde ohne die nötigen Daten durchzulaufen.

Daher dachte ich mir, daß ich eine Abfrage einfüge - so, daß wenn der Abbrechen Button gedrückt wird, eine MessageBox kommt und die Datei darauf hin einfach geschlossen wird. Das klappt aber irgendwie nicht, denn trotzdem durchläuft er das Makro weiter und gibt dann irgendwann einen Fehler (Typen unverträglich). Ich dachte, daß wenn ich sage, daß er die Datei schließen soll, das Makro an der Stelle auch abgebrochen wird!?

So sieht das ganze zur Zeit aus:

Code:

Wie gesagt, nach den ... geht's dann erst richtig los, also der Import der im Dialog ausgewählten Datei.

Weiß jemand, warum das ganze nicht funzt? Ich wollte schon ein GoTo setzen, welches eine Marke am Ende des Moduls aufruft - diese Marke befindet sich aber in einer anderen Sub. Ist es möglich aus einer Sub die Textmarke in einer anderen aufzurufen?

Fragen über Fragen... *grins

Grüße

Mirko

:)

 

Hallo, Mirko,

ist Importdaten als Variable vom Typ Variant deklariert?

Gruß
LS

 

Hallo Lumpensammler!

Nein, ehrlich gesagt war Importdaten bisher als String definiert. Aber auch als Variant macht es keinen Unterschied, in Bezug darauf, dass er eben nicht nur die Datei schließt, sondern trotzdem das rechtliche Makro noch bis zum Ende durchläuft.

Daher nochmal meine Frage, ist es möglich einen GoTo Verweis auf eine Textmarke in einer anderen Sub, also einem anderen Makro, einzubauen? Oder gibt es einen Befehl, der sagt "Stoppe durchlauf des Makros"??

 

Hallo, Mirko,

es macht einen Unterschied aus, ob ein String (der Name der Datei mitsamt Pfad) oder ein boolescher Wert in der Variable gespeichert wird, weil Du auf einen booleschen Wert vergleichst. *wink.gif*

Code:

Da bedarf es keines weiteren Befehls wie End.

Gruß
LS

 

Ok, da hast Du natürlich Recht. Die MsgBox "Aktiv" wird wenn man abbrechen drückt nicht mehr angezeigt. Allerdings wird komischerweise immer sofort die komplette Anwendung geschlossen - nicht nur das aktive Workbook. Insbesondere wenn man noch andere Dateien in Excel geöffnet hat sehr ärgerlich.

Woran könnte das liegen? Habe am Ende das Moduls (aber einer anderen Sub) ein Application.Quit stehen. Aber das sollte er doch eigentlich garnicht mehr durchlaufen!?

 

Ok, wenn ich das Application.Quit im anderen Makro auch durch ein ActiveWorkbook.Close ersetze, dann funzt alles soweit.

Jetzt gibt es aber ein anderes Problem. Und zwar, habe ich ein Makro im Modul stehen, welches am Schluß den Benutzer fragt, ob er die CSV-Datei speichern soll oder nicht. Ja und Nein sind mit 2 GoTo-Abfragen verbunden, so dass bei Ja gespeichert wird und bei Nein wird dieser Bereich einfach übersprungen.

Jetzt, wo ich aber statt Application.Quit am Ende ActiveWorkbook.Close stehen habe, erscheint meien eingebaute Speicherabfrage plötzlich 2mal hintereinander!! Warum das denn? So sieht das Makro aus:

Code:

Also wenn ich bei der Frage "Möchten Sie Ihre Änderungen..." Nein drücke, erscheint die selbe Frage nochmal, dann wieder auf nein, Datei wird geschlossen.

Bei Ja, wird "Die Datei XY wurde gespeichert!" angezeigt, nochmal der Dialog "Möchten Sie..." bei nochmaligem Ja wieder "Die Datei XY..." und dann wird die Datei erst geschlossen.

Warum zur Hölle?? *grins

 

Hallo, Mirko,

ich habe mir den Code angesehen, aber da Du nicht alle relevanten Angaben vorgibst, werde ich keine weitere Zeit für die Suche einer möglichen Fehlerquelle opfern. Fehlende Operanden:

Code:

Fehlende Funktion:

Code:

Gruß
LS

 

Sorry, hab ich in der Tat vergessen. Folgende Variablen & Konstanten sind im Modul ganz oben (also global für alle Subs) definiert:

Code:

Und hier noch die fehlende Funktion:

Code:

 

Hi,

was mir mal auf die Schnelle aufgefallen ist:

Wenn Du sowas wier Sprungmarken definierst läuft der code anch der Sprungmarke einfach wieter. Also Du musst am Ende dzw vor der nächsten Sprungmarke ein "Exit Sub" setzen. Sonst wird der nächste Codeteil auch verarbeitet. Das gilt dann auch für den Teil nach der If-Abfrage

Also z.B. vor dem
Code:

kommt dann die Zeile:

Code:

...und vor "Endemitspeichern:" natürlich entsprechend....

Hoffentlich war das verständlich....

 

Moin, elpraktikante,

die Sprungmarken sind meiner Meinung nach überflüssig und können entweder in die If-Bedingung eingebaut werden, wenn nur eine jeweilig gelten soll, oder die If-Abfrage wird auf vbYes für die erste Sprungmarke umgestellt und die zweite Sprungmarke kann entfallen, der Code steht direkt hinter der If-Bedingung...

 

Hi jinx,

...das ist natürlich die beste Variante - zumal der alte "Spaghetti-Code" eh nicht überzeugend ist... *wink.gif*

 

Hallo Hotte & jinx!

Danke für Eure Tips - stimmt, das war wirklich überflüssig. Der Code sieht jetzt so aus:

Code:

Das Problem ist aber leider immer noch da - völlig unverändert *bawling

EDIT: Hab gerade auch nochmal die Geschichte mit dem Exit Sub probiert, ebenfalls keine Veränderung. Das KANN doch garnicht sein *smashing

 

OK, Fehler gefunden. Und jetzt bitte nicht schlagen, weil ich das hier unterschlagen hab:

Code:

So ruft er Export natürlich zweimal auf. Einmal wenn ich die Tabelle manuell schließe, und dann durch das ActiveWorkbook.Close noch einmal. Also kann ich das ActiveWorkbook.Close am Ende ja einfach rausnehmen.

Da gibts aber noch eine Sache. Und zwar möchte ich ja die Datei schließen lassen, wenn der Benutzer am Anfang beim File-Dialog Abbrechen drückt (siehe die ersten Beiträge in diesem Thread). Nun wird beim Befehl ActiveWorkbook.Close natürlich auch wieder das Sub Export aufgerufen - was aber natürlich in dem Fall garnicht passieren soll (gibt ja nix zu exportieren).

Kann ich das das "Workbook_BeforeClose" in dem Fall auch umgehen? Denn generell soll es ja bestehen bleiben, damit das Makro nachdem der Benutzer mit bearbeiten fertig ist und die Datei schließen will automatisch das Export-Makro aufgerufen wird. Wenn er aber ganz am Anfang nur auf abbrechen klickt eben nicht.

 

OK, Problem schon gelöst. Hab einfach den Inhalt der Exportfunktion hierin eingeklammert:

Code:

So wird das ganze nicht ausgeführt, wenn kein Dateiname eingelesen wurde. Eine klitzekleine Sache gibt's jetzt aber noch. Wenn ich das ActiveWorkbook.Close am Ende wegnehme, steht ja nur noch folgendes da:

Code:

Hilft aber nix, Excel fragt trotzdem, ob die Datei gespeichert werden soll. Soll aber nicht (denn die *.xls Datei soll ja eben gerade nicht gespeichert werden, da sie eigentlich nur das Makro enthält und den Mantel für die CSV darstellt). Irgend 'ne Idee wie ich die Meldung noch wegbekomme?

 

Sorry für meinen Monolog hier *grins

Hab Excel jetzt einfach mal ein bissel verarscht. Das ActiveWorkbook.Close am Ende hab ich wieder eingefügt (verhindert interessanterweise dann auch wieder die Excel-Speicherabfrage). Des weiteren hab ich vor das "End If" der "If Not Dateiname = Empty Then"-Anweisung einfach das gesetzt:

Dateiname = Empty

So wird das Exportmakro jetzt zwar wieder doppelt geladen, aber es ist sichergestellt, daß der Code nur einmal ausgeführt wird.

Also, das wär's - danke noch mal an alle für Eure Hilfe. Habe fertig.

Grüße

Mirko