5
Open Speichersort
Hallo,
ich bin gerade dabei mein Makro ein wenig zu verbessern.
Nun habe ich folgendes Problem.
Wie kann ich beim öffnen einer Textdatei zum schreiben sagen das er die Textdatei nicht unter ein bestimmten Pfad packt sondern parallel zur Exceldatei?
Was ich versucht habe war:
Open test.txt for Append As #1
close #1
doch bei diesem versuch wurde die Textdatei einfach unter Eigene Dateien gepackt.
Also eigentlich währe es auch möglich den Pfad und Dateinamen der Exceldatei auszulesen und das in einer variable zu speichern aber ich finde einfach nichts darüber.
Ich hoffe ihr könnt mir weiter helfen.
Gruß Sebastian
ich bin gerade dabei mein Makro ein wenig zu verbessern.
Nun habe ich folgendes Problem.
Wie kann ich beim öffnen einer Textdatei zum schreiben sagen das er die Textdatei nicht unter ein bestimmten Pfad packt sondern parallel zur Exceldatei?
Was ich versucht habe war:
Open test.txt for Append As #1
close #1
doch bei diesem versuch wurde die Textdatei einfach unter Eigene Dateien gepackt.
Also eigentlich währe es auch möglich den Pfad und Dateinamen der Exceldatei auszulesen und das in einer variable zu speichern aber ich finde einfach nichts darüber.
Ich hoffe ihr könnt mir weiter helfen.
Gruß Sebastian
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 43875
Url: https://administrator.de/contentid/43875
Ausgedruckt am: 22.11.2024 um 05:11 Uhr
5 Kommentare
Neuester Kommentar
Moin,
den Pfad der Excel-Datei bekommst du durch ActiveWorkbook.path
Gruß,
Henrik
den Pfad der Excel-Datei bekommst du durch ActiveWorkbook.path
Gruß,
Henrik
Danke für die antwort.
Und wie kann ich jetzt sagen das:
path = ActiveWorkbook.path
datei = ActiveWorkbook.path + \test.txt
Dies funtioniert nicht. ich habe es auch schon mit einem & versucht es klappt aber auch nicht.
Gruß Sebastian
Und wie kann ich jetzt sagen das:
path = ActiveWorkbook.path
datei = ActiveWorkbook.path + \test.txt
Dies funtioniert nicht. ich habe es auch schon mit einem & versucht es klappt aber auch nicht.
Gruß Sebastian
Hallo Sebastian!
HTH
bastla
datei = ActiveWorkbook.path & "\test.txt" HTH
bastla
datei = ActiveWorkbook.path & "\test.txt"
MfG
sorry batsla, war über Kreuz
MfG
sorry batsla, war über Kreuz
Danke für die antwort hat funtioniert. Ich frag mich zwar was ich falsch gemacht habe aber naja. Ich habe einiges vorher versucht auch mit "\test.txt" aber naja. Es funktioniert und ich bin froh das es so schnell gin.
Also danke euch beiden noch einmal.
Also danke euch beiden noch einmal.
