Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Datein auslesen in Combobox

Betrifft: Datein auslesen in Combobox von: Thomas_H
Geschrieben am: 16.09.2004 11:01:04

Hallo XL-Profis!

Ich brauch wiedereinmal eure Hilfe.
Ich möchte gerne einen Ordner (C:\Test) auslesen und alle vorhandenen Excel-Datein in einer Combobox ausgeben. Leider funktioniert das nicht wirklich.
Zur Sicherheit zeig ich euch den Code den ich verwende, und ihr könnt mir sagen was ich falsch mache. Danke für eure Hilfe, Thomas


Private Sub Daten_auslesen()
Dim ASF As Object
Dim i As Integer
Set ASF = Application.FileSearch

    With ASF
            ChDir "C:\Test"                     ' Verzeichnis wechseln
            .NewSearch                          ' Neue Suche beginnen
            .LookIn = "C:\Test"                 ' Suchen in <<Pfad>>
            .Filename = "*.xls"                 ' Alle Dateien anzeigen
            With Userform1.Combobox1
                .AddItem (FoundFiles)
            End With
    End With
End Sub

  


Betrifft: AW: Datein auslesen in Combobox von: Andre
Geschrieben am: 16.09.2004 11:15:17

Hi Thomas,

versuch´s mal damit:

Private Sub CommandButton1_Click()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\NePro")
Set fc = f.Files
    
   For Each f1 In fc
      UserForm1.ComboBox1.AddItem (f1.Name)
   Next
   UserForm1.ComboBox1.ListIndex = 0

End Sub


Gruß Andre


  


Betrifft: Danke !!! von: Thomas_H
Geschrieben am: 16.09.2004 11:25:29

Danke für die Hilfe!

Es funtkioniert.

Thomas H.


 

Beiträge aus den Excel-Beispielen zum Thema "Datein auslesen in Combobox"