Microsoft Excel

Herbers Excel/VBA-Archiv

listen nur *xl* Files

Betrifft: listen nur *xl* Files von: helena
Geschrieben am: 10.09.2004 09:32:06

Hallo Excelgemeinde

kleine Frage
meinen Speicherpfad lese ich hier aus
Speicherpfad = Sheets("Übersicht").Range("D7").Value

Dim Dateiname As String, i As Integer
Dateiname = Dir$(Speicherpfad)????????

das Listing funktioniert, möchte aber nur XLS Files auflisten
jetzt nimmt er immer alles

mein Code Auszug funktioniert sonst einwandfrei (aus Archiv)
ActiveSheet.Range("A3").Activate
Dim Dateiname As String, i As Integer
Dateiname = Dir$(Speicherpfad)
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop


DANKE für Hilfe

gruss helena

  


Betrifft: AW: listen nur *xl* Files von: ypsilon
Geschrieben am: 10.09.2004 09:42:17

hi helena,
eventuell so:
Dateiname = Dir$(Speicherpfad & "*.xl*")
cu Micha


  


Betrifft: das wars DANKE (o.T.) von: HELENA
Geschrieben am: 10.09.2004 09:44:04

.


 

Beiträge aus den Excel-Beispielen zum Thema "listen nur *xl* Files"