Hallo zusammen,

bin gerade dabei, ein Excelmakro zu erstellen, welches mir im aktuellen Pfad eine Textdatei öffnet und diese dann umformatiert.
Meine Mappe heist
create_glossary.xls und befindet sich im gleichen Ordner wie die Textdatei.
In dieser befindet sich das Makro
Sub glossary_erstellen_NLS_LeoInspace_DLL()
.
Mit
Workbooks.OpenText Filename:="TUIgloss_ES.txt"
wird versucht die Textdatei zu öffnen. Es kommt allerdings die Meldung vom Visual Basic daß die Datei nicht gefunden werden kann.
Daraufhin habe ich den kompletten Pfad der Datei hingeschrieben, und schon gehts:
Workbooks.OpenText Filename:= _
"I:\1_AX\03_Projects\30_PLM\31_NLS_FOR\60_Tools\ExcelMakrosGlossary\temp\TUIgloss_DE.txt".

Nun habe ich probiert, den aktuellen Pfad mittels chdir (".") festzulegen. Da hat allerdings nicht funktioniert. Die Textdatei wird so nicht gefunden.
Auch mit curdir ("I") habe ich es probiert, es wird aber nicht immer der richtige Pfad ausgegeben.
Frage wäre, wie ermittle ich den Namen des Ordners, in dem sich die Arbeitsmappe an sich befindet.