Bitte nochmals Hilfe
02.02.2005 08:29:46
Karl
ich habe diesen Code, der mir Verzeichnisse und Unterverzeichnisse nach bestimmten Dateien durchsucht. Nun sollen bestimmte Zellbereiche der ungeöffneten Dateien in ein Arbeitsmappe übernommen werden. Wer weiß wie ich sowas dort eintragen kann?
Private Sub CommandButton2_Click() 'Werte einfügen
Dim I As Long
With Application.FileSearch
.LookIn = "H:\home"
.SearchSubFolders = True
.Filename = "*.xls"
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles.Item(I)
Next I
End If
End With
End Sub