Envoyer un DataTable vers Excel!

Version imprimable

Bonjour,
Je suis dépité! plus j'utilise VB.Net plus j’apprécie Vb6!

en effet en utilisant AdoDb.RocordSet il me suffit de faire CopyFromRecordset dans Excel pour remplir ma feuille.
si jutilise un DataTable il me faut 5 minutes pour faire un traitement qui me prenais une fraction de secondes?????

Code:

1
2
3
4
5
6
7
8
Using dataadapter As New SqlDataAdapter
            dataadapter.SelectCommand = New SqlCommand( _
               Sql, _SQLConn)
            Using ds As New DataTable()
                dataadapter.Fill(ds)
                Return ds
            End Using
        End Using

voila mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ExportXls(ByRef dt As DataTable, ByRef S As Object, ByVal r As Integer, ByVal c As Integer)
        Dim rowIndex As Integer = r : Dim colIndex As Integer = c
        For Each dr In dt.Rows
            colIndex = 0
            For Each dc In dt.Columns
                If rowIndex = r Then
                    S.cells(rowIndex, 1 + colIndex).value = "Action"
                    If colIndex <> 0 Then S.cells(rowIndex, 1 + colIndex).value = dc.ColumnName.ToString
 
                End If
                S.cells(rowIndex + 1, 1 + colIndex).value = "'" + dr(dc.ColumnName).ToString
                colIndex += 1
            Next
            rowIndex += 1
        Next
    End Sub

28/02/2018, 10h10
dmoya

Avez vous trouvé une nouvelle méthode?

Bonjour,

J'ai la même problématique que celle que vous exposez et je voulais savoir si vous avez trouvé une solution

J'utilise un programme pour créer des fichiers Excel à partir de données SQL que je récupère dans un datatable (ou une liste peu importe)
Les données sont écrites dans Excel avec des boucles lignes colonnes ça fonctionne.
vu la volumétrie cela dure beaucoup trop longtemps
J'ai essayé d'utiliser le presse papiers mais quand je colle les données , j'ai une erreur COM

Avez vous trouvé une méthode
Merci
28/02/2018, 19h47
star

Juste une question : Pourquoi ne pas extraire les données directement avec les fonctionnalités d'interrogation de bases de données de MS Excel plutôt que de développer une application ?
.
01/03/2018, 08h04
Invité

Bonjour,
J'ai résolu mon problème par l'absurde!

Personnellement il n'ai pas question de faire une application qui extrait de données sql serveur vers Excel (État en directions des utilisateurs qui répertorieles.modification opérées), mais un fonctionnalité d'une application bien plus conséquente!

Citation:

J'ai essayé d'utiliser le presse papiers mais quand je colle les données , j'ai une erreur COM

Oui moi également! Le comble c'est sur les icones copier/coller!
03/03/2018, 00h28
clementmarcotte

Citation:

Envoyé par dmoya

Bonjour,

J'ai la même problématique que celle que vous exposez et je voulais savoir si vous avez trouvé une solution

Finalement la question demeure Résolu ou pas ?

Lecture et exemples :

https://code.msdn.microsoft.com/Expo...ct-to-b3e2c1f0

https://code.msdn.microsoft.com/Exce...cs-to-95adc5a1

https://www.codeproject.com/Articles...able-and-Datag

Et puis, j'ai la flemme de chercher à la place des autres. En raccourcissant les liens dans ton navigateur Internet, tu devrais pouvoir remonter à MSDN et son moteur de recherche (Bing en fait) et à CodeProject et son moteur de recherche.

En utilisant la propriété ItemArray de l'objet DataRow, on récupère toutes les données de la ligne dans un tableau qu'on affecte à la plage de cellules dimensionnée en conséquence.
Cette méthode oblige à parcourir toutes les lignes mais pas chaque colonne de la DataTable, ce qui divise d'autant le temps de traitement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim xl As New Microsoft.Office.Interop.Excel.Application Dim wb As Microsoft.Office.Interop.Excel.Workbook Dim ws As Microsoft.Office.Interop.Excel.Worksheet Dim col as integer, i as integer wb = xl.Workbooks.Add ws = wb.Worksheets.Add col = DataRow In MonDataSet.Tables("MaTable").Columns.count i = 1 For Each dr As DataRow In MonDataSet.Tables("MaTable").Rows i = i + 1 ws.Range(ws.Cells(i, 1), ws.Cells(i, col)).Value = dr.ItemArray Next
Une autre solution en utilisant xml
Code:

1 2 3 4 5 6 7 Dim xl As New Microsoft.Office.Interop.Excel.Application Dim Fichier As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\monFichier.xml" MonDataSet.Tables("MaTable").WriteXml(Fichier) xl.DisplayAlerts = False xl.Workbooks.OpenXML(Fichier, , 2) xl.DisplayAlerts = True xl.visible = True

05/06/2018, 23h13
Invité

Bonsoir,
Personnellement j'avais utilisé un des exemples don Clément nous à fourni le lien , à savoir le presse papier.

Pour finir sur la bonne vielle méthode Ado, qui est pourtant a proscrire avec un CopyFromRecordSet dans Excel.

Il m'est insupportable de parcourir celulle par celulle un datatable en programmation objet avec un temps de traitement excessivement long alors que la vielle technologie le gère sens problème.

Voila absurde non?

En revanche j'envisage d'évoluer vers cristal reporte.