Datatable을 Excel로 내보내기

    '   Excel  
    Public Sub ExportExcel(ByVal dt As DataTable)

        '*********  Excel    ***********  
        Dim ExcelApp As New Excel.Application()
        Dim ExcelBook As Excel.Workbook
        Dim ExcelSheet As Excel.Worksheet
        Dim IntRowIndex As Integer = 1
        Dim IntColIndex As Integer = 0
        '-------------------------------------  
        '*************     **************  
        ExcelBook = ExcelApp.Workbooks().Add
        '*************     *************  
        ExcelSheet = ExcelBook.Worksheets("sheet1")

        '-------------------------------------  
        '***         ,      ***  
        Dim dtCol As DataColumn
        Dim dtRow As DataRow
        For Each dtCol In dt.Columns
            IntColIndex = IntColIndex + 1
            ExcelApp.Cells(1, IntColIndex) = dtCol.ColumnName
        Next
        '-------------------------------------  
        '****        ,      *****  
        For Each dtRow In dt.Rows
            IntRowIndex = IntRowIndex + 1
            IntColIndex = 0
            For Each dtCol In dt.Columns
                IntColIndex = IntColIndex + 1
                ExcelApp.Cells(IntRowIndex, IntColIndex) = dtRow(dtCol.ColumnName)
            Next
        Next
        '-------------------------------------  
        '**************      **********  
        With ExcelSheet
            '       
            .Range(.Cells(1, 1), .Cells(1, IntColIndex)).Font.Name = "  "

            '        
            .Range(.Cells(1, 1), .Cells(1, IntColIndex)).Font.Bold = True

            '         
            .Range(.Cells(1, 1), .Cells(IntRowIndex, IntColIndex)).Borders.LineStyle = 1

            ' Excel         
            .Cells.EntireColumn.AutoFit()
        End With

        ExcelApp.Visible = True

    End Sub