Hi Leute,
ich versuche mittels vba mehrere Excel Datein nacheinander zu öffnen und kopiere dann ein paar Zellen. Nun habe ich mit On Error versucht Dateien zu überspringen, welche nicht das Worksheet "DB_Real" enthalten. Klappt sowei auch ganz gut.
Einziges Problem: Wenn die letzte Datei das Worksheet nicht enthält, schließt sich auch das Sheet, in welches ich die Daten reinkopiere.
Könnt ihr mir sagen, was bei dem Code geändert werden muss?
Vielen Dank im Vorraus
Fehlerr:
On Error Resume Next
Set wkbInput = Application.Workbooks.Open(strPath & "\" & strFile)
Set wksInput = wkbInput.Worksheets("DB_Real")
If Err.Number <> 0 Then
ActiveWorkbook.Close (False) ' Aktive Arbeitsmappe schließen
strFile = Dir ' Nächsten Eintrag abrufen
GoTo Fehlerr
End If
On Error GoTo 0
|