ich stehe grad vor dem Schlauch mit der Bitte um Hilfe.
mit dem Folgendem Modul lese ich 3 Unterordner aus mit einem Matrix Initialisiere ich die Ordnernamen. Nach dem ersten Ordner lasse ich die Anzahl der xlsx. Dat ermitteln.( siehe '//Info )
nun möchte das alle ermittelten xlsx. dat Einzel geöffnet wird in der Mappe jede einzelne Sheet. als Datei in Ausgabepfad gespeichert wird. Wenn die Mappe Bearbeitet worden ist soll die nächste gefundene Datei geöffnet werden.
ich mache bei der Durcharbeit der 3 Schleife einen Fehler ,nur wo?
Vielen Dank für eure Hilfe
Wenn der Ordner (Beispiel V ) fertig bearbeitet worden ist soll nun der Ordner P untersucht werden usw.
Könn Ihr mir Helfen.
Gruss,
Option Explicit
Public Sub Steuerung()
'//deklarationen
Dim DateiName, i, a, Ausgabepfad, Dateipfad, DateiNamen As String
Dim objWorkbook As Workbook
Dim wks As Worksheet
Dim OrdnerMatrix As Variant
Dim z, Anzahl As Integer
'//Errorhandler initialisieren
On Error GoTo err_exit
Ausgabepfad = (ThisWorkbook.Path & "\" & "Output")
'//matrix initialisieren
OrdnerMatrix = Array("V", "P", "Z")
For i = 0 To 2
'//Datei und Ordnerangaben
Dateipfad = ThisWorkbook.Path & "\" & OrdnerMatrix(z) & "\"
DateiName = Dir(Dateipfad & "\*.xlsx*")
'//Anzahl der Dateien Ermitteln
DateiNamen = Dir(Dateipfad & "*.xlsx*")
Do While DateiNamen ""
DateiNamen = Dir
Anzahl = Anzahl + 1
Loop
Exit Sub
'//Excelmappen öffnen
For a = 0 To Anzahl
Set objWorkbook = Workbooks.Open(Dateipfad & DateiName)
Do
'//Tabbellen Kopieren und speichern
For Each wks In ThisWorkbook.Worksheets
ThisWorkbook.Worksheets(wks.Name).Copy
ActiveWorkbook.SaveAs Ausgabepfad & "\" & wks.Name
objWorkbook.Close SaveChanges:=False
Next wks
'//wird keine Mappe mehr gefunde Schleife verlassen
Loop Until DateiName = ""
Exit Sub
err_exit:
MsgBox "Fehler " & CStr(Err.Number) & vbLf & vbLf & _
Err.Description, vbCritical, "Fehlermeldung"
End Sub