CREATE CURSOR irepo (fld1 n(15),fld2 n(15)) FOR ia=1 TO 1000 ln=123456789012345 +RECNO() INSERT INTO irepo VALUES (ln,ln) ENDFOR COPY TO c:\yy xls oExcel = CREATEOBJECT("Excel.Application") WITH oExcel .DisplayAlerts = .f. .visible=.t. .Workbooks.Open("c:\yy.xls") .activesheet.Columns("B:B").select .Selection.NumberFormat = "0" .Selection.Columns.AutoFit ENDWITH oexcel=null>hi