Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("Excel")
For Each p As Process In pProcess
p.Kill()
Next
يسلمو على هذا الكود ولكن اين اضعه يرجى الرد بالتفصيل
تعليق بسيط لماذا لا يوجد رد على الموضوع الذي ارسلته سابقا
[COLOR="#008000"]لقد جربت الكود لم يعمل معي
أنا اسف
[/COLOR]
قم باستدعاء الكود وليكن فى حدث form closing مثلا
amgadtamer كتب :قم باستدعاء الكود وليكن فى حدث form closing مثلا
لم ينجح أيضاً
لقد جربت الكود وعمل وضعته في اخر الاقتران الذي يقوم بفتح ملف اكسل ويغلقه ولكن هناك تحدث مشكلة وهي اذا كنت فاتح ملف اكسل وعامل عليه مجموعة تغييرات ونسيت ان اعمل له حفظ فانه يقوم باغلاق الملف دون ان يحفظ التغييرات
اخي الكريم
مثال للكود
كود :
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
ارجو ان يكون وفقني الله في الاجابه علي سؤالك