Office: Ordner auslesen

Venom · 23. Mai 2007

Hallo zusammen
ich habe die Suche schon misbrucht aber nicht so recht das richtige gefunde.
Vielleicht kann mir ja mal wer helfen

Ich möchte gern einen Ordner auslesen (nennen wir ihn mal Test) und alle darin befindlichen dateien alphabetisch sortiert in einer Listbox oder Combobox wiedergeben.

Wenn nun einer den Eintrag anklickt soll die Ursprungsdatei beendet werden und die ausgewählte Datei geöffnet?!

Danke dafür im Vorraus

Gruß
Venom

:)

rastrans · 25. Mai 2007

Hallo!

Hier schon mal ein Codefragment, der aber noch weiter bearbeitet werden muss:
Code:

DIM strDateiname AS String, strPfadname AS String
DIM ListDateiname(100) AS String, i%

i = 0
strPfadname = "C:\temp\\"
strDateiname = Dir(strPfadname & "*.xls")
DO Until Len(strDateiname) = 0
ListDateiname(i) = strDateiname
strDateiname = Dir()
i = i+1
LOOP
[Nun noch das Array ListDateiname sortieren]
Me.ListBox = ListDateiname()
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mein nutzen von Me.Listbox(me.ListBox.ListIndex) aber daran denken, das der Pfad nicht mit gespeichert wird. Zum Aufruf der Datei also strPfadname & Me.ListBox(Me.ListBox.ListIndex) nutzten!

Sorry, aber ich kann den Code hier nicht testen. Sollte aber eigentlich funktionieren!

Grüße
rastrans

IngGi · 25. Mai 2007

Hallo Venom,

dafür kannst du auch die GetOpenFileName-Methode verwenden. Dann kannst du dir den Umweg über eine Listbox sparen. Also zum Beispiel so:
Code:

Sub test()

Dim strDatName As String

ChDrive "C"
ChDir "C:\Test"
strDatName = Application.GetOpenFilename("Exceldateien (*.xl*), (*.xl*)")
Workbooks.Open strDatName
ThisWorkbook.Close

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

Gruß Ingolf

Venom · 25. Mai 2007

Danke für euren Code
Werde ich gleich mal anpassen und testen

@ingolf Ich bruache nur die Listbox da ich ja nmocht weiß welche der vielen Dateien der USer öffnen will

IngGi · 25. Mai 2007

Hallo Venom,

probier das Makro doch einfach mal aus. Die GetOpenFile-Methode stellt dir ein Explorerfenster zur Verfügung, in dem du nach der gewünschten Datei browsen kannst.

Gruß Ingolf

Venom · 25. Mai 2007

Habs gerade gesehen und wollte gerade was schreiben

thnx

Ds nächste mal erst lesen dann schreiben :-)

Uwe Küstner · 25. Mai 2007

Hallo Venom,

hier eine Variante mit einer Userform.

Code:

' **************************************************************
' Modul: UserForm1 Typ = Userform
' **************************************************************

Option Explicit

Private Sub CommandButton1_Click()
Workbooks.Open Me.ComboBox1.Tag & Me.ComboBox1.Value
Unload Me
ThisWorkbook.Close True
End Sub

Private Sub UserForm_Initialize()

Dim myCol As New Collection
Dim strPfad As String
Dim strDatei As String
Dim i As Long

strPfad = "C:\Test\\" '< hier den Pfad vorgeben

ComboBox1.Tag = strPfad
strDatei = Dir(strPfad & "*.xls")

Do While Len(strDatei)
If myCol.Count Then
For i = myCol.Count To 1 Step -1
If strDatei < myCol(i) Then
myCol.Add strDatei, Before:=i
Exit For
Else
myCol.Add strDatei, After:=i
Exit For
End If
Next i
Else
myCol.Add strDatei
End If
strDatei = Dir
Loop

With ComboBox1
For i = 1 To myCol.Count
.AddItem myCol(i)
Next i
End With

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

Code eingefügt mit:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Uwe Küstner · 25. Mai 2007

Hallo Venom & All,

vergesst meinen vorherigen Beitrag, da er Schrott ist. *frown.gif*

Hier der berichtigte Code, der auch in der neuen Beispielmappe zu finden ist:

Code:

' **************************************************************
' Modul: UserForm1 Typ = Userform
' **************************************************************

Option Explicit

Private Sub CommandButton1_Click()
Workbooks.Open ComboBox1.Tag & ComboBox1.Value
Unload Me
ThisWorkbook.Close True
End Sub

Private Sub UserForm_Initialize()

Dim myCol As New Collection
Dim strPfad As String
Dim strDatei As String
Dim i As Long, bolAdd As Boolean

strPfad = "C:\Test\" '< hier den Pfad vorgeben

ComboBox1.Tag = strPfad
strDatei = Dir(strPfad & "*.xls")

Do While Len(strDatei)
Debug.Print strDatei
For i = 1 To myCol.Count
If StrComp(myCol(i), strDatei, 1) = 1 Then
'= 1 für aufsteigende, = -1 für absteigende Sortierung
myCol.Add strDatei, Before:=i
bolAdd = True
Exit For
End If
Next i
If Not bolAdd Then
myCol.Add strDatei
Else
bolAdd = False
End If
strDatei = Dir
Loop

With ComboBox1
For i = 1 To myCol.Count
.AddItem myCol(i)
Next i
End With

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

Code eingefügt mit:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Ordner auslesen

Ordner auslesen

Ordner auslesen

Ordner auslesen

Ordner auslesen

Ordner auslesen - Similar Threads - Ordner auslesen

Sharepoint Ordner auslesen

Ordner und Unterordner auslesen mit Anzahl der Unterordner/Dateien pro Ordner

Ordner auslesen

Ordner auslesen auf Excel

Dateinamen aus Ordner auslesen

Desktoppfad auslesen und Ordner anlegen (wenn nicht vorhanden)

Ordner mit Rechnungsnr. auslesen und nächste verwenden