منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اغلاق ملف الاكسل من داخل ال vb.net - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اغلاق ملف الاكسل من داخل ال vb.net (/showthread.php?tid=6599)



اغلاق ملف الاكسل من داخل ال vb.net - tecno2012 - 21-10-12

Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("Excel")
For Each p As Process In pProcess
p.Kill()
Next

يسلمو على هذا الكود ولكن اين اضعه يرجى الرد بالتفصيل

تعليق بسيط لماذا لا يوجد رد على الموضوع الذي ارسلته سابقا


اغلاق ملف الاكسل من داخل ال vb.net - tecno2012 - 31-10-12

اين الرد يا اخوان


اغلاق ملف الاكسل من داخل ال vb.net - مبرمج بلا حدود - 31-10-12

[COLOR="#008000"]لقد جربت الكود لم يعمل معي
أنا اسف

[/COLOR]


اغلاق ملف الاكسل من داخل ال vb.net - amgadtamer - 31-10-12

قم باستدعاء الكود وليكن فى حدث form closing مثلا


اغلاق ملف الاكسل من داخل ال vb.net - مبرمج بلا حدود - 31-10-12

amgadtamer كتب :قم باستدعاء الكود وليكن فى حدث form closing مثلا

لم ينجح أيضاً


اغلاق ملف الاكسل من داخل ال vb.net - tecno2012 - 01-11-12

لقد جربت الكود وعمل وضعته في اخر الاقتران الذي يقوم بفتح ملف اكسل ويغلقه ولكن هناك تحدث مشكلة وهي اذا كنت فاتح ملف اكسل وعامل عليه مجموعة تغييرات ونسيت ان اعمل له حفظ فانه يقوم باغلاق الملف دون ان يحفظ التغييرات


اغلاق ملف الاكسل من داخل ال vb.net - ahmed salam - 13-11-12

اخي الكريم

مثال للكود
كود :
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

ارجو ان يكون وفقني الله في الاجابه علي سؤالك