açılamayan belge için mesaj versin ve işleme devam etsin

[pelikan11]

Merhaba,
normalde aşağıdaki komutu kullanarak istediğim belgeyi açabiliyorum.

adres = ("\\server\dosya1\dosya2\belge.xlsx")
Workbooks.Open adres

Ama server'a erişemeyip belgeyi açamadığımda makro hata mesajı veriyor ve makro yarım kalıyor.
Bunun yerine msgbox'da "belgeye erişilemiyor" gibi bir mesaj verdirip diğer işlemlere geçebilirmiyim?

 

[asi_kral]

Merhaba
Bu kodu dener misin_?

Option Explicit
[COLOR="Red"]Sub açık()
Dim HT As Variant, adres As String
On Error GoTo HT[/COLOR]
adres = ("\\server\dosya1\dosya2\belge.xlsx")
Workbooks.Open adres
[COLOR="red"]Exit Sub
HT:
MsgBox "Dosyaya Erişilemiyor", vbCritical[/COLOR]
End Sub

Kırmızı bölümler eklenmiştir.

 

[pelikan11]

Ufak tefek değişiklikler ile kendi makroma uyguladım ve makrom istediğim şekilde çalıştı.
Teşekkür ederim..

 

[asi_kral]

Ufak tefek değişiklikler ile kendi makroma uyguladım ve makrom istediğim şekilde çalıştı.
Teşekkür ederim..

Kolay Gelsin.

 

[Salyangoz]

Selamlar Arkadaşlar,

Ben makrosuz bu işlemi yapmak istiyorum, dokümanımda herhangibir şekilde makro yok, açıkçası olmadan işlem yapabilmek istiyorum.

Bu durumda bir dosyaya erişemediğsem hata vermesi yerine "boş" yazdır gibi bir formül var mı ? Mesela yazdırdığım dosyayı bulamadığı için bir pencere açılıyor ve dosyayı göster diyor, ben bunun yerine "boş" kalması veya "hata" yazması için denemeler yapıyorum ama açıkçası henüz gerçekleştiremedim, ne önerirsiniz ?

Teşekkürler