Soyez le premier à donner votre avis sur cette source.
Snippet vu 19 977 fois - Téléchargée 35 fois
Function plop() Dim ds As New DataSet Dim dv0 As New DataView Dim dv1 As New DataView Dim i As Integer Dim MyExcel As Excel.Application Dim MyWorkBook As Excel.Workbook Dim MyWorkSheet As Excel.Worksheet ds.ReadXml("file.xml") 'init Dataviews & bindings dv0 = ds.DefaultViewManager.CreateDataView(ds.Tables(0)) dv1 = ds.DefaultViewManager.CreateDataView(ds.Tables(1)) MyExcel = New Excel.Application MyExcel.Visible = False 'Excel will not open MyWorkBook = MyExcel.Workbooks.Add MyWorkSheet = MyWorkBook.ActiveSheet ' Export Datas MyWorkSheet.Cells(1, 1) = "tab1" MyWorkSheet.Cells(1, 2) = "tab2" MyWorkSheet.Cells(1, 1).Font.Bold = True MyWorkSheet.Cells(1, 2).Font.Bold = True Dim dr As DataRowView i = 2 For Each dr In dv0 MyWorkSheet.Cells(i, 1) = dr.Item("tab1col") i = i + 1 Next i = 2 For Each dr In dv1 MyWorkSheet.Cells(i, 2) = dr.Item("tab2col") i = i + 1 Next 'Autofit the cells MyWorkSheet.Cells(1, 1).CurrentRegion.EntireColumn.AutoFit() 'Save & Close MyWorkBook.SaveAS("C:\file.xls") MyWorkBook.Close() End Function
9 mars 2009 à 12:10
28 juil. 2007 à 12:27
6 juin 2006 à 15:59
bien interessant mais il sort d'ou le "file.xml" ?
10 déc. 2004 à 11:54
ça fait grosso modo la meme chose en beaucoup plus rapide sur des gros volumes.
9 déc. 2004 à 17:56
cela permet par exemple de passer de 3-4 minutes 1 seconde pour un recorset de plusieurs milliers de lignes
la méthode consiste a affecter la source de la requete a excel. PLutot que de le remplir case par case, la requete est lancée puis affectée en un temps record. si ça interresse quelqu'un je ferais des tests et je le posterais.
merci en tout cas pour la source car moi je cherchais la référence a excel et je l'ai eu ici sans avoir à ouvrir un neurone ;)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.