VBA ile Dosya Acik mi Kontrolu

Istediginiz bir dosyanin adresini vererek dosyanin acik olup olmadigi kontrolunu yapabileceginiz bir kod paylasiyorum, kodumda herhangi bir dizin belirtmeyecegim yani bulundugumuz klasoru kontrol ediyor olacak.

“Hedef.xlsx” olarak belirttigimiz bolumu dosya dizinini girerekte istediginiz bir klasordeki istediginiz bir dosyanin acik mi oldugu kontrolunu yapabilirsiniz.

Private Function Dosya_Acikmi(mtn_Dosya_Adi) As Boolean
     
Dim w As Workbook
On Error Resume Next
Set w = Workbook(mtn_Dosya_Adi)
If Err Then Dosya_Acikmi = False Else Dosya_Acikmi = True
On Error GoTo 0

End Function

Sub Dosya_Acikmi_Kontrolu()

Kontrol_Sonucu = Dosya_Acikmi("Hedef.xlsx")
MsgBox (Kontrol_Sonucu)

End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


2 + 2 =