Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Ordner auslesen und entaltene Dateien in Excel auflisten?
Gehe zu Seite 1, 2, 3, 4  Weiter
zurück: Objekte definieren weiter: Zellnamen beim Speichern mitgeben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
IV
Office Anwender (mit etwas Erfahrung) :-)


Verfasst am:
16. Dez 2005, 07:32
Rufname:
Wohnort: Klieve

Ordner auslesen und entaltene Dateien in Excel auflisten? - Ordner auslesen und entaltene Dateien in Excel auflisten?

Nach oben
       

Hallo zusammen,

Ich habe mal wieder ein kleines Problem.
Und zwar habe ich wir ein paar Ordner mit sehr vielen Dateien.
Diese müssen wir in Excel auflisten.

Da geht das dann schon los.
Ich denke das es ungefähr so gehen müsste.
1. Ordner öffnen
2. alle Dateinamen einlesen
3. jede Datei in eine neue Celle (Zeile) schreiben.

Kann mir je da jemand einen Tipp geben, wie ich das machen kann?

Danke und Gruß Ingo

_________________
"wer aufhört sich zu verbessern hört auf gut zu sein"
ae
Mein Name ist Ente


Verfasst am:
16. Dez 2005, 09:58
Rufname: Andreas
Wohnort: Reppenstedt bei Lüneburg


AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

Hallo Ingo,
dieser Code listet alle dateien eines Ordners in der Spalte A und "hyperlinkt" diese

Zitat:
Sub DateienAuflistenUndHyperlinken()
Dim i As Long
Dim Bereich As Range
Dim Zelle As Range
Const verz = "c:\ae"
'ACHTUNG PFAD ANPASSEN !!!!
'oder über Inputbox kreieren lassen
ChDir verz
Range("A:A").ClearContents
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Range("A1").Select
Set Bereich = ActiveCell.CurrentRegion
For Each Zelle In Bereich
Zelle.Hyperlinks.Add Zelle, Zelle.Value
Next Zelle
End Sub

_________________
Gruß
Andreas E
------
Oh Mann, ich fühl mich heute wie =DATEDIF(DATUM(1961;6;12);HEUTE();"y") Jahre alt
IV
Office Anwender (mit etwas Erfahrung) :-)


Verfasst am:
16. Dez 2005, 10:58
Rufname:
Wohnort: Klieve

AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

Hallo Andreas,

Danke für die schnelle Hilfe.

Das ist das was ich suchte.

Nur eine veränderung muss ich noch machen und zwar soll nicht der link erscheinen sondern der Dateiname.
Wie muss ich dafür den Code verändern?

Danke und Gruß Ingo

_________________
"wer aufhört sich zu verbessern hört auf gut zu sein"
ae
Mein Name ist Ente


Verfasst am:
16. Dez 2005, 11:00
Rufname: Andreas
Wohnort: Reppenstedt bei Lüneburg

AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

Nimm diesen Teil raus

Set Bereich = ActiveCell.CurrentRegion
For Each Zelle In Bereich
Zelle.Hyperlinks.Add Zelle, Zelle.Value
Next Zelle

_________________
Gruß
Andreas E
------
Oh Mann, ich fühl mich heute wie =DATEDIF(DATUM(1961;6;12);HEUTE();"y") Jahre alt
IV
Office Anwender (mit etwas Erfahrung) :-)


Verfasst am:
16. Dez 2005, 11:21
Rufname:
Wohnort: Klieve


AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

soweit so gut,
jetzt habe ich aber immernoch den kompletten Pfad.

Wie beschränke ich das nun auf den Dateinamen?

Danke und gruß Ingo

_________________
"wer aufhört sich zu verbessern hört auf gut zu sein"
ae
Mein Name ist Ente


Verfasst am:
16. Dez 2005, 11:31
Rufname: Andreas
Wohnort: Reppenstedt bei Lüneburg

AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

Hallo Ingo,
hab ich leider im Moment auf die Schnelle keine Idee -
Denkbar wäre in der Spalte daneben eine Formellösung die nach dem / sucht und ab da separiert-
Muss aber leider gleich weg -
vielleicht hat ja ein anderer ne Idee -
wenn nicht schau ich heute nachmittag nochmals in Ruhe rein

etwas in der art:
=RECHTS(A1;LÄNGE(A1)-FINDEN("\";A1;4))

_________________
Gruß
Andreas E
------
Oh Mann, ich fühl mich heute wie =DATEDIF(DATUM(1961;6;12);HEUTE();"y") Jahre alt
ae
Mein Name ist Ente


Verfasst am:
16. Dez 2005, 11:31
Rufname: Andreas
Wohnort: Reppenstedt bei Lüneburg

AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

Hallo Ongo,
hab ich leider im Moment auf die Schnelle keine Idee -
Denkbar wäre in der Spalte daneben eine Formellösung die nach dem / sucht und ab da separiert-
Muss aber leider gleich weg -
vielleicht hat ja ein anderer ne Idee -
wenn nicht schau ich heute nachmittag nochmals in Ruhe rein

_________________
Gruß
Andreas E
------
Oh Mann, ich fühl mich heute wie =DATEDIF(DATUM(1961;6;12);HEUTE();"y") Jahre alt
Kuwe
Excel-Anwender mit VBA


Verfasst am:
16. Dez 2005, 11:56
Rufname: Uwe

AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

Hallo Ingo,

probier es mal so:

Code:
Sub ATest()
  Dim strDatei As String
  Dim lngZ As Long
  ActiveSheet.Columns(1) = ""
  Application.ScreenUpdating = False
  strDatei = Dir("D:\Install\")
  Do Until strDatei = ""
    lngZ = lngZ + 1
    ActiveSheet.Cells(lngZ, 1) = strDatei
    strDatei = Dir
  Loop
  Application.ScreenUpdating = True
End Sub

_________________
Gruß Uwe
IV
Office Anwender (mit etwas Erfahrung) :-)


Verfasst am:
19. Dez 2005, 08:32
Rufname:
Wohnort: Klieve

AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

Moin Andreas und Uwe,

Danke für Eure Hilfe.

Ich habe mir aus euren Anregungen was gebastelt.
Gewünschten Pfad in ne Textbox eingaben und schon habe ich alle Dateien aus dem Ordner aufgelistet.

Nochmals Danke und Gruß Ingo

_________________
"wer aufhört sich zu verbessern hört auf gut zu sein"
the_anorganic
xls (etwas VBA)


Verfasst am:
25. Apr 2006, 14:27
Rufname:
Wohnort: am Nägga

AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

Hallo allerseits,

der Code von ae funzt gut aber ich habe folgendes Probem damit.

Im näheren Umfeld wird alles zu Hyperlinks, ums genau zu sagen 7Spalten und 5Zeilen im Umkreis von C1.
Hat das evtl. mit
Code:
Set Bereich = ActiveCell.CurrentRegion
For Each Zelle In Bereich
Zelle.Hyperlinks.Add Zelle, Zelle.Value

zu tun?

Zur Info: Das ganze läuft auf XP Pro Workstation mit Office2003 und Daten im Netzwerk auf Win SB Server

Bekomm es einfach nicht gebacken.

Danke im Voraus.
MfG

_________________
# als gefrickelt #
Excel - \LATEX - NSLU2
Case
Coder


Verfasst am:
25. Apr 2006, 14:34
Rufname: Case
Wohnort: Schwäbisch Hall

AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

Hallo,

schau dir mal folgendes an:

http://www.office-loesung.de/ftopic17359_0_0_asc.php

Hilft das?

Servus
Case

_________________
Servus
Case
Gast



Verfasst am:
24. Nov 2007, 13:42
Rufname:

AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       Version: (keine Angabe möglich)

Was haltet Ihr von einer BAT-Datei mit folgendem Code:

einfache Dateiliste:
Dir /A /B /N /W /TC > ~DateiListe.xls

Dateilise mit Pfad:
Dir /A /B /N /W /S /TC > ~DateiListe.xls

Die BAT-Datei in das aufzulistende Verzeichnis stellen und ausführen.
Ein Schönheitsfehler: Deutsche Umlaute und Sonderzeichen werden anders dargestellt: mit einem einfachen Excel-Makro korrigierbar.

Horst P. Maiwald
Wiesbaden
24.11.2007
Gast



Verfasst am:
08. März 2009, 15:15
Rufname:

AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

Also bei mir sieht das so aus.. und er macht nur die Werte aus B12:B501 zu hyperlinks!

Range("B12").Select
Set Bereich = Range("B12:B501")
For Each Zelle In Bereich
Zelle.Hyperlinks.Add Zelle, Zelle.Value
Next Zelle
End Sub
Monty Burns
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. März 2009, 20:36
Rufname:

AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       Version: Office 2007

Hallo

Ich bin Filmfan und lese ein Verzeichnis aus, um die Filmtitel dann in einer Exceltabelle zu sortieren.

Das mache ich damit:

Code:
Sub FilmeEinlesen ()
   Dim zeile As Variant
   Dim sFile As String, sPattern As String, sPath As String
   Dim iRow As Integer
   Columns(1).ClearContents
   sPath = "C:Verzeichnis\" ' Hier gibst Du Deinen Pfand zum gewünschten Verzeichnis an
   If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
   sPattern = "*.*"
   sFile = Dir(sPath & sPattern)
   Do Until sFile = ""
      iRow = iRow + 1
      Cells(iRow, 1).Value = sFile
      sFile = Dir()
   Loop
    For zeile = 1 To Cells.SpecialCells(xlLastCell).Row

 Next

End Sub 'Bei erneutem Aufruf werden die alten Funde überschrieben


Zusätzlich schneide ich das Format weg:

Code:
Sub WechMitAVI()

 Dim zeile As Variant

  For zeile = 1 To Cells.SpecialCells(xlLastCell).Row

   If InStr(1, Range("A" & zeile), ".") > 0 Then
     Range("A" & zeile) = Left(Range("A" & zeile), InStrRev(Range("A" & zeile), ".") - 1)
   End If
 
  Next

Vielleicht kannst Du das ja irgendwie gebrauchen...

Gruß

- Monty Burns -

End Sub
*VBA_Anfänger*
Anfänger


Verfasst am:
24. Jun 2009, 11:31
Rufname: Martin
Wohnort: Wien


AW: Ordner auslesen und entaltene Dateien in Excel auflisten - AW: Ordner auslesen und entaltene Dateien in Excel auflisten

Nach oben
       

Hallo Mr. Burns,

das ist super! Genau das versuche ich auch gerade für meine Aufzeichnungen zu basteln. Ich habe allerdings das Problem,l dass ich auch Ordner in dem Pfad habe. Kann ich den Ordnername auch in die Liste integrieren?

Weiß jemand Rat?

Vielen Dank!

mfg
Martin

_________________
Wer aufgibt gewinnt nie - Wer nie aufgibt gewinnt
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2, 3, 4  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 4
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Jeden Do, Fr und Sa eines monats auflisten 5 x16 589 31. Mai 2006, 11:27
x16 Jeden Do, Fr und Sa eines monats auflisten
Keine neuen Beiträge Excel Formeln: Alle Eingaben in A1 in B1:B1000 auflisten 2 Rolfi 503 05. Mai 2006, 17:15
Rolfi Alle Eingaben in A1 in B1:B1000 auflisten
Keine neuen Beiträge Excel Formeln: Monat auslesen / Quartalsauswertung 2 BerndMueller 2634 10. Apr 2006, 07:11
< Peter > Monat auslesen / Quartalsauswertung
Keine neuen Beiträge Excel Formeln: Zeilen in Tabelle nach mehreren Kriterien auslesen/markieren 2 JensK 1223 22. März 2006, 22:52
JensK Zeilen in Tabelle nach mehreren Kriterien auslesen/markieren
Keine neuen Beiträge Excel Formeln: 2 Dateien vergleichen und Abweichungen in neue Tab kopieren 4 EvaB71 42571 22. Feb 2006, 16:32
EvaB71 2 Dateien vergleichen und Abweichungen in neue Tab kopieren
Keine neuen Beiträge Excel Formeln: Daten aus mehreren Dateien und Arbeitsblättern auflisten 2 aloys 1435 14. Feb 2006, 19:43
aloys Daten aus mehreren Dateien und Arbeitsblättern auflisten
Keine neuen Beiträge Excel Formeln: Verküpfung zweier(oder mehr) Excel Dateien 0 Un'Chakna 718 13. Feb 2006, 13:59
Un'Chakna Verküpfung zweier(oder mehr) Excel Dateien
Keine neuen Beiträge Excel Formeln: Format Inhalt auslesen 7 shanghai357 5568 10. Feb 2006, 17:24
shanghai357 Format Inhalt auslesen
Keine neuen Beiträge Excel Formeln: Tabellenzeile indizieren und auslesen 4 Zander-Carve 2128 28. Nov 2005, 11:07
Zander-Carve Tabellenzeile indizieren und auslesen
Keine neuen Beiträge Excel Formeln: Syncronisieren von Excel Dateien!!! 0 Gast 601 24. Okt 2005, 10:09
Gast Syncronisieren von Excel Dateien!!!
Keine neuen Beiträge Excel Formeln: Werte einer Tabelle auslesen 4 bobi 1930 29. Jun 2005, 13:36
bobi Werte einer Tabelle auslesen
Keine neuen Beiträge Excel Formeln: inhalt einer zelle anhand von verweisen auslesen 5 vortax 1501 02. Apr 2005, 23:04
Gast inhalt einer zelle anhand von verweisen auslesen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme