SaveCopyAs funktioniert nicht
05.09.2018 20:58:00
Anna
ich möchte eine Arbeitsmappe kopieren und anschließend unter anderem Namen speichern. Leider funktioniert das ganze nicht. Der Debugger sagt mir, dass die Zeile gelesen wird aber eine Kopie wird nicht erstellt. Hat jmd eine Idee?
Sub TestSaveCopyAsAusPPt()
Dim strWorkbook As String
Dim objEcel As Object
Dim sWorkbook As Object
Dim sPfad1 As String
Dim sFile1 As String
sPfad1 = "C:\Benutzer\Desktop\Testpfad" 'Pfad der Orginaldatei
sFile1 = "TestMappe1.xlsm"
strWorkbook = sPfad1 & "\" & sFile1
Set objExcel = CreateObject("Excel.Application") 'Excel Datei im Hintergrund erstellt
objExcel.DisplayAlerts = False
objExcel.Workbooks.Open strWorkbook
Set sWorkbook = objExcel.Workbooks(sFile1)
objExcel.Visible = True
sWorkbook(sFile1).SaveCopyAs ("C:\Benutzer\Desktop\Testpfad\TestMappe2.xlsm, FileFormat:=52")
End Sub
(Das Makro wird aus einer Word Datei heraus gestartet)