Hallo und guten Morgen,
konnte mir schon einiges aus den Beiträgen herausnehmen, meine jetziges Problem habe ich aber leider nicht gefunden. Ich benötige die Angabe des aktuellen Ordners, in dem sich die geöffnete Datei befindet. Problem ist, dass eine Vorlage geöffnet wurde und das daraus resultierende Dokument keine Pfadangabe besitzt.
Wie komme ich elegant an die Pfadangabe, da in dem gleichen Ordner eine txt-Datei steht, die es im Hintergrund zu öffnen gilt.
Hier schon mal meine vorhandene Codierung
'Textdatei auswählen/öffnen
Set oDialog = Application.FileDialog(msoFileDialogOpen)
With oDialog
.Title = sTITEL
.InitialFileName = ActiveWorkbook.Path
.Filters.Add "Dateien ", "*.txt; *.txt; *.txt", 1
If .Show = -1 Then
sPfad = .SelectedItems(1)
Else
MsgBox "Keine Datei ausgewählt"
Exit Sub 'bei Produktivsetzung auskommentieren
Application.Quit
End If
End With
Vielen Dank für eure Hilfe
Ranft M.