CLOSE TABLES all DIMENSION tmp_array2[200] && problem with this DIMENSION tmp_array3[200,2] DIMENSION tmp_array1[200] Local m.oXl_App Create Cursor test (test_date C (25)) For m.nIndex=1 To 200 Insert Into test Values ("Value "+TRANSFORM(m.nIndex)) tmp_array2[m.nIndex] = "Value "+TRANSFORM(m.nIndex) tmp_array3[m.nIndex,1] = "Value "+TRANSFORM(m.nIndex) Endfor Select test_date From test Into Array tmp_array1 m.oXl_App=Createobject("EXCEL.Application") With m.oXl_App .Workbooks.Add() .worksheets(1).Range(.cells(1,1),.cells(Alen(tmp_array1,1),1)).Value=aPasser('tmp_array1') .worksheets(1).Range(.cells(,2),.cells(Alen(tmp_array2,1),2)).Value=aPasser('tmp_array2') .worksheets(1).Range(.cells(,3),.cells(Alen(tmp_array3,1),3)).Value=aPasser('tmp_array3') .Application.Visible =.T. Endwith .... *------------------ Procedure aPasser *------------------ Lparameters m_array Return @&m_array