إغلاق الاكسيل بضغطة زر

[عبدالقادر غموزي]

السلام عليكم ورحمة الله وبركاته
لدي ملف أكسيس  فيه زر في نموذج ومن خلاله اريد تصدير ملفات الأكسيل حسب  نموذج موجود سابقا وحسب شروط معينة، السؤال هو كود لإغلاق جميع ملفات الإكسيل المفتوحة مسبقا وإغلاق برنامج اكسيل نهائيا قبل الشروع في تصدير الملفات الأكسيل، وشكرا لكم.

[husamwahab]

السلام عليكم

تفضل اخي الكريم ارجو ان يكون طلبك

Dim appExcel As Object
On Error Resume Next
Set appExcel = GetObject(, "Excel.Application")
appExcel.Application.DisplayAlerts = False
appExcel.Application.Save
appExcel.Application.DisplayAlerts = True
appExcel.Application.Quit
Set appExcel = Nothing

 

تم تعديل أبريل 16, 2020 بواسطه husamwahab

[Shivan Rekany]

1 ساعه مضت, عبدالقادر غموزي said:

السؤال هو كود لإغلاق جميع ملفات الإكسيل المفتوحة مسبقا وإغلاق برنامج اكسيل نهائيا قبل الشروع في تصدير الملفات الأكسيل

اتفضل اليك هذا الكود

Public Sub Terminate(Process As String, Optional PID As Long = 0)
  StrPID = IIf(Not PID = 0, " AND ProcessId=" & PID, "")
 
  Set Obj = GetObject("winmgmts:\\.\root\CIMV2")
  Set ColItems = Obj.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & Process & "'" & StrPID, , 48)
 
  For Each Obj In ColItems
      Obj.Terminate
  Next
End Sub

تقدر ان تغلق كل انواع البرامج بهذه الطريقة

فقط عليك ان تكتب اسم البرامج عند تدعيه

مثلا هنا نريد ان نغلق ملفات اكسل المفتوحة هكذا سنستدعيه عند الضغط على الزر

Private Sub Command28_Click()
Call Terminate("Excel.exe")
End Sub

 

تم تعديل أبريل 16, 2020 بواسطه Shivan Rekany

[عبدالقادر غموزي]

4 ساعات مضت, husamwahab said:

شكرا لكم على المساعدة لقد تم تجريب الكود الأول للسيد حسام وهاب وهو يعمل جيدا.