> .Columns[1].value = lnPartCnt > .Columns[2].NumberFormat = '00##' > .Columns[2].value = CastHist.SerialNo > .Columns[3].value = CastHist.MastHeat >>
Local Array arrVals[3] arrVals[1] = '2E63' arrVals[2] = '30E8' arrVals[3] = '30E7' oExcel = Createobject('excel.application') With oExcel .WorkBooks.Add With .ActiveWorkBook.ActiveSheet .Range('B:B').Numberformat = '@' For ix=1 To 3 With .Range('A'+Transform(m.ix)+':C'+Transform(m.ix)) .Columns[1].Value = m.ix .Columns[2].Value = m.arrVals[m.ix] .Columns[3].Value = m.arrVals[m.ix] Endwith Endfor Endwith .Visible = .T. EndwithPS: Setting excel values cell by cell should be a killer. HAve you ever thought of copying data to clipboard and paste, or copy to csv,fox2x dbf,text and get from excel.