[tecno2012]

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

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

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

[tecno2012]

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

[مبرمج بلا حدود]

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

[/COLOR]

[amgadtamer]

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

[مبرمج بلا حدود]

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

لم ينجح أيضاً

[tecno2012]

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

[ahmed salam]

اخي الكريم

مثال للكود

كود :

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

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