Not that tough. Off the top of my head: LOCAL oExcel, lnlast, lcalias, lvalue, lnrow oExcel = CREATEOBJECT('Excel.Application') * Create a new work sheet oExcel.Workbooks.Add lcalias = ALIAS() lnlast = FCOUNT() lnrow = 0 SCAN lnrow = lnrow + 1 FOR lni = 1 TO lnlast lccell = CHR(64 + lni) + TRANSFORM(lnrow) oExcel.Range(lccell).Select lvalue = lcalias + "." + FIELD(lni) oExcel.ActiveCell.Value = &lvalue NEXT ENDSCAN Of course, if you have more than 26 fields, you'll have to make an adjustment in the column name.>What do you mean by "Automation"? and what is AFAIK?