Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2005 erstellte Dateien inkl. Unterverz. einlesen

2005 erstellte Dateien inkl. Unterverz. einlesen
23.11.2005 14:54:04
Markus
Hi freaks,
folgendes Problem:
Ich suche nach einer Routine, mit der ich alle im Jahr 2005 abgespeicherten Dateien inkl. Unterverzeichnis in eine Excel-Tabelle einlesen kann.
Wenn möglich sollte in Spalte A das Datum, in Spalte B der Dateiname und in Spalte C der Pfad stehen.
Die Tabelle sollte nach Spalte A sortiert sein, so dass das aktuellste File oben steht.
Super wäre es, wenn der Dateiname gleich als Link mit kompletten Pfad verwendbar wäre.
Ist so etwas unter Excel möglich?

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2005 erstellte Dateien inkl. Unterverz. einlesen
23.11.2005 16:06:29
UweD
Hallo
so?

Sub Alter()
Dim TB, Pfad$, Ext$, i&, Jahr%, Z&
Set TB = Sheets("Tabelle1")
Pfad = "C:\Temp" 'anpassen
Ext = "*.*"
Z = 1
Jahr = InputBox("Welches Jahr", , Year(Date))
With Application.FileSearch
.NewSearch
.LookIn = Pfad
.SearchSubFolders = True 'auch die Unterverzeichnisse
.Filename = Ext
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
If Year(FileDateTime(.FoundFiles(i))) = Jahr Then
Z = Z + 1
TB.Cells(Z, 1) = FileDateTime(.FoundFiles(i)) 'Datum
TB.Cells(Z, 1).NumberFormat = "DD/MM/YYYY" 'Datum formatieren
'Link erzeugen******
ActiveSheet.Hyperlinks.Add Anchor:=TB.Cells(Z, 2), _
Address:=.FoundFiles(i), TextToDisplay:=Dir(.FoundFiles(i))
'Pfad eintragen******
TB.Cells(Z, 3) = Left(.FoundFiles(i), Len(.FoundFiles(i)) - Len(Dir(.FoundFiles(i))))
End If
Next i
End With
'******Sortieren********
TB.Columns("A:C").Sort Key1:=TB.Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

In ein normales Modul copieren,
Startpfad und ggf Ext. anpassen
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: 2005 erstellte Dateien.. an Uwe.D
23.11.2005 16:37:39
Basti
Super ich bin immer nur am staunen, wie kommt man auf sowas. Gruß, Basti
AW: 2005 erstellte Dateien.. an Uwe.D
24.11.2005 07:56:36
Markus
Hallo UweD,
wow, vielen herzlichen Dank. Dieses Script ist einfach genial und genau dass, was ich gesucht habe :-)
Ich bekomme zwar noch am Ende einen 400er Fehler, aber damit kann ich leben.
1000nd Dank nochmals.
cu
Marco
AW: 2005 erstellte Dateien.. an Uwe.D
24.11.2005 07:56:41
Markus
Hallo UweD,
wow, vielen herzlichen Dank. Dieses Script ist einfach genial und genau dass, was ich gesucht habe :-)
Ich bekomme zwar noch am Ende einen 400er Fehler, aber damit kann ich leben.
1000nd Dank nochmals.
cu
Marco
AW: 2005 erstellte Dateien.. an Uwe.D
24.11.2005 08:07:52
Markus
@UweD
Der 400er Fehler trat durch die Sortierroutine auf. Ich nehme an, weil die Spaltenüberschriften fehlen.
Ich habe die Sortierroutine durch mein Makro ersetzt:
' Spaltenüberschriften einfügen und nach Datum sortieren
ActiveCell.FormulaR1C1 = "Datum"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Artikel"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Pfad"
Range("A1").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Jetzt funktioniert es :-)
Anzeige
@ Uwe und Markus
24.11.2005 08:18:45
Heiko
Hallo,
habe zum Thema auch ein wenig rumgespielt, dabei ist diese Datei rausgekommenmit mit Uwe´s und meiner Version.
FilesystemObject scheint noch ein wenig schneller zu sein als Filesearch.
Wenn es interessiert kann ja mal reinschauen.
Tabelle und Makro "Alter" Uwe´s Version
Tabelle und Makro "ShowDir" meine Version.
https://www.herber.de/bbs/user/28666.xls
Gruß Heiko
PS: Rückmeldung wäre nett !
AW: @ Uwe und Markus
24.11.2005 08:50:33
Markus
Hallo Heiko,
auch Dir vielen Dank für Dein Script.
Da ich Office 2000 verwende habe ich Deine Sortierroutine (s. mein letztes Posting) angepasst.
Lokal funktionierte Dein Script sehr gut und schnell. Als ich allerdings das selbe Script mit Pfadanpassung für Dateien auf unserem Server ausführte, hängte sich Excel auf.
Nicht böse sein, aber ich bin mit dem Script von UweD voll und ganz zufrieden und es entspricht genau meinen Anforderungen.
Dein script enthält trotzdem ein paar sehr interessante Routinen. Ich habe es mir deshalb in mein VBA-Lernverzeichnis gelegt :-)
Anzeige

228 Forumthreads zu ähnlichen Themen

Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Anzeige
Erweiterung eines Makros wg. Einlesen von Daten
Daten

Guten Morgen, kann man das Makro
Sub tt() Dim Zei As Long, Werte, W As Integer, Spa As Long For Zei = 30 To Range("A" & Rows.Count).End(xlUp).Row If InStr(Cells(Zei, 1), Chr(124)) > 0 Then Werte = Split(Cells(Zei, 1), Chr(124)) For W = LBound(Werte) To UBound(Werte) If Len(Werte(W)...
14.10.2008 08:20:04
Thread-ID: 1016214
9 Beiträge
Inhalt einer Webseite einlesen
Richard

Hallo,
ich hätt' da mal folgende Frage
Private Sub CommandButton1_Click() ThisWorkbook.FollowHyperlink "htt p://de.wikipedia.org/wiki/Hallo_Welt" End Sub
21.10.2008 11:22:37
Thread-ID: 1017906
5 Beiträge
Anzeige
Kein Textvergleich nach Einlesen aus TXT
sunni

Hallo da draußen :-),
ich habe ein Problem, an dem ich mir echt die Zähne ausbeiße:
Ich habe (über VBA) aus einer TXT Daten in Excel eingelesen. Die Zahlen konnte ich "verwendbar" machen, indem ich diese mit 1 multipliziert habe. Aber der Text wird nicht als Text erkannt.
Hintergrun...
30.10.2008 14:29:00
Thread-ID: 1020611
4 Beiträge
Aktuellen Pfad in Variable einlesen
Daniel

Hallo Excel-Götter,
ich als VBA-Dummie darf mich mit einem schönen Makro-Problem befassen:
Ich arbeite mit einem Excel-File, das Auswertungen aufgrund von Daten in einem 2.File macht. Beide Files liegen im gleichen Ordner auf meinem Rechner. Das ganze wurde erstellt von meinem Vorgänger...
07.11.2008 06:58:19
Thread-ID: 1022480
6 Beiträge
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Namen in Array einlesen und an Fkt. übergeben
adrian

Hi,
bin mir hierbei nicht ganz sicher ob das so klappt.
Möchte mit dier Funktion ("SearchOEM"), die ein Namen ("OEMName") zurückgibt, falls in einem Bereich ("ODMArea") ein Suchname ("ODMName") vorkommt.
Die Namen die diese Fkt. zurückgibt möchte ich in einem Array Speichern und an...
19.01.2009 13:06:00
Thread-ID: 1041390
4 Beiträge
Wert einer Zelle einlesen ?
Gerd

Halo!
Habe ein Problem bei dem ich nicht weiterkomme und bitte um Eure Hilfe.
Ich lese über VBA die letzte beschriebene bzw. erste freie Zeile in einer Tabelle aus in die ich dann schreibe. Ich hätte gerne daß VBA sich einen Wert, in dieser Zeile Spalte N merkt, ohne daß ich aber ein M...
03.02.2009 16:59:57
Thread-ID: 1046719
7 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
18
1
8
4
6
3
5
4
3
6
2
5
5
9
1
2
6
6
4
3
8
8
1
6
6