Dateiverzeichnisspfad auswählen

Guten Morgen Zusammen,
ich brauche mal eure Hilfe bitte.
Tante Google hat mich nicht wirklich weiter gebracht.
Meine Excelanwendung erstellt eine kleine TXT Datei diese soll je nach Wunsch des Anwenders irgendwo auf seinem Rechner (Laufwerken) abgelegt werden können.
Hierzu wird normalerweise einmal pro Anwender das Laufwerk und der Speicherpfad eingestellt und in einer Zelle in der Anwendung gespeichert.
Ich möchte nun gerne in der Userform ein (Art) Combobox die Laufwerksstruktur und die Verzeichnisse auflisten und den Pfad in der die TXT gespeichert werden auswählen - diese Auswahl soll dann in der oben benannten Zelle abgespeichert werden.
Das ganze ähnlich wie es bei der Funktion "speichern unter" gelöst ist nur halt ohne Dateiname.
Hoffe ich habe mich verständlich ausgedrückt und jemand kann mir helfen.
Danke schon mal im Voraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jürgen,

Option Explicit                             ' Variablendefinition erforderlich
' damit Makro nicht unter Makro erscheint
Option Private Module
' Projekt weit
Public StOrdner As String                   ' Suchordner
'   von Nepumuk
Private Type InfoT
hwnd As Long
Root As Long
DisplayName As Long
Title As Long
Flags As Long
FName As Long
lParam As Long
Image As Long
End Type
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As InfoT) As Long
Private Declare Function CoTaskMemFree Lib "ole32" (ByVal hMem As Long) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpStr1 As String, ByVal lpStr2 As String) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pList As Long, ByVal lpBuffer As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Function GetAOrdner() As String
Dim xl As InfoT, IDList As Long, RVal As Long, FolderName As String
With xl
.hwnd = FindWindow("xlmain", vbNullString)
'.hwnd = FindWindow("", "Auswahl")  ' Userform Auswahl
.Title = lstrcat("Bitte wählen Sie ein Verzeichnis", "")
.Flags = 1
End With
IDList = SHBrowseForFolder(xl)
If IDList  0 Then
FolderName = Space(256)
RVal = SHGetPathFromIDList(IDList, FolderName)
CoTaskMemFree (IDList)
FolderName = Trim(FolderName)
FolderName = Left(FolderName, Len(FolderName) - 1)
End If
GetAOrdner = FolderName
End Function
'   nicht verwendeter Code Aufruf mit
Sub test()
StOrdner = GetAOrdner                           ' Verzeichnis auswählen
End Sub

Public Sub FileDialog() Dim Cancel As Boolean Dim dDatei As Variant With Application.FileDialog(msoFileDialogFolderPicker) '.InitialFileName = "C:\" .Title = "Bitte wählen Sie ein Verzeichnis" .ButtonName = "Auswahl..." .InitialView = msoFileDialogViewDetails If .Show = -1 Then Cancel = True dDatei = .SelectedItems(1) End If End With End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

26 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateiverzeichnisspfad auswählen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

26 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread