ник: Дядя Федор
Описания добавить может?*
Dim ExlApp As Object
Dim WrkBk As Object
Set ExlApp = CreateObject("Excel.Application")
Set WrkBk = ExlApp.WorkBooks
WrkBk.Open "c:\folder\n.xml"
WrkBk.SaveAs "c:\folder\n.xls", -4143 'xlWorkbookNormal
WrkBk.Close
ExlApp.Quit