VBA Application.GetOpenFilename

[Beck, Alwin]

Hallo,
in meinem Eintrag "VBA:Sheets bennenen" konnte ich eine Lösung
für mein Problem finden.
Weiter stellt sich bei mir nun ein Problem mit Application.GetOpenFilename
:

Der User wählt über diese Mothode eine Datei aus (die Auswahl steht
dann in der Variable Datei) jedoch steht hier nun der komplette Pfad +
Dateiname.
Für weitere Anforderungen innerhalb meines VBA-Moduls benötige ich jedoch
nur die Datei OHNE den Pfad. Wie kann ich diese nun ermitteln ?

Datei = Application _
.GetOpenFilename("Produktionsvorgang (*.csv), *.csv")


Danke.
Gruß
Albe

[stefan onken]

Post by Beck, Alwin
Hallo,
in meinem Eintrag "VBA:Sheets bennenen" konnte ich eine Lösung
für mein Problem finden.
Weiter stellt sich bei mir nun ein Problem mit  Application.GetOpenFilename
Der User wählt über diese Mothode eine Datei aus (die Auswahl steht
dann in der Variable Datei) jedoch steht hier nun der komplette Pfad +
Dateiname.
Für weitere Anforderungen innerhalb meines VBA-Moduls benötige ich jedoch
nur die Datei OHNE den Pfad. Wie kann ich diese nun ermitteln ?
Datei = Application _
     .GetOpenFilename("Produktionsvorgang  (*.csv), *.csv")
Danke.
Gruß
Albe

hallo Albe,

mit datei =Dir(datei)
allerdings solltest du vorher ein klicken auf Abbrechen im Dialog
abfangen, zB
If datei ="Falsch" Then Exit Sub

Gruß
stefan

[Beck, Alwin]

Post by Beck, Alwin
Hallo,
in meinem Eintrag "VBA:Sheets bennenen" konnte ich eine Lösung
für mein Problem finden.
Weiter stellt sich bei mir nun ein Problem mit
Application.GetOpenFilename
Der User wählt über diese Mothode eine Datei aus (die Auswahl steht
dann in der Variable Datei) jedoch steht hier nun der komplette Pfad +
Dateiname.
Für weitere Anforderungen innerhalb meines VBA-Moduls benötige ich jedoch
nur die Datei OHNE den Pfad. Wie kann ich diese nun ermitteln ?
Datei = Application _
.GetOpenFilename("Produktionsvorgang (*.csv), *.csv")
Danke.
Gruß
Albe

hallo Albe,

mit datei =Dir(datei)
allerdings solltest du vorher ein klicken auf Abbrechen im Dialog
abfangen, zB
If datei ="Falsch" Then Exit Sub

Gruß
stefan

Hallo Stefan,

danke - das war die Lösung. Die IF Bedingung hatte ich bereits
eingebaut.