Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Windows-Suchergebnisse in Excel einlesen

Forumthread: Windows-Suchergebnisse in Excel einlesen

Windows-Suchergebnisse in Excel einlesen
24.08.2005 15:32:56
Bosse
Hallo,
ich habe folgendes Problem: Ich möchte die Windows-Suchergebnisse in eine Excel-Datei einlesen. Ist das möglich? Wenn nicht, wie kann ich die Dateien dann am besten einlesen (z.B. wenn ich sie vorher in einen seperaten Ordner kopiere). Vielen dank für eure Hilfe.
Mein OS: Win XP Pro SP1, Excel 2002
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Windows-Suchergebnisse in Excel einlesen
24.08.2005 15:43:19
Matthias
Hallo Bosse,
ein Beispiel:

Sub suchen()
Dim i
With Application.FileSearch
.LookIn = "c:\"
.FileType = msoFileTypeExcelWorkbooks
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
End With
End Sub

Mehr findest auch in der VBA-Hilfe unter "FileSearch".
Gruß Matthias
Anzeige
AW: Windows-Suchergebnisse in Excel einlesen
25.08.2005 09:29:20
Bossi
Kann ich jetzt auch noch den Pfad abschneiden, so dass nur der Dateiname übrig bleibt?
AW: Windows-Suchergebnisse in Excel einlesen
25.08.2005 09:36:15
Matthias
Hallo Bossi,
so:

Sub suchen()
Dim i As Long
Dim n As String
With Application.FileSearch
.LookIn = "d:\xl"
.FileType = msoFileTypeExcelWorkbooks
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
n = .FoundFiles(i)
Cells(i, 1) = Mid(n, InStrRev(n, "\") + 1)
Next i
End With
End Sub

InStrRev() gibt es aber erst ab Excel XP.
Gruß Matthias
Anzeige
AW: Windows-Suchergebnisse in Excel einlesen
25.08.2005 09:37:29
bossi
Und wie kann ich andere Dateien außer Excel-Sheets einlesen?
AW: Windows-Suchergebnisse in Excel einlesen
25.08.2005 09:46:03
Matthias
Hallo Bossi,

.FileType = msoFileTypeAllFiles

schau doch mal in der VBA-Hilfe unter FileSearch.
Tschüß,
Matthias
AW: Windows-Suchergebnisse in Excel einlesen
25.08.2005 13:09:17
Bossi
kann ich auch nach *.123 Dateien suchen? Hab dazu leider nichts in der Hilfe gefunden. Wie würde das aussehen, wenn ich nach *.xls und *.123 Dateien suchen lassen würde? Lassen sich auch die Create/Modify-Daten der Dateien mit abfragen lassen, so dass z.B. nur die Dateien der letzten 6 Monate eingelesen werden?
vielen dank für die bisherige Unterstützung
Anzeige
AW: Windows-Suchergebnisse in Excel einlesen
25.08.2005 16:19:12
Matthias
Hallo Bossi,

Sub suchen()
Dim i As Long, zeile As Long
Dim n As String
Dim pos As Integer
Cells.ClearContents
Cells(1, 1) = "Dateiname"
Cells(1, 2) = "Pfad"
Cells(1, 3) = "Änderungdatum"
zeile = 1
With Application.FileSearch
.NewSearch
.LookIn = "d:\xl"
.Filename = "*.*"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
n = .FoundFiles(i)
Select Case UCase(Right(n, 4))
Case ".123", ".XLS"
zeile = zeile + 1
pos = InStrRev(n, "\")
Cells(zeile, 1) = Mid(n, pos + 1)
Cells(zeile, 2) = Left(n, pos - 1)
Cells(zeile, 3) = FileDateTime(n)
End Select
Next i
End With
End Sub

FileDateTime() kannst du auch zur Filterung verwenden...
Gruß Matthias
Anzeige
;

Forumthreads zu verwandten 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
Daten in Spreadsheet einlesen
otto

Hi,
ich möchte Daten aus Tabelle in ein Spreadsheet einlesen, kommt aber "Objektdefinierter Fehler".
Was mach ich falsch ?
Dim zeiles As Integer, spalte As Integer, anzahl
zeile = 123
spalte = 1
For anzahl = 1 To 42
Spreadsheet1.Cells(zeiles, spalte) = Sheets("Liefer...
01.10.2008 11:05:50
Thread-ID: 1013552
2 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
Inhalte von Worddatei in Excel einlesen
Worddatei

Hallo,
gibt es eine Moglichkeit die Inhalte von mehreren Worddatei, die sich alle in einem Ordner befinden in Excel einfügen zu lassen.
Dabei soll auf jeder Tabelle der Excelmappe der Inhalt einer Worddatei erscheinen. auf der ersten Tabelle will ich später ein Inhaltsverzeichnis mit L...
26.10.2008 13:30:00
Thread-ID: 1019368
7 Beiträge
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
Anzeige
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
Inhalt einer ListBox in die ComboBox einlesen
Edie

Hallo Zusammen,
wie kann ich den Inhalt einer ListBox in die ComboBox einlesen?
Bei z. B. cboPfad.Value = lstGeneral.List(lstGeneral.ListIndex) wird nur ein
Wert eingelesen, nicht aber der ganze Inhalt der „lstGeneral“
Hat jemand einen Tipp oder Beispiel?
Vielen Dank im Vor...
11.02.2009 08:37:00
Thread-ID: 1049438
3 Beiträge
Bereichsnamen auslesen, in anderer Datei einlesen
Jörg

Hallo Forum,
ich lese meine vergebenen Bereichsnamen aus mit
Sub Namen_lesen_und_Bereich_angeben() For n = 1 To Names.Count Cells(n, 1) = Names(n).Name Cells(n, 2) = Names(n).Value Next n End Sub
Anschließend kopiere ich das Register in eine andere Datei und versuche dort die Be...
03.03.2009 15:46:37
Thread-ID: 1056016
6 Beiträge
Anzeige
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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