请教填充Graph对象Datasheet表的高效方法

hj7396

这是我采用的方法：
ch.Application.DataSheet.Range("A2:" & getAlpha(i - 1) & "2").Value =
10
With ch.Application.DataSheet.Cells
For j As Integer = 1 To i - 1
.Item(1, j).Value = buf(0)(j)
.Item(3, j).Value = buf(2)(j)
.Item(4, j).Value = buf(3)(j)
Next
End With
这里ch是一个Graph对象。buf(0),buf(2),buf(3)是存放数据的数组。当buf中的数据达到200多项的时候，这个循环需要2.7秒多的­时间，我的性能要求是500ms以下，不知有什么较好的办法可以提高性能。

我认为速度慢的根本原因是进程之间数据传递的开销。但是Graph的接口不支持批量数据的传递。也许我不清楚。
ch.Application.DataSheet.Range("A2:" & getAlpha(i - 1) & "2").Value =
10
的方法只能给一个Range赋一个值，有无办法能赋一个数组？