تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
منع حفظ التغيرات على ملف اكسل عند استخدامه من داخل ال vb
#1
اذا كان لدي ملف اكسل يحتوي على نموذج معين وانا اقوم بفتح هذا الملف من داخل ال vb ومن ثم اقوم بكتابة المعلومات التي احتاجها من داخل البرنامج واحفظ الملف باسم مثلا name والملف الاصلي الذي يحتوي على النموذج يبقى كما هو ولا يتم حفظ التغييرات عليه

السؤال:هل من طريقة لكي امنع من حفظ اي تغيير على الملف الاصلي لانه احيانا قد يصدف خلل في البرنامج ولا يصل الى تنفيذ الجمل جميعها ويؤدي ذلك الى حفظ التغييرات على الملف الاصلي؟
الرد }}}}
تم الشكر بواسطة:
#2
اين الرد هل من احد يجيب
الرد }}}}
تم الشكر بواسطة:
#3
اخي الكريم
استخدم save as بدلا من save
مثال للكود
كود :
Dim ReportApp As New excel.Application
        Dim ReportWB As excel.Workbook
        Dim ReportWS As excel.Worksheet

        ReportWB = ReportApp.Workbooks.Open(Application.StartupPath & "\temp.xls")
        ReportWS = ReportWB.Worksheets("اسم الشييت")

ReportWB.Application.DisplayAlerts = False
        ReportWS.SaveAs(Application.StartupPath & "\Out.xls")
        ReportWB.Close()
        ReportApp.Quit()


و هذا السطر هو الذي يلغي رسالة تأكيد الحفظ بأن الملف موجود من قبل هل تريد الكتابة عليه
ReportWB.Application.DisplayAlerts = False

ارجو ان يكون وفقني الله في الاجابه علي سؤالك
اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة:
#4
انا عامل الكود save as ولكن انا اقصد الملف الاصلي الذي افتحه في كل مرة ادخل على صفحة البرنامج واخذه كنموذج اكتب عليه واعمل save as اما الاصلي لا احفظ عليه
ربما يكون الحل اذا كان لدي طريقة اعمل تعطيل لكل الازرار في الصفحة بحيث لا تفعل الا بعدما يتنهي من الحفظ ويعطي رسالة تم الحفظ بنجاح
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اربط تكست بوكس مع تكست بوكس اخر داخل تقرير report viewer 78hus78ali 1 32 24-09-17, 01:32 PM
آخر رد: زيد زينوبي
  [سؤال] كيفية نسخ النصوص من داخل ليست بوكس تنمية المعرفة 7 139 12-09-17, 11:15 PM
آخر رد: تنمية المعرفة
  [كود] استفسار داخل اليست بوكس عبدالرحمن المكاوي 3 88 11-09-17, 05:29 PM
آخر رد: سعود الشامان
Lightbulb [مثال] تحويل التاريخ الميلادي الى هجري داخل الداتا جريد من قاعدة بيانات اكسس محمود بكرى 20 490 30-08-17, 02:37 PM
آخر رد: محمود بكرى
  كود لتشغيل اى برنامج داخل نموذج VB.Net konter 3 132 28-08-17, 11:54 AM
آخر رد: konter
  [VB.NET] طلب كود معرفة موضع مؤشر الماوس داخل التيكست بوكس waelalmsry75 7 250 07-08-17, 02:46 AM
آخر رد: waelalmsry75
  استفسار عن كود تصدير بيانات داتا قريد الى اكسل وورود Marwan9990 4 150 23-07-17, 05:00 PM
آخر رد: Marwan9990
  [سؤال] طريقة الفرز داخل مربع النص abosaleh56 5 205 12-07-17, 10:23 AM
آخر رد: abosaleh56
Question [VB.NET] احتاج كود انتقال الى صفحة انترنت (داخل الفيجوال بيسك) The Light Fire 1 143 11-06-17, 12:56 AM
آخر رد: qadar elzaman
  [سؤال] استفسار عن كود الاتصال بملف اكسل او اكسس ابو محمد القحطاني 7 245 06-06-17, 06:49 PM
آخر رد: الراشيدي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم