أ.Eng. Abdullah
جرب هذا الكود لفتح وغلق ملف اكسيل
بالتوفيق
Dim objXLApp As Object
Dim objXLBook As Object
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = True
Set objXLBook = objXLApp.Workbooks.Open(مسار الملف مثلا"D:\library\library.xlsm")
objXLApp.Application.Visible = True
objXLBook.Save
objXLBook.Close
objXLApp.Quit