Office: (Office 2016) Verzeichnisname auslesen und übergeben

Hallo zusammen!

Versuche über nachfolgenden Code einen Verzeichnisnamen auszulesen (was auch funktioniert) und dann an einen weitere Prozedur zum übergeben.
Hier hänge ich.....
Was muss ich machen um filepath (als String ?)
Code:

Bislang hatte ich einen fixen Ort hinterlegt welcher über diese Funktion definiert wurde :
Code:

und hier dann weiterverarbeitet:
Code:

Nun würde ich gerne den PfadDB_Importordner() durch eine auswählbaren Ordner ersetzen.

Könnt ihr mir hier helfen?

Danke
Erich

:)

 

dann willst du den Ordner von Sub 1 in einer anderen Sub verwenden oder auslesen.

Ich würde hier eine zwischentabelle verwenden, dort das Verzeichnis zb mittels Insert into ... speichern und in der anderen Sub zb mit dlookup...
aus dieser Tabelle wieder auslesen. Das lässt sich so eigentlich sehr einfach steuern
Lg Jimmy

 

\@Jimmy:
Das hast du jetzt nicht im Ernst gemeint, oder?

Hallo Erich,

dir ist schon klar, daß das eigentlich Grundlagen der Programmierung mit VBA sind, oder? Vielleicht solltest du dir mal die Zeit nehmen und hier ein bißchen stöbern:
Prozeduren – VBA-wiki

Zurück zu deiner Fragestellung, die nicht ganz eindeutig ist. Der Funktion PfadDB_Importordner() liefert genau einen Ordner zurück und "Versuche über nachfolgenden Code einen Verzeichnisnamen auszulesen... " suggeriert, daß du auch nur eine Pfadangabe haben möchtest, aber bei der Verwendung des Filedialogs wird explizit ".AllowMultiSelect = True" gesetzt und dann sollen mit einer Schleife mehrere ausgewählte Ordner ausgewertet werden. Mal abgesehen davon, daß sich mit diesem speziellen FileDialog immer nur eine Ordner auswählen läßt, stellt sich dann die Frage, was du denn jetzt möchtest, einen Ordner oder mehrere Ordner auswählen?

Im übrigen wurde dein Anliegen schon hier im Forum ausführlich beschrieben und genau das Thema auch hier behandelt:
Dateidialog - Das VBA-Tutorial
https://wellsr.com/vba/2016/excel/vb...gFolderPicker/

Gruß Ulrich

 

Schließe mich knobbi38 an!

Im Übrigen:

Da musst Du schon den Typ mit angeben...

 

Hallo Ulrich,
danke für die Hilfestellung - bin schon ein wenig weitergekommen.

Zur Problemstellung:
Wenn ich ein frm öffnen sollen in einem Listenfeld die Dateien aus einem Standardverzeichnis angezeigt werden (z.B. User Desktop)
Wenn ich in diesem frm jedoch per Button den FileDialog aufrufe soll sich das Verzeichnis ändern.

Mit Code:

definiere ich ja das ausgewählte Verzeichnis. Hier noch den Slash dazu
Code:

Wie könnte ich das weiter umsetzen das ich immer das Standardverzeichnis bekomme und nur per FileDialog das anpasse?
Danke
LG.Erich

 

Moin,
Code:

schreib anstatt des Pfeils einen Punkt, dann geht ein Dropdown auf, das die möglichen Eigenschaften aufzeigt. Dort sollte irgendetwas mit "Init" auftauchen, mit dem der Pfad vorgegeben werden kann, hab's grad nicht im Kopf.

 

Hallo Erich,

hier ein Beispiel aus einem vorherigem Thread:
DokArchiveSample_v1.01.zip

Vielleicht findest du dort ein paar Anregungen.

Gruß Ulrich

 

... oder mall googeln nach msoFileDialogFolderPicker

 

Hallo - danke mal für die Hilfestellungen - komme aber auf die Schnelle nicht weiter.
Das mit dem Filedialog etc funktioniert ja schon ganz gut aber die Einbindung in meine Application hakt.

Ich öffen ein frm wo in einem Listenfeld die Dateien eines Ordners angezeigt werden. Standardordner ist hier z.B. der Desktop des akuellen Benutzers.
Um den Ordner nun zu wechseln gibt es einen Button wo ich den File Dialog aufrufe.

Nun wie schaffe ich es den hier den Importordner anzupassen?

Danke
Erich

@ Knobbi: Danke für das Beispiel. Sehen guten Einsatzzweck brauch aber hier noch Zeit um es zu durchsteigen

 

Hallo Erich,

du rufst doch in der Routine die Funktion PfadDB_Importordner() auf, die du einfach durch eine Funktion ersetzt, die die Ordenerauswahl mit dem Filedialog macht.
Alle Informationen hast du doch jetzt zusammen. Wenn du die Links angeschaut hättest, welche du von mir bekommen hast, sollte die Umsetzung kein Problem mehr sein.


Ulrich

 

Hallo Urlich - irgendwie sehe ich den Wald vor lauter Bäumen nicht mehr ...
Mit PfadDB_Importordner() habe ich den Pfad definiert
Darin lege ich fest das beim öffnen des frm das user Verzeichnis ausgegeben außer wird es wird mittels filedialog ein andres gewählt.
Ich schaffe es nicht in dieser Funktion dies zu deklarieren

Wahrscheinlich ist die Lösung eh schon fast da aber irgendwie Dreh ich mich im Kreis

Danke
Erich

 

Hallo erich.schober1974,
mir fällts schwer, dem Ganzen langsam zu folgen.
Stell doch mal eine Demo DB zur Verfügung (als zip) mit ein paar wichtigen und
doch virtuellen anonymen Daten.
Dazu eine endgültige Erklärung Deines Vorhabens.

 

Hallo Erich,

ich denke mal, dein eigentliches Problem ist das Organisieren deines Codes, denn eigentlich hast du ja alles schon zusammen.

Deshalb hier mal ein Vorschlag, wie man das umsetzen könnte:
in ein separates Modul (modFolderSelection ) die Hilfsfunktionen:
Code:

und dann im deinem Formular:
Code:

Damit solltest du jetzt weiterkommen.

Gruß Ulrich

PS:
da der Backslash hier nicht immer angezeigt wird, ersetzte ich im Code mit einem Texteditor alle \ durch \ und kopiere das Ergebnis dann hier per CP rein. Funktioniert am besten.

 

Hallo knobbi38,
würde das Folgende denn nicht ausreichen?
In einem Formular ein Textfeld "Bildpfad"
Ein Button "btnOrdnerSuchen"
Ein Button "btnOrdnerAuslesen"

Code:

Dein Tipp mit \ funktioniert super.

 

PS: Wenn Ihr den Backslash doppelt eingebt, erscheint er auch!
\