主题：DataTable如何导到EXCEL？

Dim cmd As new SQLCommand

    Dim dt As DataTable

    cmd.C

    cmd.CommandText = "Select * from 表A"

    dt = cmd.ExecuteReader

    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

    dlg.Filter= "Excel文件|*.xls" '设置筛选器

    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

        Tables(dt.name).SaveExcel(dlg.FileName, "表A")  '保存文件

    End If

请问如何导出dt到EXCEL

Dim Book As New XLS.Book '定义一个Excel工作簿

    Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

    Dim Style As Xls.Style = Book.NewStyle '新建一个样式

    Style.BackColor = Color.Red '样式的背景颜色设为红色

    For c As Integer = 0 To dt.dataCols.Count -1 '添加列标题

        Sheet(0, c).Value = dt.dataCols(c).Name

    Next

    For r As Integer = 0 To dt.dataRows.Count - 1 '填入数据

        For c As Integer = 0 To dt.dataCols.Count -1

            Sheet(r +1, c).Value = dt.DataRows(r)(c)

        Next

        

    Next