Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

relativer Pfad per VBA

relativer Pfad per VBA
09.03.2004 23:12:28
Jürg
Hallo
ich suche seit Stunden im Internet und Büchern eine Lösung für folgende Aufgabenstellung :
D:\Test\Programm\Test.xls
D:\Test\Steuerung\Zins.ini
Da diese Dateien auf dem Server liegen und die Laufwerke dauernd umbenannt werden, möchte ich die Datei "Zins.ini" mit einem relativen Pfad aufrufen. Also in abhängikeit vom Pfad des Files "Test.xls"
Ich stelle mir das so etwa vor :
strPfad = D:\Test\Programm\Test.xls
Open strPfad\..\Steuerung\Zins.ini For Input As #1
Daten auslesen
Close #1

aber irgendwie funktioniert das nicht
kann mir jemand sagen wo mein Überlegungsfehler ist ?
Gruss Jürg

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: relativer Pfad per VBA
09.03.2004 23:16:48
Volker Croll
Hallo Jürg,
schon mal so probiert?
Open strPfad & "\..\Steuerung\Zins.ini" For Input As #1

Gruss
Volker Croll
www.crolltools.de
Noch "richtiger" waere ...
09.03.2004 23:34:39
Volker Croll
Hallo Jürg,
... wenn ich mir Dein Beispiel nochmal genauer anschaue:
strPfad = "D:\Test"
Open strPfad & "\Steuerung\Zins.ini" For Input As #1
Mir waren beim ersten Anschauen einfach nur die fehlenden Anfuehrungszeichen ins Auge gesprungen.

Gruss
Volker Croll
www.crolltools.de
Anzeige
AW: Noch "richtiger" waere ...
09.03.2004 23:56:42
Jürg
Hallo Volker
Vielen Dank für Deine Hilfe. Habe sie noch nicht ausprobiert, werde ich aber morgen tun.
Die erste Version währe mir lieber, da ich hier den aktuellen Ordner, in welchem das Programm gespeichert ist nicht auswerten muss.
Gruss Jürg
AW: relativer Pfad per VBA - Lösung
10.03.2004 08:49:28
Jürg
Hallo Volker
vielen Dank für Deine Anregungen. Ich habe dadurch meinen Fehler gefunden.
Ich haben aus dem FullFileName vergessen den reinen Pfad zu extrahieren.
Gemäss folgendem Beispiel funktioniert es jetzt:

Sub test()
Dim VerzPfad As String
Dim ProgPfad As String
Dim DocPfad As String
'Programm-Pfad =  D:\Test\Programm\Test.doc
'TextFile-Pfad      =  D:\Test\Ini\Test.txt
DocPfad = "D:\Test\Programm\Test.doc"
'zuerst den reinen Pfad extrahieren
ProgPfad = Left(DocPfad, Len(DocPfad) - Len(Dir(DocPfad)))
'Pfad des übergeordneten Verzeichnisses bestimmen   D:\Test\
VerzPfad = strProgPfad & "..\"
TxtFile = VerzPfad & "INI-Files\Test.txt"
Open TxtFile For Input As #1
'Einlesen der Daten
Close #1
End Sub


Gruss Jürg
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige