Office: (Office 2010) Dateipfad mit Platzhalter auslesen

Eridanus2001 · 25. Januar 2015

Entschuldige bitte, da habe ich mich unklar ausgedrückt.
Die Ordner bestehen bereits und der Pfad dorthin ist auch bekannt, aber einige Bestandteile ändern sich halt immer wieder.

Die Kombination aus Jahr, Monat und Auftragsnummer machen den Pfad einmalig. Im Jahr "2015" wird es nur einmal den Ordner "Januar" geben und im Ordner "Januar" gibt es nur einmal den Ordner mit der Auftragsnummer "111". Daher kann ich mir sicher sein, immer den richtigen Ordner zu erhalten, wenn diese Voraussetzungen zutreffen. Lediglich die Zusatztexte hinter "Januar" oder "111" werden verändert. Es wird aber keinen 2. Ordner mit dem gleichen Anfang geben.

daolix · 25. Januar 2015

Hallo
2 Wildcards in verschiedenen Ordnerebenen geht nicht. Du mußt erst die erste Wildcard mit Dir bestimmen, und mit der gefundenen die 2te, in etwa
Code:

Dim sPath As String
Dim sFullPath As String
dim sPath1 as string
dim sPath2 as string

sPath = "C:\Users\Corinna\Test Access-DB\"
sPath1 = Dir(sPath & Me.Test_Jahr_berechnet & "\" & Me.Test_Monat_berechnet & "*", vbDirectory)
if len(sPath1) then
sPath2 = Dir(sPath & Me.Test_Jahr_berechnet & "\" & sPath1 & "\" & Me.Test_Auftragsnummer & "*", vbDirectory)
if len(sPath2) then
sFullPath = sPath & sPath1 & "\" & sPath2
' Debug.Print sFullPath
Application.FollowHyperlink sFullPath
end if
end if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eridanus2001 · 25. Januar 2015

Es sieht in der Ausgabe schon fast richtig aus. Da der Link nicht funktionierte, habe ich mir die Ausgabe in der MsgBox angeschaut. Die Wildcards wurden 1a aufgelöst, allerdings wird nun das "Jahr" nicht gezogen.

Der Inhalt des rot markierten Feldes wird einfach ignoriert:
sPath1 = Dir(sPath & Me.Test_Jahr_berechnet & "\" & Me.Test_Monat_berechnet & "*", vbDirectory)

Hat jemand eine Idee, wie ich auch diesen Inhalt in den Verzeichnispfad bekomme?

Eridanus2001 · 25. Januar 2015

Ich hab's schon gefunden...
Jetzt klappt es perfekt.

Code:

Dim sPath As String
Dim sFullPath As String
Dim sPath1 As String
Dim sPath2 As String
Dim sPath3 As String

sPath = "C:\Users\Corinna\Test Access-DB\"
sPath1 = (Me.Test_Jahr_berechnet & "\")
sPath2 = Dir(sPath & Me.Test_Jahr_berechnet & "\" & Me.Test_Monat_berechnet & "*", vbDirectory)
sPath3 = Dir(sPath & sPath1 & sPath2 & "\" & Me.Test_Auftragsnummer & "*", vbDirectory)
sFullPath = sPath & sPath1 & sPath2 & "\" & sPath3
Debug.Print sFullPath
Application.FollowHyperlink sFullPath
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen lieben Dank an ALLE!!!!

Maxel · 25. Januar 2015

Hallo Eridanus,

Deine Lösung basiert auf der Aussage von daolix in #17, Dir() sukzessive aufzubauen, die mir so auch noch nicht bewusst war.

Dann kannst Du ja Deinen Beitrag auf erledigt setzen.

Office: (Office 2010) Dateipfad mit Platzhalter auslesen

Dateipfad mit Platzhalter auslesen

Dateipfad mit Platzhalter auslesen

Dateipfad mit Platzhalter auslesen

Dateipfad mit Platzhalter auslesen - Similar Threads - Dateipfad Platzhalter auslesen

Dynamischer Pfad

Dateipfad ergibt d.docs.live

Datei als PDF speichern ohne festen Dateipfad

Variabler Dateipfad bei Einlesen von csv-Datei

Dateipfad wird nicht gefunden

Dateipfad per Drag & Drop

Per Drag n Drop Dateipfad und Dateiname ermitteln