بررسی باز بودن فایل اکسل توسط VBA

در کد نویسی Office بعضی مواقع این ضرورت پیش می آید که بررسی کنید آیا یک فایل اکسل خاص در حال حاضر باز است یا خیر. در ادامه یک تابع ساده که توسط VBA تعریف شده به شما ارائه می شود که با استفاده از آن می توانید به این سوال پاسخ دهید :

Function IsWorkBookOpen(FileName As String)
                   Dim ff As Long, ErrNo As Long
               
                   On Error Resume Next
                   ff = FreeFile()
                   Open FileName For Input Lock Read As #ff
                   Close ff
                   ErrNo = Err
                   On Error GoTo 0
               
                   Select Case ErrNo
                   Case 0:    IsWorkBookOpen = False
                   Case 70:   IsWorkBookOpen = True
                   Case Else: Error ErrNo
                   End Select
               End Function


و این هم روش استفاده از این تابع

 

 

Sub TestSample()
                   Dim Ret
               
                   Ret = IsWorkBookOpen("D:\myWorkBook1.xlsx")
               
                   If Ret = True Then
                       MsgBox "File is open"
                   Else
                       MsgBox "File is Closed"
                   End If
               End Sub


 فرض کنید در یک برنامه اکسس می خواهید یک فایل اکسل را برای انجام کاری باز کنید. در این حالت با استفاده از این تابع می توانید باز بودن فایل را بررسی کنید. 

 
 
نویسنده : وحید فرزام
تاریخ انتشار : 1393-01-22 04:30:00
2192

0 نظر

user


تازه ترین ها