Office: Dateien auf Laufwerk suchen

vbanewcomer · 19. April 2011

Hallo liebe Gemeinde,
ich suche mir hier den Wolf um mittels VBA ein bestimmtes Laufwerk zu durchsuchen und in einer Liste alle Treffer mit Dateiort aufzulisten.

Problem: ich kann nicht nach einem Dateinamen suchen sondern muß eine Variante wählen, nach der ich den Inhalt, oder Teilinhalt, einer bestimmten Zelle auslesen muß.

Die Dateinamen können u.U. geändert worden sein wesahlb ich das mit dem Inhalt machen muß.

- suche in Laufwerk D:\ nach Exceldatei mit dem Inhalt hilfe in Zelle B5 Tabelle1

- trage den Fundort in nächster freier Zeile der Scriptdatei ein.

- Wenn keine Treffer mehr gebe Meldung ( msgbox )

Hat das schonmal jemand gemacht ??

vielen Dank
vbanewcomer

:)

IngGi · 21. April 2011

Hallo vbanewcomer,

folgendes Makro durchsucht das gesamte Laufwerk D mit allen Unterordnern nach Exceldateien. Es werden nur Exceldateien bis einschließlich Excelversion 2003, also solche mit der Dateiendung ".xls" berücksichtigt. Deine Frage war nicht mit Excel2007 gekennzeichnet; ich hoffe das ist so richtig. Wenn nicht, melde dich einfach nochmal.

Die gefundenen Dateien werden geöffnet und auf den Zellinhalt in B5 auf Tabelle1 geprüft. Steht dort "hilfe", wird der Dateipfad und -name untereinander in die Spalte A der Tabelle1 der Makrodatei geschrieben. Anschließend werden die gefundenen Dateien wieder geschlossen. Am Ende wird ein Erledigungshinweis ausgegeben.

'#######################################################
'# #
'# Code einfügen in: #
'# ein allgemeines (benutzerdefiniertes) Modul #
'# #
'#######################################################
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Option Explicit

Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim objSubFolder As Object

Public Sub Dateien_darstellen()

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\")

Application.ScreenUpdating = False
Unterordner
Application.ScreenUpdating = True

MsgBox "F e r t i g !!!"

End Sub

Private Sub Unterordner()

Dim wb As Workbook

For Each objFile In objFolder.Files
If Right(objFile.Name, 4) = ".xls" Then
Set wb = Workbooks.Open(objFile.Path)
If wb.Sheets("Tabelle1").Range("B5") = "hilfe" Then
ThisWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0) = objFile.Path
End If
wb.Close False
End If
Next 'objFile

For Each objSubFolder In objFolder.SubFolders
Set objFolder = objSubFolder
Unterordner
Set objFolder = objFSO.GetFolder(objFolder.Path & "\.")
Next 'suf

Set wb = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VBA/HTML - CodeConverter für Excelforen
AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi
Anbindung an VBE-Kontextmenü geklaut ;-) bei:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vbanewcomer · 22. April 2011

Hallo Ingolf,
werde ich gleich mal testen

Gruß vbanewcomer

vbanewcomer · 22. April 2011

funktioniert leider nicht

Excel findet eine Datei wenn ich als Suchort gleich den richtigen kompletten Pfad angebe.

Excel öffnet sie, allerdings wird sie nicht geschlossen und aufgelistet wird sie leider auch nicht

Gruß vbanewcomer

vbanewcomer · 26. April 2011

hat zufällig noch jemand eine Idee ??

Gruß vbanewcomer

Office: Dateien auf Laufwerk suchen

Dateien auf Laufwerk suchen

Dateien auf Laufwerk suchen

Dateien auf Laufwerk suchen

Dateien auf Laufwerk suchen - Similar Threads - Dateien Laufwerk

Name der Datei durch Excel geändert

Zugriff auf nicht vorhandene Datei seitens Excel

Makro öffnet unerwartete Datei

Große Textdatei - Formate entschlacken

Word 2000-Datei beschädigt?

Zwei Dateien vergleichen - Zielinfo in unterschiedlichen Spalten

Anzahl der Downloads bereitgestellter Dateien anzeigen