Excel Dosyasının Otomatik açılması

[mozdem]

Makrolar içeren bir Excel dosyam var. Bu dosyam Makro çalışırken bir hata aldığımda Dosyamın kapanmasını, Kapandıktan hemen sonra açılsın istiyorum.
Kapatma işlemini yapabileceğimi düşünüyorum ama dosyayı açma işlemini nasıl yapacağımı bilmiyorum. Olabilir mi? Teşekkürler.

 

[mozdem]

Bir tanede dosya ekledim.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile kapatıp yeniden açabilirsiniz.

Sub test()
    Dim app As New Application
    app.Workbooks.Open (ThisWorkbook.FullName)
    app.Visible = True
    If Workbooks.Count = 1 Then
        ThisWorkbook.Close 
        Application.Quit
    Else
        ThisWorkbook.Close 
    End If
End Sub

 

[mozdem]

denedim ama dosyayı kapatıp tam olarak açmıyor.
Buradaki amacım, benim bilgisayar başında olmadığım zaman Dosyam açık ve Makro çalışırken Makro hata verir ise Dosyamı kapatsın kendi açılsın. Ben müdahale etmek zorunda olmayım. Örnek dosyamda kapatıyor ama nasıl açarım bilemedim.

 

[Korhan Ayhan]

Dosyayı kapatıp açmak yerine makroyu yeniden çalıştırmayı deneyiniz.

 

[Muzaffer Ali]

denedim ama dosyayı kapatıp tam olarak açmıyor.
Buradaki amacım, benim bilgisayar başında olmadığım zaman Dosyam açık ve Makro çalışırken Makro hata verir ise Dosyamı kapatsın kendi açılsın. Ben müdahale etmek zorunda olmayım. Örnek dosyamda kapatıyor ama nasıl açarım bilemedim.

Yukarıda verdiğim kodlar dosyayı kapatır ve yeniden açar.
Kodları test etmeden göndermedim.

Aslında çalışma dosyanızı ve hata veren kodları görsek belki hataya neden olan kısmı da çözebiliriz.
Böylelikle hiç hata vermez.
Her ihtimale karşı hata kontrolü yapıp eğer bir hata ile karşılaşılırsa dosya yeniden açıldığında çalışan kodlar hangisiyse oradan yeniden başlatılabilir.
Dosyayı kapatıp açmak anlamsız oluyor.

 

[mozdem]

Korhan Ayhan bey, Seyahat halinde olduğumdan maalesef geç cevap verebildim. Öneriniz doğrultusunda işlem yapacağım. Sanırım mantıklısı da bu.

 

[mozdem]

Muzaffer Ali bey, Seyahat halinde olduğumdan maalesef geç cevap verebildim. İlginiz için teşekkür ederim.

"Her ihtimale karşı hata kontrolü yapıp eğer bir hata ile karşılaşılırsa dosya yeniden açıldığında çalışan kodlar hangisiyse oradan yeniden başlatılabilir.
Dosyayı kapatıp açmak anlamsız oluyor." cümlenize katılıyorum. Bu yönde vba da düzeltmeler yapmaya çalışıyorum. Teşekkür ederim.