hummel85
Goto Top

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

Content-ID: 43875

Url: https://administrator.de/forum/open-speichersort-43875.html

Ausgedruckt am: 23.12.2024 um 04:12 Uhr

wakko
wakko 07.11.2006 um 11:14:41 Uhr
Goto Top
Moin,
den Pfad der Excel-Datei bekommst du durch ActiveWorkbook.path

Gruß,
Henrik
Hummel85
Hummel85 07.11.2006 um 11:38:09 Uhr
Goto Top
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
bastla
bastla 07.11.2006 um 11:44:22 Uhr
Goto Top
Hallo Sebastian!

datei = ActiveWorkbook.path & "\test.txt"  

HTH
bastla
wakko
wakko 07.11.2006 um 11:44:30 Uhr
Goto Top
datei = ActiveWorkbook.path & "\test.txt"

MfG

sorry batsla, war über Kreuz
Hummel85
Hummel85 07.11.2006 um 12:24:53 Uhr
Goto Top
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.