Soru Excel SavecopyAs Close Delete

[hlojan]

Merhaba;

Yapmak istediğim İşlem Adımları

• Örnek A.xlsm Açalım
• Aynı Path a SaveAs ile "B.xlsm" diye kaydet
• A.xlsm Sil
• B.xlsm yi SaveCopyAs ile C.xlsm diye kaydet
• Aktif açık olan "B.xlsm" yi Kapat dosyayı sil ve Exceli tamamen kapat

Dim Eskibook As String
Eskibook = ActiveWorkbook.FullName
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\B.xlsm"
End With
Kill Eskibook

With ActiveWorkbook
.SaveCopyAs "O:\C.xlsm"
End With

Araexcelwb = ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
ActiveWorkbook.close
Kill Araexcelwb
Application.Quit

Bu şekilde yaptığımda B.xlsm kapanıyor. Excel açık kalıyor

yardımlarınızı bekliyorum

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Eskibook As String
    
    Eskibook = ActiveWorkbook.FullName
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\B.xlsm"
    Kill Eskibook
    
    Eskibook = ActiveWorkbook.FullName
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\C.xlsm"
    Kill Eskibook
    
    If Workbooks.Count = 1 Then
        Application.Quit
    Else
        ActiveWorkbook.Close
    End If
End Sub