This project has moved. For the latest updates, please go here.

Saving to XLS format

Aug 9, 2010 at 8:50 PM
Is there a way that I can open an Excel XML file and then save it in the XLS format similar to what I would with this code? Private Function ConvertXMLtoXLS(ByVal FileFullName As String) As String Dim OutputFileName As String Dim wb As Workbook Dim exc As New Microsoft.Office.Interop.Excel.Application Dim Ran As New System.Random Try OutputFileName = FileFullName.ToLower.Replace(".xml", Ran.Next(10000, 99999).ToString + ".xls") wb = exc.Workbooks.Open(FileFullName, ReadOnly:=False) wb.SaveAs(OutputFileName, Microsoft.Office.Interop.Excel.XlFileFormat.xlWorkbookNormal) Return OutputFileName Catch ex As Exception Throw Finally If wb IsNot Nothing Then wb.Close() End If exc.Workbooks.Close() exc.Quit() End Try End Function
Coordinator
Aug 10, 2010 at 7:40 PM

No, this component is OOXML (xlsx) only at this time. If you need xls you can use  the NPOI project here on codeplex.

Jan