Bild in Verzeichnis suchen und einfügen
16.12.2004 12:18:03
Chris26
wer weiß wie ich mit VBA Excel beibringe das es mir den Bildnamen der Zelle A1 nimmt, dann ein Verzeichnis mit allen Unterordnern durchsucht und falls es gefunden wird an Stelle c5 einfügt.
Den Code zum durchsuchen habe ich:
Private Sub CommandButton1_Click()
Dim i As Long
With Application.FileSearch
.LookIn = "Verzeichnis 1"
.LookIn = "Verzeichnis 2"
.SearchSubFolders = True
.Filename = Cells(1, 1)
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles.Item(i)
Next i
End If
End With
End Sub