Excel导出数据

    'Private Sub BtnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExport.Click

    '    Dim dt_Export As DataTable

 

    '    'RowCount统计行数,ColumnCount统计列数

    '    Dim RowCount, ColumnCount As Integer

 

    '    dt_Export = DGVExport.DataSource.tables(0)

 

    '    If (IsNothing(dt_Export)) Then

    '        MsgBox("exit")

    '        Exit Sub

    '    End If

 

    '    '定义Excel应用程序的对象

    '    Dim xlsApp As Excel.Application

    '    '定义Excel工作区的对象

    '    Dim xlsSheet As Excel.Worksheet

 

    '    xlsApp = CreateObject("Excel.Application")

 

    '    xlsApp.Application.Workbooks.Add(True)

    '    xlsSheet = xlsApp.Worksheets(1)

 

    '    RowCount = dt_Export.Rows.Count

    '    ColumnCount = dt_Export.Columns.Count

 

    '    xlsSheet.Columns.NumberFormat = "@"

 

    '    For i = 0 To ColumnCount - 1

    '        xlsSheet.Cells(1, i + 1) = dt_Export.Columns(i).ColumnName.ToString

    '    Next

 

    '    For i = 0 To RowCount - 1

    '        For j = 0 To ColumnCount - 1

    '            xlsSheet.Cells(i + 2, j + 1) = dt_Export.Rows(i).Item(j).ToString

    '        Next

    '    Next

 

    '    SaveFileForm.InitialDirectory = "D:/graduate file/"

    '    SaveFileForm.Filter = "xls files|*.xls|all files|*.*"

    '    SaveFileForm.FilterIndex = 1

    '    If SaveFileForm.ShowDialog() = Windows.Forms.DialogResult.OK Then

    '        xlsSheet.SaveAs(SaveFileForm.FileName)

    '        MsgBox("导出成功")

    '    End If

    '    xlsSheet = Nothing

    '    xlsApp.Quit()

    'end sub