Açık Dosya Hk

[bulentkars]

Arkadaşlar Merhaba

Açık olan dosya açılıyorsa uyarı verebilirmiyiz örneğin Deneme.Xls dosyası açık ise tekrar açtığımda eğer dosya açık ise açıktır uyarsı versin değilse dosya yı açsın yardımlarınız için şimdiden teşekkür ederim

 

[ozgretmen]

Eğer dosyanız açık ve bu dosya üzerinde işlem yapmış ve aynı dosyayı tekrar açmaya çalıştığınızda aşağıdaki şekilde EXCEL size zaten bir uyarı verecektir.

 

[bulentkars]

Çalışma kıtabını makro aracılığı ile açıyorum end hatası veriyo.benim istediğim dosyayı açtığımda makro aracılığı ile ilk önce baksın dosya açıkmı değilmi açıksa uyarı versin değilse açsın..

 

[Levent Menteşoğlu]

Açtığınız dosyanın yolu nedir? yada dosyayı açtığınız koduda verebilirsiniz.

 

[bulentkars]

Workbooks.Open Filename:="C:\STOK\URUNLER.XLS"

 

[Levent Menteşoğlu]

Daha önce banada gerekli olduğu için nette araştırırken bulduğum güzel bir fonksiyon var onu öneriyorum size. Aşağıdaki fonksiyonu bir normal modüle kopyalayın ve dosya açma kodunuda aşağıdaki gibi düzenleyin.

Function IsExcelFileOpen(sFile As String) As Boolean
Dim iHandle As Integer
On Error Resume Next
iHandle = FreeFile
Open sFile For Input Lock Read As #iHandle
If Err.Number = 0 Then
IsExcelFileOpen = False
Else
IsExcelFileOpen = True
If Err.Number <> 70 Then
MsgBox Err.Description
End If
End If
Close iHandle
End Function

If IsExcelFileOpen("C:\STOK\URUNLER.XLS") = True Then
MsgBox "İlgili dosya açıktır."
Else
Workbooks.Open Filename:="C:\STOK\URUNLER.XLS"
End If

Kaynak: http://support.microsoft.com/default.aspx?scid=kb;en-us;213383

 

[bulentkars]

çok teşekkür ederim..