Office: Ordner über Dialog auswählen

fifo · 17. Juli 2013

Hallo,

nachfolgenden Code benutze ich um sämtliche Dateinamen innerhalb eines Ordners in eine Excel-Tabelle zu schreiben. Die Zeile in rot hätte ich gerne so, dass der Pfad nicht fest hinterlegt ist, sondern sich ein Fenster öffnet, in dem ich den gewünschten Ordner (nicht die Dateien!!!) auswählen (anklicken) kann.

Mit welchem Befehl mach ich das?

Vielen Dank und Gruß
FIFO

Code:

Sub GetTGSPfad()
Dim zeile As Variant
Dim sFile As String, sPattern As String, sPath As String
Dim iRow As Integer
Columns(1).ClearContents
sPath = "L:\Daten\BPI\Titelanalyse\FC 2 - FY 14\" ' Hier gibt man den Pfand zum gewünschten Verzeichnis an
If Right(sPath, 1) "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow, 1).Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row

Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

EarlFred · 18. Juli 2013

Hallo FIFO,

keine Problem:
Code:

Option Explicit

Sub GetTGSPfad()

Dim lngRow As Long 'nicht Integer

Dim sFile As String, sPattern As String, sPath As String

Columns(1).ClearContents
' sPath = "L:\Daten\BPI\Titelanalyse\FC 2 - FY 14\" ' Hier gibt man den Pfand zum gewünschten Verzeichnis an
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "L:\Daten\BPI\Titelanalyse\"
If .Show = -1 Then
sPath = .SelectedItems(1)
End If
End With
If sPath > "" Then
If Right(sPath, 1) "\" Then sPath = sPath & "\"

sPattern = "*.*"
sFile = Dir(sPath & sPattern)

Do Until sFile = ""
lngRow = lngRow + 1
Cells(lngRow, 1).Value = sFile
sFile = Dir()
Loop

End If
' For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
' Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ein paar Kleinigkeiten habe ich noch geändert - schau's Dir mal an.

Grüße
EarlFred

fifo · 18. Juli 2013

Läuft perfekt!

Super und vielen Dank!

Hajo_Zi · 18. Juli 2013

ein Beispiel was ich in dem Fall immer verlinke
Ordner auslesen
in dem kann man schon viel auswählen.

Office: Ordner über Dialog auswählen

Ordner über Dialog auswählen

Ordner über Dialog auswählen

Ordner über Dialog auswählen

Ordner über Dialog auswählen - Similar Threads - Ordner Dialog auswählen

Outlook - Ordner gesendete Elemente wechseln

Öffentlicher Ordner Kontakte aktualisieren

Nach einer Datei suchen in mehreren Ordnern?

Ordner: Synchronisierungsprobleme

Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA

Outlook 2019: Schriftart der Ordner/Posteingang ändern

Spam Ordner lässt sich nicht leeren