Hallo Nadine!
Nein. Damit bekommst du die Namen deiner Datei, des Blattes - du brauchst ja aber den Namen der Datei in die du schreibst. Die Funktion GetSaveAsFilename speichert übrigens nicht die Datei. Damit fragst du bei deinem Anwender eigentlich nur den Namen ab, unter dem gespeichert wird. Mehr macht es auch nicht. Übringes speichert dein Programm nicht direkt. Es öffnet nur die Datei und schreibt in diese rein.
Also Alternativ wäre du ersetz die folgende Zeile bei dir:
FName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
wie folgt:
FName = InputBox("Bitte Dateinamen eingeben!")
FName = FName & ".csv"
Der Einfachheithalber hab ich erstmal die Abrage ob was eingegeben wurde gespart. Problem dabei ist, das man sich verschreiben kann.
Ich hätte noch eine alternative, evtl mit der MEthode GetOpenFilename () arbeiten. Die sollte auch auf dem MAC laufen. Da kannst du dir die Dateiaussuchen, das geht auch automatisch und man kann sich eigentlich nicht verschreiben.
FName = Application.GetOpenFilename()
Also probier mal die Zeile dafür einzusetzen. Würde ich sogar bevorzugen. Habs nur an zweiter Stelle, da ich letzten mit der InputBox angefangen habe.
Gruß
|