Улучшить производительность написания MS Excel - PullRequest
Новая
       4

Улучшить производительность написания MS Excel

2 голосов
/ 09 августа 2010

У меня проблемы с производительностью при чтении / записи данных в / в ячейки MS-Excel. Я использую библиотеку объектов MS Excel 11.0 для автоматизации с VB.NET.

В настоящее время чтение и запись из / в файлы Excel занимает слишком много времени. (10 минут, чтобы прочитать 1000 строк :(). Кажется, что поэтапный подход к чтению и записи не настолько эффективен. Есть ли способ чтения / записи данных с помощью массовой операции?

Ответы [ 2 ]

6 голосов
/ 09 августа 2010

Вместо того, чтобы читать ячейку за ячейкой, вы можете прочитать весь диапазон и сохранить его в двумерном массиве.Затем вы можете получить доступ к двумерному массиву так же, как и к ячейке в Excel.

Я не очень разбираюсь в VB.NET для объектов Excel, но если вы понимаете C #, тогда быстро прочитайте эту ссылку и попробуйтереализовать его.

http://dotnetperls.com/excel-interop Прочтите раздел «Получение данных рабочей книги»

4 голосов
/ 10 августа 2010

Отлично !!!

Я использовал подход двухмерного массива и добился огромного прироста производительности !!.

Ранее я использовал межклеточный подход, как показано ниже, 

Dim cell As Excel.Range = Nothing
cell = sheet.Cells(rowIndex, colIndex)
cell.Value = "Some value"

Я использовал для перебора диапазона ячеек и использовал для копирования значения в каждой ячейке.Здесь каждый sheet.Cells и cell.Value является вызовом взаимодействия и для каждого вызова он вызывает вызов Excel.exe, который стоит больше времени.

В 2D-подходе я заполнил данные, которые должны бытькопируется в ячейки Excel, в 2D-массив, а затем назначается 2D-массиву для значения выбранного диапазона ячеек.Как показано ниже, 

Dim darray(recordCount - 1, noOfCol - 1) As String
//Fill the data in darray
//startPosRange = Get the range of cell from where to start writing data
startPosRange = startPosRange.Resize(recordCount, noOfCol)
startPosRange.Value = darray

После этих модификаций я собрал данные о производительности для обоих подходов, и результаты на удивление великолепны !! Более поздний подход в 25 раз быстрее предыдущего .

Точно так же я использовал подход двумерного массива для чтения данных из ячеек и наблюдал аналогичное повышение производительности.Примеры кода приведены ниже.

Поэлементный подход, 

Dim usedRange As Excel.Range = sheet.UsedRange
For Each row As Excel.Range In usedRange.Rows()
For Each cellData As Excel.Range In row.Cells
    //Gather cellData.Value in some container.
Next

Двухмерный массив, 

Dim usedRange As Excel.Range = sheet.UsedRange
//Here the array index starts from 1. why???
Dim darray(,) As Object = CType(usedRange.Value, Object(,))

Dim rows As Integer = darray.GetUpperBound(0)
Dim cols As Integer = darray.GetUpperBound(1)
For i As Integer = 1 To rows    
    For j As Integer = 1 To cols
        Dim str As String
        If darray(i, j) Is Nothing Then
            str = ""
        Else
            str = darray(i, j).ToString
        End If
        //Use value of str
    Next
Next

См. http://support.microsoft.com/kb/306023, http://dotnetperls.com/excel-interop (спасибо ChickSentMeHighE за ссылку)

Наслаждайтесь производительностью !!!

...