Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

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.
   

Relevante Artikel

  • Programmverzweigung beim Schließen der Arbeitsmappe

    103003 Diese Makro frägt nach, ob die Arbeitsmappe gespeichert werden soll.Bei 'Ja' wird die Arbeitsmappe gespeichert und geschlossen Bei "Nein' kann ein entsprechender Code ausgeführt werden, der...

  • Dialogfenster "Speichern unter" per VBA aufrufen

    Möchten Sie per VBA den Dialog "Speichern unter" aufrufen und dabei den Speicherpfad und den Dateinamen vorgeben? Folgendes Makro erledigt dies für Sie. In diesem Beispiel wird der Pfad "C:\Temp"...

  • Prüfen, ob eine Diskette eingelegt ist

    105024 Mit diesem Code können Sie prüfen, ob im Diskettenlaufwerk eine Diskette eingelegt ist.Ist keine Diskette eingelegt, werden Sie aufgefordert, eine einzulegen.Sub Prüfung_Diskettenschacht()'Variablen...

  • Zwei Arbeitsmappen miteinander vergleichen

    103004   Möchten Sie 2 Arbeitsmappen miteinander vergleichen? Dann sollten Sie dieses Makro näher ansehen.Verglichen werden die Anzahl der Tabellenblätter, die Anzahl der benutzen Zellen und die...

  • Umbenennen von Dateien per VBA

    105040   Das folgende Makro benennt Dateien um, indem der alte Dateiname einfach durch den neuen ersetzt wird. Public Sub umbenennen() Name "C:\test\mappe1.csv" As "C:\test\mappe1.txt" End Sub   So wird aus der...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013