I am writing directly to EXCEL sheet. This works fine, but it is extremely slow. Code follows:

KoeObj = CreateObject('Excel.Application')
KoeObj.Visible = .T.

KoeObj.Workbooks.Add
KoeBook = KoeObj.ActiveWorkbook
KoeSheet = Koebook.Activesheet

Dimension Test(5)
Test(1)=1
Test(2)=2
Test(3)=3
Test(4)=4
Test(5)=5

For I = 1 to 5
KoeSheet.Cells(1,I) = Test(I)
Endfor

- So, can anyone find a way to write the whole array into a range in EXCEL sheet, in just one command? The FOR loop is the slow one.

Thanks in advance..
MANU