Soru UPDATE.dcm Word Dosyası hariç açık olan excelleri kapatmak

[bulentkars]

Arkadaşlar Merhaba;

açık olan UPDATE.dcm dosyası hariç açık olan tüm excelleri kapatmak istiyorum. kod word dosyasında çalışacak. yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

Word çalışma kitabı : UPDATE.dcm
UPDATE.dcm hariç açık olan Excel çalışma kitaplarının tümünü kapatmak istiyorum.

 

[alicimri]

İnternette Word VBA to Close Excel Application | MrExcel Message Board adresinde aşağıdaki kodu buldum, işinize yarayabilir.

Sub excelkapa()
Dim Excel As Excel.Application
    Dim ExcelOpened As Boolean
   
    ExcelOpened = False
    On Error Resume Next
    Set Excel = GetObject(, "Excel.Application")
    If Excel Is Nothing Then
        Set Excel = New Excel.Application
        ExcelOpened = True
    End If
    On Error GoTo 0

    With Excel
        If ExcelOpened Then
            .Visible = True
            .Workbooks.Add
        End If
        .ActiveWorkbook.Close False
        .Quit
    End With
   
End Sub

Not: Tools menüsünden Microsoft Excel...... referans verin

 

[bulentkars]

Sayın alicimri;
Elinize emeğinize sağlık çok teşekkür ederim.