Blätter einzeln speichern Blattname Fehler
01.09.2020 10:34:54
Frank
kann mir jemand weiter helfen, was das Problem bei folgendem Code ist
Sub B_Tab_nach_Reiter_speichern()
'Updateby20140612
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
FolderName = "C:\Temp" & "\" & "Zwischenspeicher"
MkDir FolderName
For Each xWs In xWb.Worksheets
xWs.Copy
If Val(Application.Version) mit dem Fehler: Laufzeitfehler'1004': Die Methode 'Copy' für das Objekt '_Worksheets' ist fehlgeschlagen.
Der Code hat bei vielen Dateien schon funktioniert und die einzelnen Blätter unter ihrem Blattnamen in dem erstellten Order abgespeichert. Wo kann hier der Fehler liegen?
Anzeige