save excel file issue

[nexusm]

hi all,
i use this code to fill an excel file
....
Dim xlApp As Excel.Application
Dim wbxl As Excel.Workbook
Dim wDAT As Excel.Worksheet
Dim wCEL As Excel.Range
Set xlApp = CreateObject("Excel.Application")
Set wbxl = xlApp.Workbooks.Open(sTABEL)
Set wDAT = xlApp.Sheets(1)

wDAT.Cells(3, 3).Value = xValue
....
wbxl.Save (or SaveAs newFileName)
xlApp.Workbooks.Close
Set xlApp = Nothing

the code work fine but under office 2010 when i try to save on error ocur.
what i must to do to solve this issue ?
i think, something is missing in my installing package, but what ?

thanks in advance for any sigestion

[DataMiser]

This line is not valid

wbxl.Save (or SaveAs newFileName)