Exporter DataTable vers Excel [Résolu]

Question

Posez votre question Signaler Répondre au sujet

Exporter DataTable vers Excel [Résolu]

thefada 65 Messages postés vendredi 8 juillet 2005Date d'inscription 25 janvier 2008 Dernière intervention - 15 août 2005 à 14:24 - Dernière réponse : cs_MACHOMAN 25 Messages postés mercredi 1 novembre 2000Date d'inscription 2 février 2006 Dernière intervention

- 16 août 2005 à 09:24

Visual Basic Posez votre question Signaler Répondre au sujet

Salut tout le monde, je cherche a exporter une table que j'ai dans un dataset au format excel .xls.

J'ai vu une solution appelee Tab Delimited
Format mais elle ne me convient pas car elle ne permet pas de donner des noms aux colonnes(or j'en ai 18 :/)

Toute aide serait la bienvenue.

Thefada

Afficher la suite

1 réponse

Accepted Answer

+3

Utile

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

SQlDAviewer.Fill(da)

' 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.Cells(1, x + 1) = da.Columns(x).ColumnName

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

'données

For y = 0
To nbrLigne

xlSheet.Cells(y + 2, x + 1) = DataGrid1.Item(y, x)

Next

Next

' Show the sheet.

xlSheet.Application.Visible =
True

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

xlSheet.SaveAs("C:\LPDataViewer.xls")

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

xlSheet =
Nothing

xlBook =
Nothing

xlApp =
Nothing

da =
Nothing

Cette réponse vous a-t-elle aidé ? Oui Non

Exporter DataTable vers Excel [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !