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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 43875
Url: https://administrator.de/contentid/43875
Printed on: April 27, 2024 at 05:04 o'clock
5 Comments
Latest comment
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.