粘贴DataGridView单元格到Excel电子表格

Question

我正试图找到一种更快的方法将DataGridView单元格的值粘贴到Excel电子表格。下面的代码可以工作，但是在循环遍历每个单元格时速度很慢。希望有人能帮忙加快速度。

提前感谢。

For i = 0 To PartsDataGridView.RowCount - 1
If PartsDataGridView.Rows(i).Cells(0).Value = "Positive" Then
lr3 = WS.Range("A" & WS.Rows.Count).End(Excel.XlDirection.xlUp).Row + 1
With WS
.Range("A" & lr3).Value = PartsDataGridView.Rows(i).Cells(1).Value
.Range("B" & lr3).Value = PartsDataGridView.Rows(i).Cells(2).Value
.Range("C" & lr3).Value = PartsDataGridView.Rows(i).Cells(3).Value
.Range("D" & lr3).Value = PartsDataGridView.Rows(i).Cells(4).Value
.Range("E" & lr3).Value = PartsDataGridView.Rows(i).Cells(5).Value
.Range("F" & lr3).Value = PartsDataGridView.Rows(i).Cells(6).Value
.Range("G" & lr3).Value = PartsDataGridView.Rows(i).Cells(7).Value
.Range("H" & lr3).Value = PartsDataGridView.Rows(i).Cells(8).Value
.Range("I" & lr3).Value = PartsDataGridView.Rows(i).Cells(9).Value
.Range("J" & lr3).Value = PartsDataGridView.Rows(i).Cells(10).Value
.Range("K" & lr3).Value = PartsDataGridView.Rows(i).Cells(11).Value
.Range("L" & lr3).Value = PartsDataGridView.Rows(i).Cells(12).Value
End With
End If
Next

Answer 1

如果我没有弄错的话，您可以将数组粘贴到Excel互操作范围中。

我用的是这样的:

这里数组是数据的二维数组

Worksheet.Range("A2:T" + array.GetLength(0).ToString).Value2 = array

这增加了我的速度，但我正在与数千行工作，我不确定这将增加多少你的代码