Astuces Excel
  1. Astuces Excel
  3. Exportation de données de masse de SQL Server vers Excel dans VB
Intereting Posts
Excel2013 – return max (col C) du motif jumelage assorti dans le tableau (col B) à la string (col A) Le lien Excel Index ne correspond pas Comment sortinger une gamme de Rows jusqu'à un certain nombre de colonnes (inconnues)? excel VBA (pas VBScript) 101: Comment créer et lire un multidimensional array? Comment exporter un excel avec des données de table mysql avec des champs ayant des images Obtenir une erreur 400 dans VBA comment utiliser la valeur dans la cellule pour countr jusqu'à un nombre J'ai besoin d'un tableau qui vaires de différentes tailles de n et il doit correspondre à une list donnée Sélectionnez les critères suivants après avoir trouvé des allumettes Excel et parameters régionaux POI d'Apache Placez une cellule excel en gras cacher la colonne en fonction de la couleur de la police de la cellule dans une ligne vba Erreur d'exécution 1004 Méthode de collage de la feuille de calcul échouée (en essayant de coller dans le Presse-papiers) Excel pour find le premier et dernier index des cellules contenant des mots (ou une condition) Excel 2003, erreur VBA intermittente

Exportation de données de masse de SQL Server vers Excel dans VB

J'ai un code qui fonctionne pour des sets de données plus petits. Je reçois une erreur «hors memory» avec les énormes sets de données que j'utilise (800k lignes, 25 colonnes). J'essayais de find un moyen de changer cette colonne d'export en masse par colonne, ou peut-être split des sets de lignes, au lieu de tout en même time.

De toute évidence, il ne peut pas gérer autant de données. Je ne pouvais pas comprendre comment en séparer certains. Des idées? Merci! 

For Each dt As System.Data.DataTable In ds.Tables ' Copy the DataTable to an object array Dim rawData(dt.Rows.Count, dt.Columns.Count - 1) As Object ' Copy the column names to the first row of the object array For col = 0 To dt.Columns.Count - 1 rawData(0, col) = dt.Columns(col).ColumnName Next ' Copy the values to the object array For col = 0 To dt.Columns.Count - 1 For row = 0 To dt.Rows.Count - 1 rawData(row + 1, col) = dt.Rows(row).ItemArray(col) Next Next ' Calculate the final column letter Dim finalColLetter As Ssortingng = Ssortingng.Empty Dim colCharset As Ssortingng = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim colCharsetLen As Integer = colCharset.Length If dt.Columns.Count > colCharsetLen Then finalColLetter = colCharset.Subssortingng( _ (dt.Columns.Count - 1) \ colCharsetLen - 1, 1) End If finalColLetter += colCharset.Subssortingng( _ (dt.Columns.Count - 1) Mod colCharsetLen, 1) ' Fast data export to Excel Dim excelRange As Ssortingng = Ssortingng.Format("A1:{0}{1}", finalColLetter, dt.Rows.Count + 1) excelSheet.Range(excelRange, Type.Missing).Value2 = rawData excelSheet = Nothing Next

Existe-t-il un autre code qui manipule la feuille de calcul Excel? Sinon, il serait probablement plus rapide d'écrire ceci dans un file text en format CSV. Excel ouvrira le CSV et le présentera comme une feuille de calcul normale.