توكل قام بنشر فبراير 21, 2008 قام بنشر فبراير 21, 2008 لدي ماكرو كتبته لفتح ملفات TxT بواسطة الإكسل وتحويلها لجداول إكسل، ولكن عندما يكتب المستخدم اسم ملف خطأ في صندوق فتح الملف، أو يضغط على زر الإلغاء يتولد لدي رسالة خطأ بتنفيذ الماكرو، حاولت جاهداً أن أضع لها شرط بواسطة IF أو باستخدام In Error Go To لكن لم أفلح فهل لكم أن تفيدوني جزاكم الله خيراً وهذا هو الكود الذي أستخدمه لفتح الملفات و Workbooks.OpenText Filename:=InputBox("فتح ملف", "اكتب اسم الملف المطلوب") شكراً لكم على سعة صدركم سلفاً
ابو اسامة العينبوسي قام بنشر فبراير 21, 2008 قام بنشر فبراير 21, 2008 (معدل) ضع ههذ اول الكود On Error Resume Next تم تعديل فبراير 21, 2008 بواسطه ابو اسامة العينبوسي
توكل قام بنشر فبراير 23, 2008 الكاتب قام بنشر فبراير 23, 2008 شكراً لك أخي على الرد، ولكن أنا أريد أن أغلق الماكرو أو أعلم المستخدم بوجود خطأ، وفي حالة وضعت الكود On Error سوف يأخذ الخطوة التالية في الماكرو وهذا ما لا أريده جزاكم الله كل خير.
ابو اسامة العينبوسي قام بنشر فبراير 23, 2008 قام بنشر فبراير 23, 2008 (معدل) السلام عليكم استخدم on Error Goto omar omar = msgbox("your text") هنا رابط لكل انواع ال الخطا http://www.cpearson.com/excel/ErrorHandling.htm تم تعديل فبراير 23, 2008 بواسطه ابو اسامة العينبوسي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.