Re: Dateinamen in Combobox?
24.01.2003 11:36:49
Steffan
Hallo Armin,auf Deinem Tabellenblatt brauchst Du eine Combobox (Name: 'ComboBox1). Folgender Code gehört in den Codebereich des Tabellenblattes (Commbobox wird beim aktivieren des Blattes aktualisiert, sVerz und evtl. SearchSubFolders anpassen!):
Private Sub ComboBox1_Change()
On Error GoTo fehler
Workbooks.OpenText ComboBox1.Text
fehler:
MsgBox "Datei konnte nicht geöffnet werden!", vbCritical
End SubPrivate Sub Worksheet_Activate()
sVerz = "C:\Eigene Dateien"
ComboBox1.Clear
With Application.FileSearch
.NewSearch
.LookIn = sVerz
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute
If .FoundFiles.Count = 0 Then _
MsgBox "Keine Textdateien im Verzeichnis " & _
sVerz & " gefunden!", vbInformation: Exit Sub
For i = 1 To .FoundFiles.Count
If .FoundFiles(i) Like "*.txt" Then _
ComboBox1.AddItem .FoundFiles(i)
Next
End With
End Sub
Steffan.