Dateien eines beliebigen Verzeichnisses auflisten (Inhaltsverzeichnis)

105043



Dieses Makro listet alle Dateien des angegebenen Verzeichnisses ab der aktiven Zelle auf.


Sub DateinamenAuflisten()
'Dateinamen in einem bestimmten Verzeichnis auflisten
'Die Angabe des Verzeichnises erfolgt in DOS Konvention
'Eingefügt werden die Daten ab der aktiven Zelle

  Dim Dateiname As String, i As Integer
  Dateiname = Dir$("c:\*.*") 'Hier Verzeichnis und Datei angeben
  Do While Dateiname <> ""
  ActiveCell.Offset(i, 0) = Dateiname
  i = i + 1
  Dateiname = Dir$()
  Loop

End Sub


In diesem Beispiel werden alle Dateien im Root-Verzeichnis c:\ aufgelistet.
   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800