Opslaan in zelfde map bronbestand

[Tweety1]

Hoe kan ik deze macro aanpassen zodat de file wordt opgeslagen in de zelfde map van het bronbestand.

Sub DoTheExport()
    ExportToTextFile FName:="C:\Test.txt", Sep:=";", _
       SelectionOnly:=False, AppendData:=True
End Sub

 

[edmoor]

Zo doe je dat:

Sub DoTheExport()
    ExportToTextFile FName:= ThisWorkbook.Path & "\Test.txt", Sep:=";", _
       SelectionOnly:=False, AppendData:=True
End Sub

 

[Tweety1]

Thanks