Du hast mir bei folgendem PRoblem geholfen (MRR):
So sieht ein kleiner Teil meines Programmes aus:
'Const File = "\\mvxz9s01\Sysvol\wwz0sm.rootdom.net\Policies\{31B2F340-016D-11D2-945F-00C04FB984F9}\MACHINE\Microsoft\Windows NT\SecEdit\*.inf"
'Application.ScreenUpdating = False
'Set Paper = Sheet4
'On Error Resume Next
'Workbooks.OpenText File, Other:=True, OtherChar:="="
''Cells.Copy Paper.Range("A1")
'ActiveWorkbook.Close SaveChanges:=False
'Application.ScreenUpdating = True
Dieser Teil soll aus einem Verzeichnis eine *.inf-Datei heraussuchen und in das Excel-Sheet schreiben, so funktioniert es auch, jetzt möchte ich aber das die Suche nach der *.inf Datei ab dem Verzeichnis Policies beginnt, da dann in verschiedenen Unterverzeichnissen *.inf-Dateien enthalten sind!
Wer kann mir helfen!
Nur bitte keine neuen Methoden, ich muss die oben gezeigte Methode benutzen!
Bei weiteren Fragen sende ich auch gerne mein ganzen Skript zu!
Du gabst mir folgende Lösung die auch funktioniert hat:
Hi Sabrina,
versuch's mal wie folgt:
Sub Alle_Auf()
Dim Datei As FileSearch
Dim i As Integer
Const File = "\\mvxz9s01\Sysvol\wwz0sm.rootdom.net\Policies"
Application.ScreenUpdating = False
Set Paper = Sheet4
On Error Resume Next
Set Datei = Application.FileSearch
With Datei
.FileName = "*.inf"
.LookIn = File
.SearchSubFolders = True
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.OpenText .FoundFiles(i), Other:=True, OtherChar:="="
Cells.Copy Paper.Range("A1")
ActiveWorkbook.Close SaveChanges:=False
Next
End If
End With
Application.ScreenUpdating = True
End Sub
So jetzt habe ich nur noch das Problem, das er die 6 Dateien findet und den Inhalt in das Excel-Sheet schreibt, jedoch überschreibt er die Daten und hat am Schluss nur noch den Inhalt der letzten Datei im Excel-Sheet drinnen!
Wie kann ich das lösen, fande gestern einfach keine Lösung!!
Ich hoffe du kannst mir helfen oder der dies auch noch liest!!!
Gruß Sabrina