Office: Dateien suchen und Kopieren

Hallo,

da ich nur Excel benutze und keine Makros schreiben kann wende ich mich an euch.
Ich habe ein Laufwerk auf dem sich sehr viele Dateien befinden in verschiedenen Verzeichnissen
da muss ich meine 3 bis 4 Dateien finden und auf ein anderes Laufwerk Kopieren.
In einer Excel Tabelle habe ich in Spalte 2 einen Teil des Dateinamens nach dem
ich suchen muss. Ich brauche ein Makro das den Teil des Namens aus der markierten Zelle
nimmt die Dateien sucht und in den Zielordner Kopiert.
Würde mich freuen, wenn irgend jemand mir helfen kann.

Gruß
sibix

:)

 

Hallo,

mit VBA und einer API geht das relativ einfach. Da du aber nach Selbsteinschätzung nicht so fit in VBA bist, kann es schon eine Herausforderung werden:

Hier mein Code aus dem Archiv: der Pfad- und Dateiname muss angepasst werden:

PHP:

         Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
ByVal RootPath As String, _
ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long


Private Sub Test()
Dim Retval As Long, TmpStr As String * 256

Suche beginnen
Retval = SearchTreeForFile("c:\users\office", "11*.xls?", TmpStr)
If Retval = 0 Then
MsgBox "Es wurde keine Datei mit diesem Namen gefunden"
Else
MsgBox Left$(TmpStr, InStr(1, TmpStr, vbNullChar) - 1), , _
"Gefundene Datei"
End If
End Sub


 

Dank ich werde es morgen testen aber anstelle "11*" brauche ich die den Namen aus der angewählten zelle.

Gruß
Sibix