Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1504to1508
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
Inhaltsverzeichnis

relativer Laufwerkbuchstabe

relativer Laufwerkbuchstabe
29.07.2016 08:45:19
Tobias
Hi,
Ich würde gerne meinen Bezug auf Quelldateien Relativieren.
Aktuelle habe ich einen Pfad wie folgt:
H:\ordner1\ordner2\ordner3\ordner4\ordner5\datei.xltx
Gut wäre, wenn ich zumindest den Laufwerkbuchstaben ausschließen könnte, dass VBA die Datei auch ohne diese Angabe findet oder auch aus der Datei mit dem Makro ausliest.
Noch besser wäre, wenn es die ersten drei Ordner ebenfalls relativiert, allerdings kann ich mir vorstellen, dass das Makro dann zu lange suchen müsste und der vorhandene Code schluckt schon elendig viel Rechenleistung.
Vielen Dank!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: relativer Laufwerkbuchstabe
29.07.2016 12:06:05
Tobias
Ich hab die Geschichte jetzt etwas überbrückt:
lw = Left(ThisWorkbook.FullName, 1)
Workbooks.Open lw & ":\ordner1\ordner2\ordner3\ordner4\ordner5\datei.xltx

Funktionieren tut es
AW: relativer Laufwerkbuchstabe
29.07.2016 14:54:25
Michael
Hi,
das kannst Du erweitern mit instrrev:
Sub test()
Dim i As Long, p As Long, lw As String, teil As String
'lw = ThisWorkbook.FullName
lw = "C:\ordner1\ordner2\ordner3\ordner4\ordner5\datei.xltx"
teil = lw
For i = 1 To 2 ' to n wie benötigt
p = InStrRev(teil, "\")
teil = Left(teil, p - 1)
Next
Debug.Print teil
' Ausgabe: C:\ordner1\ordner2\ordner3\ordner4
' Bitte beachten: \ muß dann wieder angehängt werden...
'Workbooks.Open lw & "C:\ordner1\ordner2\ordner3\ordner4\ordner5\datei.xltx"
End Sub
Schöne Grüße,
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige