migrer des données vers excel

Question

Bonjour je suis novice en vb.net et je souhaiterais
 A partir des textbox de mon formulaire ,migrer les donn&#233;es vers un fichier excel qui se trouve dans mon repertoire  pour remplir des cellules pr&#233;cise 

une fois remplis je souhaiterais l'imprimer?

Comment le fait 'on?
io

cs_MACHOMAN · Answer

Avec ca j'exporte un datagrid vers un fichier excel, ca te mettra sur la piste.

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&#233;cup&#233;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 
'(DataGrid1.VisibleRowCount - 1)



Dim nbrColon 
As 
Integer = da.Columns.Count - 1 
'(DataGrid1.VisibleColumnCount - 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&#233;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

Migrer des données vers excel

1 réponse

Discussions similaires