Najszybszy sposób zapisu komórek do Excela za pomocą Office Interop?

Jeśli jeszcze tego nie zrobiłeś, upewnij się, że ustawiłeś Application.ScreenUpdating = false przed rozpoczęciem wysyłania danych. To sprawi, że wszystko pójdzie znacznie szybciej. Ustaw go z powrotem na True po zakończeniu wysyłania danych. Konieczność przerysowania ekranu przy każdej zmianie komórki zajmuje sporo czasu, omijając to oszczędza to.

Jeśli chodzi o używanie zakresów, nadal będziesz musiał kierować 1 (jedną) konkretną komórkę dla wartości, więc nie widzę tutaj żadnych korzyści. Nie jestem świadomy, że robisz to szybciej niż to, co robisz w odniesieniu aby faktycznie wysyłać dane.

Żeby dodać do odpowiedzi Tommy ' ego.

• Możesz również ustawić obliczenia na ręczne przed rozpoczęciem pisania.

Zastosowanie.Obliczenie = xlCalculationManual

I ustaw go z powrotem na automatyczny, gdy skończysz pisać. (jeśli istnieje szansa, że oryginalny tryb mógł być czymś innym niż automatyczny, musisz zapisać tę wartość przed ustawieniem go na ręczny)

Zastosowanie.Obliczenie = xlCalculationAutomatic

• można również użyć metody CopyFromRecordset obiektu Range.

Http://msdn.microsoft.com/de-de/library/microsoft.office.interop.excel.range.copyfromrecordset(office.11).aspx

Najszybszym sposobem zapisu i odczytu wartości z zakresów Excela są Range.get_Value i Range.set_Value.

Droga jest jak poniżej:

Range filledRange = Worksheet.get_Range("A1:Z678",Missing);
object[,] rngval = (object[,]) filledRange.get_Value (XlRangeValueDataType.xlRangeValueDefault);

Range Destination = Worksheet2.get_Range("A1:Z678",Missing);
destination.set_Value(Missing,rngval);

I tak, nie wymaga iteracji. Wydajność jest po prostu voila!!

Szczerze mówiąc, najszybszym sposobem na napisanie tego jest rozdzielacz przecinków. Łatwiej jest napisać linię pól za pomocą Join(",").Metoda ToString zamiast próbować iteracji przez komórki. Następnie zapisz plik jako ".csv". Używając interop, otwórz plik jako plik csv, który automatycznie wykona aktualizację komórki po otwarciu.

Na wypadek, gdyby pojawił się ktoś inny, jak ja, szukający pełnego rozwiązania przy użyciu metody podanej przez @Mathias (która wydaje się być najszybsza do ładowania do Excela) z sugestią @IMil na tablicy.
Proszę bardzo:

'dt (DataTable) is the already populated DataTable
'myExcelWorksheet (Worksheet) is the worksheet we are populating
'rowNum (Integer) is the row we want to start from (usually 1)
Dim misValue As Object = System.Reflection.Missing.Value
Dim arr As Object = DataTableToArray(dt)
'Char 65 is the letter "A"
Dim RangeTopLeft As String = Convert.ToChar(65 + 0).ToString() + rowNum.ToString()
Dim RangeBottomRight As String = Convert.ToChar(65 + dt.Columns.Count - 1).ToString() + (rowNum + dt.Rows.Count - 1).ToString()
Dim Range As String = RangeTopLeft + ":" + RangeBottomRight
myExcelWorksheet.Range(Range, misValue).NumberFormat = "@" 'Include this line to format all cells as type "Text" (optional step)
'Assign to the worksheet
myExcelWorksheet.Range(Range, misValue).Value2 = arr

Then

Function DataTableToArray(dt As DataTable) As Object
    Dim arr As Object = Array.CreateInstance(GetType(Object), New Integer() {dt.Rows.Count, dt.Columns.Count})
    For nRow As Integer = 0 To dt.Rows.Count - 1
        For nCol As Integer = 0 To dt.Columns.Count - 1
            arr(nRow, nCol) = dt.Rows(nRow).Item(nCol).ToString()
        Next
    Next
    Return arr
End Function

Ograniczenia obejmują zezwalanie tylko na 26 kolumn, zanim będzie potrzebował lepszego kodu do wymyślania liter wartości zakresu.