Discussion :

[spamitovic]

Salut,

J'aimerai exporter une table (mysql) vers excel. Avez-vous des exemples ?

Merci et dsl si je demande d trop mais j'ai cherché sur pas mal de site

[sihammaster]

Salut,

Voila un exemple, essayer ca:

NB:Faut d'abord importer la référence d'excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
'espace d'importation 
Imports Excels = Microsoft.Office.Interop.Excel
Imports system.data.sqlclient
 
'la declaration     
 Dim xlApp As Excels.Application
Dim xlWorkBook As Excels.Workbook
Dim xlWorkSheet As New Excels.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
 
'créer la feuille excel :
xlApp = New Excels.ApplicationClass
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("sheet1")
 
'la tu defini ta requete 
 
dim com as .....................
'Ecrire dans excel
 'le champ a afficher depuis sql
xlWorkSheet.Cells(1, 1) = “valeur” 
 
xlWorkSheet.Cells(2, 1) = “valeur”
.....
 
'Enregistrer le fichier Excel
 
Dim ch As String
Dim SaveFileDialog1 AsNew SaveFileDialog()
Dim result As DialogResult = SaveFileDialog1.ShowDialog()
If (result = Windows.Forms.DialogResult.OK) Then
   ch = SaveFileDialog1.FileName
   xlWorkSheet.SaveAs(ch)
   xlApp.Application.Quit()
EndIf

[spamitovic]

Merci pour la réponse... désormais, il me donne un bug sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
xlWorkBook = xlApp.Workbooks.Add(misValue)

Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))

[MABROUKI]

bonjour
la declaration doit etre corrigee un peu ,ca ne passe pas ainsi que la sauvegarde du fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
'on cree un nouveau classeur pas une feuille 
 Dim xlApp As Excels.Application=New Excels.ApplicationClass
'utiliser worsheets au lieu de sheets
Dim xlWorkBook As Excels.Workbook=xlApp.Workbooks.Add("nouvClasseur.xls")
'on se place sur la feuille d'index 1
'(eviter les noms de feuille parce il change suivant le pays panneau de config.)
Dim xlWorkSheet As Excels.Worksheet=xlWorkBook.Worsheet(1)
 
 'Enregistrer le "Classeur" fichier Excel
 
  xlWorkWorkBook.SaveAs(ch)
  xlApp.Application=Nothing
  'fermer Excel
   xlApp.Application.Quit()
EndIf