Na, szóval nem xls.close, hanem P.close

Dim Path As String
Dim xls As Object, P As Object
Path = "i:-=DTP & Office=-MeloPMP Bakony900228.xls"
Set xls = CreateObject("Excel.Application")
Set P = xls.Workbooks.Open(Path)
'code....
P.Close

a végére meg berakod amit Boraka írt az utolsó két sorában, hogy ne kíváncsiskodjon, hogy mit akarsz meg mit nem. (Persze jó az övé is)