Exporter DataTable vers Excel

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

xlApp = CType(CreateObject("Excel.Application"), Excel.Application)

xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)

xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)

'datatable pour récupérer le nom des colonnes du datagrid

Dim da As New DataTable

' mise des infos ds le datagrid

Dim nbrLigne As Integer = da.Rows.Count - 1
Dim nbrColon As Integer = da.Columns.Count - 1

Dim x, y As Integer

For x = 0 To nbrColon

'titres colonnes

xlSheet.Rows(1).Font.Bold = True ' mise en gras

'données

For y = 0 To nbrLigne

Next

Next

' Show the sheet.

xlSheet.Application.Visible = True

' Save the sheet to C:\Test.xls directory.

' Optionally, you can call xlApp.Quit to close the work sheet.

xlSheet = Nothing

xlBook = Nothing

xlApp = Nothing

da = Nothing