Imports System.Xml

Imports System.Data

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim xlApp As Excel.Application

        Dim xlWorkBook As Excel.Workbook

        Dim xlWorkSheet As Excel.Worksheet

        Dim misValue As Object = System.Reflection.Missing.Value



        Dim ds As New DataSet

        Dim xmlFile As XmlReader

        Dim i, j As Integer



        xlApp = New Excel.ApplicationClass

        xlWorkBook = xlApp.Workbooks.Add(misValue)

        xlWorkSheet = xlWorkBook.Sheets("sheet1")



        xmlFile = XmlReader.Create("Product.xml", New XmlReaderSettings())

        ds.ReadXml(xmlFile)



        For i = 0 To ds.Tables(0).Rows.Count - 1

            For j = 0 To ds.Tables(0).Columns.Count - 1

                xlWorkSheet.Cells(i + 1, j + 1) = _

                ds.Tables(0).Rows(i).Item(j)

            Next

        Next



        xlWorkSheet.SaveAs("xml2excel.xlsx")

        xlWorkBook.Close()

        xlApp.Quit()



        releaseObject(xlApp)

        releaseObject(xlWorkBook)

        releaseObject(xlWorkSheet)

    End Sub



    Private Sub releaseObject(ByVal obj As Object)

        Try

            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)

            obj = Nothing

        Catch ex As Exception

            obj = Nothing

        Finally

            GC.Collect()

        End Try

    End Sub

End Class