Abspeichern der Datei
22.10.2019 16:41:54
thomas
benötige Hilfe von euch.
Und zwar habe ich folgendes Problem:
Bei dem folgenden Code müsste der festgelegte Pfad ersetzt werden in "Abspeichern in den Ordner wo die Hauptdatei gespeichert ist.
Damit der Einsatzort der Excel-Datei variieren kann.
Zur Erklärung was der Code bewirkt:
Speichert jedes Tabellenblatt in einen eigene Datei ab.
Private Sub CommandButton1_Click()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Parent.SaveAs Filename:= _
"C:\Users\xyz\Desktop\" _
& ActiveSheet.Name & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
.Parent.Close
End With
Next i
End Sub
Ich wäre euch sehr verbunden wenn es zu dem Problem eine Lösung gibt.
Vielen Dank im voraus.
Gruß Thomas
Anzeige