.net Excel 批量插入效能慢

ForTechnology發表於2011-12-05
Excel

.NET Excel 2003 批量插入資料很慢的解決辦法

作者：三聰  來源：部落格園  釋出時間：2009-08-04 12:24  閱讀：2563 次  原文連結   [收藏]  
.Net利用Office元件的操作Excel批量插入資料據的時候，會非常慢。
我也曾經想利用其它元件來實現這個功能，但是效果不是很理想。後來經過查閱資料，發現Excel.Range的Value屬性是Object的二維陣列。
於是我想，不去遍歷每個單元格，而是一次取得所要操作區域（Range）的Value屬性，對這個二維陣列操作，最後再把這個二維陣列賦回去，就大功能告成了。

經過編碼測試，與我想象中的一樣，速度非常之快。
之前程式碼：
        Dim app As New Excel.Application
        app.Visible = True

        Dim book As Excel.Workbook = app.Workbooks.Add()

        Dim sheet As Excel.Worksheet = book.Sheets(1)

        For i As Integer = 1 To 1000
            For j As Integer = 1 To 26
                sheet.Cells(i, j).Value = "R" & i & "C" & j
            Next
        Next
之後程式碼：
       Dim app As New Excel.Application
        app.Visible = True

        Dim book As Excel.Workbook = app.Workbooks.Add()

        Dim sheet As Excel.Worksheet = book.Sheets(1)

        Dim ary As Object(,) = sheet.Range("A1:Z1000").Value

        For i As Integer = 1 To 1000
            For j As Integer = 1 To 26
                ary(i, j) = "R" & i & "C" & j
            Next
        Next

        sheet.Range("A1:Z1000").Value = ary


附上C#的程式碼

            Excel.Application app = new Excel.Application();
            app.Visible = true;
            Excel.Workbook book = app.Workbooks.Add(Missing.Value);
            Excel.Worksheet sheet = (Excel.Worksheet)(book.Sheets[1]);

            object[,] ary = (object[,])(sheet.get_Range("A1:Z1000", Missing.Value).Value2);

            for (int i = 1; i <= 1000; i++)
            {
                for (int j = 1; j <= 26; j++)
                {
                    ary[i, j] = "R" + i.ToString() + "C" + j.ToString();
                }
            }

            sheet.get_Range("A1:Z1000", Missing.Value).Value2 = ary;

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/25897606/viewspace-712706/，如需轉載，請註明出處，否則將追究法律責任。

相關文章