Thema Datum  Von Nutzer Rating
Antwort
Rot Variablen Ordnerpfad öffnen
 24.03.2016 15:48:50 Patrick
NotSolved
24.03.2016 18:38:25 Amicro2000
NotSolved

Ansicht des Beitrags:
Von:
Patrick		 Datum:
24.03.2016 15:48:50		 Views:
3306		 Rating:
     
Antwort:
  Ja
Thema:
Variablen Ordnerpfad öffnen

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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Variablen Ordnerpfad öffnen
 24.03.2016 15:48:50 Patrick
NotSolved
24.03.2016 18:38:25 Amicro2000
NotSolved