farklı bir excel uygulamasını kapatmak.

[Mahmut Kök]

Kullandığımız excel uygulamasından farklı bir excel uygulamasını nasıl kapatabiliriz. Mesela;

Dim a As Excel.Application
Set a = New Excel.Application
a.Workbooks.Open "c:\1.xls"
a.Visible = True

Yukarıdaki kodla açtığım "1.xls" adlı çalışma kitabını ve bu çalışma kitabının bulunduğu uygulamayı nasıl kapatabilirim? Şimdiden teşekkürler.

 

[Seyit Tiken]

Sub Düğme1_Tıklat()
Workbooks("kitap1.xls").Close
End Sub

Şeklinde deneyiniz.

 

[Mahmut Kök]

Sayın Seyyit Tiken, o şekilde denedim; ama olmuyor. Eğer aynı excel uygulamasında açılmış bir çalışma kitabı olsaydı, dediğiniz şekilde kapanıyordu; ama farklı bir excel uygulaması açıldığı için, verdiğiniz kod uygulanamıyor. İlginiz için teşekkürler...

 

[Haluk]

Dim MyXL As Object
Dim MyWb As Object
'
Sub OpenWB()       ' Yeni bir XL uygulamasi baslatip, dosyayi acar
    Set MyXL = CreateObject("Excel.Application")
    MyXL.Visible = True
    Set MyWb = MyXL.Workbooks.Open("[COLOR=Red][B]D:\TestFolder\Demo.xls[/B][/COLOR]")
End Sub
'
Sub CloseWB()       ' Yeni XL uygulamasini, acilan dosya ile birlikte kapar
    MyWb.Close
    MyXL.Quit
    Set MyWb = Nothing
    Set MyXL = Nothing
End Sub