Hallo zusammen,
ich habe folgende Herausforderung:
Ich möchte Dateien die in einer VBA Oberfläche erstellt wurden in dem passenden Ordner ablegen. Beispiel: Datei beinhaltet verschiedene Daten und eine Rechnungsnummer zb. 01157082
Die Datei soll dann anschließend in folgender Ordnerstruktur abgelegt werden.
01157xxx -> 0xx -> 082_NAME
Ich komme mit dem folgenden Code schon bis in den Ordner "0xx" Jedoch habe ich keine möglichkeit dann den Ordnern "082_NAME" zu öffnen da sich NAME immer unterscheidet.
Function projectpath(projectdata_number)
Path = "N:\Aufträge\Aufträge NL-Nord\"
Path_15_flex = "01150xxx\"
Path_16_flex = "01160xxx\"
Path_15_faa = "01157xxx\"
Path_16_faa = "01167xxx\"
path_0xx = "0xx\"
path_1xx = "1xx\"
path_2xx = "2xx\"
path_3xx = "3xx\"
lfdnum = Right(projectdata_number, 3)
lfdnum_x = Left(lfdnum, 1)
order_Year = Left(projectdata_number, 5)
Select Case order_Year
Case "01150": DataName_0 = Path & Path_15_flex
Case "01157": DataName_0 = Path & Path_15_faa
Case "01160": DataName_0 = Path & Path_16_flex
Case "01167": DataName_0 = Path & Path_16_faa
End Select
Select Case lfdnum_x
Case "0": projectpath = Dir(DataName_0 & path_0xx & lfdnum & "_?" & "15 Elektrik")
Case "1": projectpath = DataName_0 & path_1xx
Case "2": projectpath = DataName_0 & path_2xx
Case "3": projectpath = DataName_0 & path_3xx
End Select
End Function
|