Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiordner auslesen

Forumthread: Dateiordner auslesen

Dateiordner auslesen
28.04.2024 09:02:18
Thomas
Guten Morgen

Mit ActiveWorkbook.Path kann ich den gesamten Dateiname auslesen.

Gibt es die Möglichkeit nur der Laufwerkbuchstabe mit dem ersten Ordner auszulesen. Alle Unterordner sollen dabei nicht ausgelesen werden.

Gruss
Thomas
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiordner auslesen
28.04.2024 09:28:55
RPP63
Moin!
Vorweg:
Mit ActiveWorkbook.Path liest Du nicht den kompletten Dateinamen, sondern den Pfad aus.
Egal, eine Möglichkeit: 
Sub first_folder()

Dim Pfad

Dim APS$: APS = Application.PathSeparator

Pfad = Split(ActiveWorkbook.Path, APS)

MsgBox Pfad(0) & APS & Pfad(1)

End Sub

Gruß Ralf
Anzeige
AW: Dateiordner auslesen
28.04.2024 10:29:53
Thomas
Guten Morgen Ralf,
besten Dank für deine Unterstützung.

Zu deiner Anmerkung: Ja ich habe eigentlich schon Pfad gemeint und nicht Dateiname das wäre ja dann ".Name"

Gruss
Thomas
AW: Dateiordner auslesen
28.04.2024 10:58:27
Thomas
Noch ein Frage dazu,

ist diese Schreibeweise für andere Anwendungen korrekt?
MsgBox Pfad(0) & APS & Pfad(1) & APS & Pfad(2)

Wenn ja, so wären damit viele Optionen offen, wie nur Ordnername ohne Laufwerk auslesen, oder Laufwerk mit individuellen Ordnernamen.

Und eine Weitere Frage,
Option bei Serverumgebungen: gibt es da auch eine Variante? Wahrscheinlich wird dieses wohl zu Komplex?

Gruss
Thomas
Anzeige
AW: Dateiordner auslesen
29.04.2024 18:21:17
Thomas
Guten Abend Ralf,

ich habe noch eine Frage.

Wieso braucht es für einen \ denn überhaupt eine Applikation? Was macht der ParthSeparator denn besser, weil er generiert ja auch nur den \. Könnte man es denn auch einfach umsetzen mit einem \?

Dim APS$: APS = Application.PathSeparator

Gruss
Thomas
Anzeige
Könnte man es denn auch einfach umsetzen mit einem \?
29.04.2024 18:33:10
Uduuh
Hallo,
kannst du machen, wenn du es nur unter Windows einsetzt.

Gruß aus'm Pott
Udo
AW: Dateiordner auslesen
28.04.2024 16:55:00
schauan
Hallöchen,
1)
Da sollte es aber auch einen Pfad(2) geben. Probier mal aus, was passiert, wenn nicht...
2)
Wenn Du den Server als Laufwerk angebunden hast, geht es genauso gut...
AW: Dateiordner auslesen
28.04.2024 17:32:53
RPP63
Zur Anmerkung von André:
Du musst halt einen Exit einbauen, wenn die max. Ordnertiefe kleiner als die angefragte Ebene ist.
Ich habe das mal flugs in einer UDF umgesetzt: 
Function Teil_Pfad$(Ebene&)

'Ebene 0 Laufwerk

'Ebene 1 Hauptordner

'Ebene 2 1. Unterordner, usw.

Dim Pfad, i&

Dim APS$: APS = Application.PathSeparator

Pfad = Split(ActiveWorkbook.Path, APS)

For i = 0 To UBound(Pfad)

  Teil_Pfad = Teil_Pfad & Pfad(i) & APS

  If i = Ebene Then Exit For

Next

End Function

hier mal als Ausgabe in einer Tabelle:
 A
1I:\aktueller Stand\Spielereien\
2I:\aktueller Stand\
3I:\
4I:\aktueller Stand\Spielereien\

ZelleFormel
A1=Teil_Pfad(2)
A2=Teil_Pfad(1)
A3=Teil_Pfad(0)
A4=Teil_Pfad(3)


Gruß Ralf
Anzeige
AW: Dateiordner auslesen
28.04.2024 20:11:52
Thomas
Besten Dank Ralf,
ich bleibe bei deinem ersten Beispiel. Das ist absolut ausreichend, weil "Spielerei" braucht es ja nicht.
Habe mir das ein bisschen überlegt. Die Verzeichnisstruktur ist Statisch. Das einzige was dynamisch sein kann, ist der Laufwerksbuchstabe und das Hauptverzeichnis.
Der Rest wird beim abspeichern eines PDF oder einer sonstigen generierten xlsx Datei innerhalb dieser Verzeichnis Struktur geschehen. Und da wird individuell der richtige Speicherpfad in einem String übergeben und brauche nur voran gesetzt die dynamische Erkennung von Laufwerk und Hauptverzeichnis. Der Pfad im String prüfe ich mit einer IF Verzweigung und sollte er aus irgendwelchen Gründen fehlen oder einfach eines der Verzeichnisse nicht der richtigen Wortwahl entsprechen, da vielleicht mal jemand ein Verzeichnis umbenennt so wird die Datei dann automatisch im Windows Ordner "Dokumente" abgespeichert.

Besten Dank für deine Darstellung, es ist immer wieder Lernreich und interessant mit euch hier.

Gruss
Thomas
Anzeige

Forumthreads zu verwandten Themen

Dateiordner zählen
Thomas

Hallo zusammen,
ich brauche folgende Funktion in einer Datei.
1.) Es sollen alle Sheets gezählt werden und der Wert in der Tabelle1 / Zelle A1 eingetragen werden.
Als Formel oder VBA-Code.
Es gibt da ja den Code: ThisWorkbook.Sheets.Count
Ich weiß aber nicht, wie ich ihn in...
29.12.2008 12:21:00
Thread-ID: 1035718
23 Beiträge
Dateiordner zählen
Thomas

Hallo zusammen,
ich brauche folgende Funktion in einer Datei.
1.) Es sollen alle Sheets gezählt werden und der Wert in der Tabelle1 / Zelle A1 eingetragen werden.
Als Formel oder VBA-Code.
Es gibt da ja den Code: ThisWorkbook.Sheets.Count
Ich weiß aber nicht, wie ich ihn in...
29.12.2008 12:56:42
Thread-ID: 1035726
8 Beiträge
Anzeige
Dateiordner mit 350 Excelsheets auslesen
Gerhard

Guten Morgen da draussen
Wurde hier mit einem Prob beauftragt und weiss absolut nicht wie ich das lösen kann
Habe einen Ordner Namens Werkzeuglisten. In diesem sind ca. 350 Excellisten.
Ich muss nun in diesen 350 Excellisten suchen wo sich das Werkzeug mit der Bezeichnung "WZK-91" b...
24.09.2009 08:22:13
Thread-ID: 1105114
24 Beiträge
Suche Wert in einem Dateiordner
Mike

Hallo,
ich habe eine Verzeichnis von mehreren hundert Dokudateien* und eine Sammelliste* von einer nachträglichen Vororterfassung eines Raums. Ich möchte jetzt an Hand der Werte in einer Spalte der
nachträglichen Datei wissen, in welcher der hundert Dokudateien der entsprechende Zellwer...
29.10.2009 15:33:44
Thread-ID: 1113070
2 Beiträge
Daten aller Dateien eines Dateiordners einlesen
Ruth

Hallo zusammen,
ich habe ein Makro aus dem Netz so angepasst, dass definierte Zellinhalte aller (identisch aufgebauten) geschlossenen Excel-Dateien aus einem Dateiordner eingelesen werden. Dazu habe ich in den Zeilen der Spalte E der Zieldatei den Tabellennamen und in den Zeilen der Spalte...
14.03.2005 09:40:18
Thread-ID: 584659
4 Beiträge
Größe (MB) eines Dateiordners
RALF

Hallo zusammen,
bin auf der Suche nach einem kleinen Werkzeug, das mir eine Ordnerstruktur ausliest, die ich von der Tiefe her definieren kann (Unterordner) und die entsprechenden Ordnergrößen in MB.
Ordnerstrukturen sind kein Thema....aber:
WIE KANN ICH DIE GRÖSSE EINES ORDNERS AUS...
06.06.2005 13:30:12
Thread-ID: 620300
7 Beiträge
Größe (MB) eines Dateiordners - die 2.
RALF

Hallo zusammen,
meine Frage zum gleichen Thema war von schonmal beantwortet worden.
Ich will die Größe einer Ordnerstruktur erhalten.
Habe ein neues Problem:
Ich wollte einen Ordner nach dem anderen abfragen, komme ich an einen Unterordner, dann übergebe ich an die nächste Proze...
06.06.2005 16:50:48
Thread-ID: 620434
7 Beiträge
Dateiordner als Userform
Stefan

Hallo,
ist es grundsätzlich möglich, statt der von Excel zur Verfügung gestellten Dialogbox (=Datei öffnen), Dateien auch in einer Userform anzeigen zu lassen und hieraus auch aufzurufen?
Für Eure Hilfe besten Dank.
Gruß
Stefan
23.05.2006 20:42:27
Thread-ID: 767080
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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