A file Named Resume.XLW already exists in this location. Do you want to Replace It

[hsa100]

السلام عليكم

اثناء حفظ ملف اكسيل من خلال vb6 من خلال الامر التالى

XLApp.ActiveWorkbook.Save

تظهر الرسالة التالية

A file Named Resume.XLW already exists in this location. Do you want to Replace It

كيف يمكن التغلب عبى هذه المشكلة

شكرا لكم

 

[ياسر خليل أبو البراء]

أخي الكريم

يرجى تغيير اسم الظهور للغة العربية

بالنسبة لرسالة معناها أن هناك مصنف بنفس الاسم ويطلب منك الاستبدال ...يمكن التغلب على المشكلة حسب رغبتك

هل ترغب باستبدال المصنف الجديد مكان المصنف القديم ؟

أم أنك ترغب في تسمية المصنف باسم جديد؟

وهل الرسالة مرتبطة بتنفيذ كود ؟ أم أنك تحاول حفظ المصنف بنفس الاسم في نفس المسار؟

مزيد من التوضيح ليستطيع الأخوة مساعدتك

[hsa100]

الكود يقوم بحفظ التغيرات على ملف الاكسيل اولا بأول بنفس الاسم فى نفس المسار

[ياسر العربى]

كدا احتمال حاجه غلط لان الملف لو انت فاتحه نفسه هيحفظ علي طول في نفس مساره انما بقي شكلك اخد نسخه منه في مكان تاني وبتجرب يحفظ بيروح يحفظه في المسار القديم. اللي هو موجود فيه النسخه التانيه 

علي ما اظن دا السبب وممكن لو الملف اتفتح في وضع القرأ ة فقط بردو يعمل كدا

وحله سهل بس محتاجين نتأكد ارفق مثال للملف للتوضيح 

ام انك ترغب بعمل نسخه احتياطية في مسار معين كل مدة ودائما يتم ظهور الرسالة لاستبدال الملف وانت تريدها لا تظهر ويستبدل علي طول؟؟؟؟؟؟؟

[hsa100]

Set XLApp = CreateObject("Excel.Application")
    Set xlWB = XLApp.Workbooks.Add     
    
    Set xlWB = XLApp.Workbooks.Open(App.Path & "\data.xls")    'Open an existing workbook
    Set XLSh = xlWB.Sheets("sheet1")
    XLApp.AlertBeforeOverwriting = False
    XLApp.DisplayAlerts = False
    XLApp.ActiveWorkbook.Save      

المشكلة تحدث اذا انتقلت الى اى sheet آخر ثم العودة مرة اخرى الى sheet1

[ياسر خليل أبو البراء]

أخي الكريم ارفق الملف الذي يحوي الكود .. لسهولة التعرف على شكل الكود وتجربته أولاً قبل التعديل عليه