كيف أتخلص من رسالة الخطأ

[توكل]

لدي ماكرو كتبته لفتح ملفات TxT بواسطة الإكسل وتحويلها لجداول إكسل،

ولكن عندما يكتب المستخدم اسم ملف خطأ في صندوق فتح الملف، أو يضغط على زر الإلغاء يتولد لدي رسالة خطأ بتنفيذ الماكرو، حاولت جاهداً أن أضع لها شرط بواسطة IF أو باستخدام In Error Go To لكن لم أفلح فهل لكم أن تفيدوني جزاكم الله خيراً

وهذا هو الكود الذي أستخدمه لفتح الملفات

و

Workbooks.OpenText Filename:=InputBox("فتح ملف", "اكتب اسم الملف المطلوب")

شكراً لكم على سعة صدركم سلفاً

[ابو اسامة العينبوسي]

ضع ههذ اول الكود

On Error Resume Next

تم تعديل فبراير 21, 2008 بواسطه ابو اسامة العينبوسي

[توكل]

شكراً لك أخي على الرد، ولكن أنا أريد أن أغلق الماكرو أو أعلم المستخدم بوجود خطأ، وفي حالة وضعت الكود On Error سوف يأخذ الخطوة التالية في الماكرو وهذا ما لا أريده

جزاكم الله كل خير.

[ابو اسامة العينبوسي]

السلام عليكم

استخدم

on Error Goto omar
omar = msgbox("your text")

هنا رابط لكل انواع ال الخطا

http://www.cpearson.com/excel/ErrorHandling.htm

تم تعديل فبراير 23, 2008 بواسطه ابو اسامة العينبوسي