فراخوانی یک فایل اکسل در فایل دیگر

[ZAMEN58]

سلام خدمت دوستان عزیز
من فایلی دارم که در قسمتی از اون باید اطلاعات را از فایل دیگر بخونه برای همین این کد رو نوشتم که از فولدری که فایل اصلی در اون هست فایلی با اسم AB را باز می کنه و اطلاعات را می خونه :
""& PathName = Application.ActiveWorkbook.Path
"Filename = "AB.xls
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename:=PathName & Filename
مشکل من اینه که اگر فایلی با نام AB موجود نباشه برنامه بهم میریزه
لطفا راهنمایی کنید چطور میتونم شرطی بگذارم که اگر فایل موجود نبود ماکرو متوقف بشه
ممنون از راهنمایی شما

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Ali Parsaei]

سلام،
اينجوري کد را بنويسيد:

If Not Dir(ActiveWorkbook.Path & "/AB.xls") = "" Then
Application.Workbooks.Open Filename:=ThisWorkbook.Path & "/AB.xls"
End If 

يا درصورتي که مي خواهيد اگر فايل يافت نشد کار خاصي انجام دهيد آن را به شرط فوق اضافه کنيد

[ZAMEN58]

سلام اون کد جواب نداد
من اینطوری نوشتم جواب داد