VB.NET DataTable如何导出Excel？

[word2009]

VB.NET DataTable如何导出Excel？

[蓝海D鱼]

Imports System.IO
Imports System.Text
Imports System.Data.SqlClient
Public Dt As New DataTable
Public Dr As DataRow
Public dc As DataColumn
Dim a As Integer
 Public Sub ToExcel()
        Dim MyApp As New Excel.Application
        Dim MyBook As Excel.Workbook
        Dim MySheet As Excel.Worksheet
        MyBook = MyApp.Workbooks.Add
        MySheet = MyBook.Worksheets("sheet1")
        Dim x As Integer
        Dim y As Integer
        For y = 0 To Dt.Columns.Count - 1
            MySheet.Cells(1, y + 1) = Dt.Columns(y).ColumnName
        Next
        x = 1
        Dim r As DataRow
        Dim col As DataColumn
        For Each r In Dt.Select
            x = x + 1
            y = 0
            For Each col In r.Table.Columns
                y += 1
                MySheet.Cells(x, y) = r(col.ColumnName)
            Next
        Next
        MyApp.Visible = True
    End Sub

[minicep]

真好需要到，谢谢楼上的！