lente exportation de l'accès à Excel

Question

Je dois générer environ 800 fichiers Excel à partir d'une base de données d'accès.

Pour les 10-15 premiers, ça marche bien, quelques secondes/fichier Excel mais ça prend toujours plus de temps, au 150ème fichier Excel, ça prend 10 minutes.

Voici mon code:

Il fait cela pour chaque nrliste dans la table d'accès (environ 800 d'entre eux)

Dim lista = From ls In Liste _ 
         Where ls!Concatenare = nrliste(i) _ 
        Select ls 
      Dim table = lista.CopyToDataTable 
      Dim DataArr(table.Rows.Count, 30) 

      For x = 0 To table.Rows.Count - 1 
       For y = 0 To 30 
        DataArr(x, y) = table.Rows(x).Item(y) 
       Next 
      Next 


      Dim filetocopy As String 
      Dim newcopy As String 
      Dim tempname As String = nrliste(i).ToString 
      Dim filename As String = "LISTA INV OBI(MF) LA 30.09.2009_" & tempname.Replace("#", "_") 
      filetocopy = Environment.CurrentDirectory & "\MACHETA.xls" 
      newcopy = FolderBD.SelectedPath & "\" & filename & ".xls" 
      If System.IO.File.Exists(newcopy) = True Then 
       System.IO.File.Delete(newcopy) 
       System.IO.File.Copy(filetocopy, newcopy) 
      Else 
       System.IO.File.Copy(filetocopy, newcopy) 
      End If 

      'excel file 
      Dim xlWBook As Excel.Workbook = xlApp.Workbooks.Open(newcopy) 
      Dim xlSheet As Excel.Worksheet = CType(xlWBook.Worksheets("Lista inventar OBI de natura MF"), Excel.Worksheet) 

      'insereaza liniile necesare 
      For n = 11 To ((lista.Count - 1) + 11) 
       With xlSheet 
        .Rows(n).Insert(Excel.XlDirection.xlDown, 1) 
       End With 
      Next 

      'copiaza datele 

      With xlSheet 

       .Range(.Cells(11, 1), .Cells(table.Rows.Count + 11, 31)).Value = DataArr 

      End With 

Answer 1

au lieu des lignes Insérer je vais essayer de faire CopyFromRecordset un ensemble d'enregistrements. Vous devrez essentiellement retravailler votre logique bien sûr.

Mais surtout, où fermez-vous l'objet feuille de calcul Excel une fois que vous avez terminé?

Answer 2

Je ne sais pas, mais je regardais combien de fichiers finissent par avoir ouvert dans Excel tous en même temps. Fermez-vous les fichiers une fois que vous avez fini de les écrire? Peut-être que cela les maintient ouverts, alors au moment où la feuille de travail 150'th est ouverte, il pourrait être difficile pour l'utilisation de la mémoire. Aussi, je dirais, essayez de passer par le code dans un débogueur, et voir quel bit est lent (ou ralentir au fil du temps) - cela aidera à affiner la cause du problème.

Answer 3

Fermez-vous le classeur une fois que vous avez terminé (dans la boucle)?

xlWBook.Close 
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWBook) 

Regardez fil this, qui explique la nécessité de libérer toutes les interfaces COM.

EDIT: J'ai vu vos commentaires, en réponse à @ 1800 Information.

Dim lista = From ls In Liste _ 
         Where ls!Concatenare = nrliste(i) _ 
        Select ls 

Que fait cette requête linq?

EDIT2: Essayez d'exécuter le SQL dans MS-Access pour voir comment il fonctionne? En outre, je vais suggérer de rejeter LINQ pour l'instant & utiliser l'ancien objet de commande ADO.net simple avec une requête paramétrée. Sinon, un simple moyen & serait de tirer tous les enregistrements (où ID entre votre valeur min et max) dans un DataTable et de le filtrer en mémoire et de faire un transfert direct (sans utiliser tableau et éviter d'écrire des valeurs rangée par rangée, cellule par cellule).

Je vais essayer de trouver, si c'est possible. (c'est-à-dire utiliser un ensemble de données filtré et l'écrire dans un fichier Excel).

Espérons que cela vous donne, un indice sur la façon de procéder.

Answer 4

Vous pouvez essayer d'utiliser un tableur de transfert Docmd comme cela devrait être plus rapide

DoCmd.Transferspreadsheet .... 

Ensuite, vous pouvez toujours ouvrir le fichier en utilisant l'automatisation Excel après

Answer 5

Un rapide coup d'oeil à votre code me fait remettre en question l'appel à .Rows (n) .Insert (Excel.XlDirection.xlDown, 1) pour chaque ligne. Vous devriez pouvoir appeler Insérer une fois pour toutes les lignes. Insérer des lignes dans une feuille de calcul est coûteux même si vous insérez simplement 1 ligne - surtout si vous insérez dans une grande feuille de calcul ou dans un classeur avec beaucoup de formules.

accélère généralement des applications telles que la vôtre (vous pouvez voir quelques citations confirmant ce here - sur le côté droit de la page). SpreadsheetGear a également une méthode IRange.CopyFromDataTable de sorte que vous n'aurez pas à copier les données dans un tableau temporaire.L'API SpreadsheetGear est similaire à l'API d'Excel. La conversion de votre code est donc simple. Vous pouvez télécharger un essai gratuit here si vous voulez l'essayer.

Disclaimer: Je possède SpreadsheetGear LLC