Hallo zusammen,

ich möchte eine Textdatei, die ich über ein Makro aus einer Excel-Datei generiere, im selben Ordner speichern. Leider weiss ich nicht, wie ich den Pfad auslesen kann um ihn meinem neuen Dateinamen voranzustellen. Der neue Dateiname steht in der Zelle J1.
Mit ActiveSheet.Parent.Name bekomme ich nur Pfad inclusive Dateinamen.

soweit bin ich bisher:
Pfad = ?? (ActiveSheet.Parent.Name)

Dateiname = ActiveSheet.[J1]
ActiveWorkbook.SaveAs Filename:=Dateiname, _
FileFormat:=xlText, CreateBackup:=False

Wer weiss Bescheid?
Danke für eine Antwort
Gruß
Andreas