المشاركات : 101
المواضيع 31
الإنتساب : Oct 2012
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("Excel")
For Each p As Process In pProcess
p.Kill()
Next
يسلمو على هذا الكود ولكن اين اضعه يرجى الرد بالتفصيل
تعليق بسيط لماذا لا يوجد رد على الموضوع الذي ارسلته سابقا
المشاركات : 481
المواضيع 35
الإنتساب : Oct 2013
السمعة :
6
الشكر: 9709
تم شكره 1454 مرات في 137 مشاركات
[COLOR="#008000"]لقد جربت الكود لم يعمل معي
أنا اسف
[/COLOR]
المشاركات : 489
المواضيع 3
الإنتساب : Nov 2013
السمعة :
13
الشكر: 4
تم شكره 162 مرات في 59 مشاركات
قم باستدعاء الكود وليكن فى حدث form closing مثلا
المشاركات : 101
المواضيع 31
الإنتساب : Oct 2012
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
لقد جربت الكود وعمل وضعته في اخر الاقتران الذي يقوم بفتح ملف اكسل ويغلقه ولكن هناك تحدث مشكلة وهي اذا كنت فاتح ملف اكسل وعامل عليه مجموعة تغييرات ونسيت ان اعمل له حفظ فانه يقوم باغلاق الملف دون ان يحفظ التغييرات
المشاركات : 39
المواضيع 3
الإنتساب : Nov 2012
السمعة :
3
الشكر: 0
تم شكره 53 مرات في 6 مشاركات
اخي الكريم
مثال للكود
كود :
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
ارجو ان يكون وفقني الله في الاجابه علي سؤالك
اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته