[حل شده] کد برای عدم وجود

[kazem1359]

سلام در کد زیر یک فایل اکسل از طریق ماکرو موجود در یک فایل اکسل دیگه فعال می شه حالا کدی می خوام که اگر اون فایلی که در کد هست باز نبود پیام بده فایل باز نیست. ممنون میشم یکی از دوستان پاسخ بده

Sub Macro1()
'
' Macro1 Macro
'

Windows("Bank.xlsx").Activate
Range("A1").Select
Columns("A:A").Select
End Sub

[iranweld]

با سلام

کد ذیل را تست کنید

مسیر و نام فایل را در کد اصلاح کنید.

Sub openMyFile()

     fPath = "c:\" 

     fName = "Book1.xlsx"

    On Error Resume Next
    Workbooks(fName).Activate
     
    
    If Err = 0 Then
    
    MsgBox fPath & fName & " : File is opened"
    
        Exit Sub
    End If
     
    Err.Clear
    
    
    Workbooks.Open fPath & fName
    
    If Err = 1004 Then
    
    MsgBox fPath & fName & " : File not found"
    
        Exit Sub
        
    End If
     
End Sub 

[kazem1359]

حل شد سپاس