نعم هو كذلك يعمل مع الاكسل
ولكن هذا هو كود الاكسل
Dim xlApp, xlBook
dim fso
dim curDir
set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = false
Set xlBook = xlApp.Workbooks.Open(curDir & "\Projram.xlsb")