Visual Basic

Imports Microsoft.Office.Interop
Imports System.Globalization
Imports System.Threading
Public Class CreateXLS
    Public Sub GenerateXLS(ByVal Table As DataTable, ByVal TargetXLSPath As String)
        Table.WriteXml("C:\tmpxls.xml")
        Dim oldCI As CultureInfo = Thread.CurrentThread.CurrentCulture
        Try
            'Start Excel and open the resulting file.
            Dim oExcel As New Excel.Application
            Thread.CurrentThread.CurrentCulture = New CultureInfo("en-US")
            oExcel.Workbooks.Add()
            oExcel.Workbooks.OpenXML("C:\tmpxls.xml")
            oExcel.ActiveWorkbook.SaveAs(TargetXLSPath)
            oExcel.Application.Quit()
        Catch
            Throw New ArgumentException("Error in File Saving")
        Finally
            My.Computer.FileSystem.DeleteFile("C:\tmpxls.xml")
            Thread.CurrentThread.CurrentCulture = oldCI
        End Try
    End Sub
End Class