Bonjour à tous,
Je suis en train d'essayer d'écrire le contenu d'un Dataset dans un fichier EXCEL. J'ai vu quelques exemples mais cela ne fonctionne pas.
Actuellement mon code est :
J'ai biensur rajouté dans les références Microsoft Excel 11.0 Object Library.
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
37
38
39
40 Dim dvSU2PC As New DataView Dim dvPC2SU As New DataView Dim i As Integer Dim MyExcel As New Excel.Application MyExcel.Visible = False Dim MyWorkBook As Excel.Workbook = MyExcel.Workbooks.Add("c:\bla.xls") Dim MyWorkSheet As Excel.Worksheet = MyWorkBook.ActiveSheet 'init Dataviews & bindings dvSU2PC = myDataset.DefaultViewManager.CreateDataView(myDataset.Tables(0)) dvPC2SU = myDataset.DefaultViewManager.CreateDataView(myDataset.Tables(1)) MyExcel = New Excel.Application MyWorkBook = MyExcel.Workbooks.Open("c:\Trace.xls") MyWorkSheet = MyWorkBook.ActiveSheet ' Export Datas MyWorkSheet.Cells(1, 1) = "SU to PC" MyWorkSheet.Cells(1, 2) = "PC to SU" MyWorkSheet.Cells(1, 1).Font.Bold = True MyWorkSheet.Cells(1, 2).Font.Bold = True Dim dr As DataRowView i = 2 For Each dr In dvSU2PC MyWorkSheet.Cells(i, 1) = dr.Item("SU2PC") i = i + 1 Next i = 2 For Each dr In dvPC2SU MyWorkSheet.Cells(i, 2) = dr.Item("PC2SU") i = i + 1 Next 'Autofit the cells MyWorkSheet.Cells(1, 1).CurrentRegion.EntireColumn.AutoFit() MyWorkBook.Save() MyWorkBook.Close()
J'obtiens l'erreur :
Voila j'espère vous avoir donné toutes les infos. Si quelqu'un a une solution plus efficace qu'il n'hésite pas. J'ai essayé aussi la solution du tutoriel http://dotnet.developpez.com/cours/office/.An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in Relevés financiers.exe
Additional information: Old format or invalid type library.
Merci de votre aide...
Partager