local loExcel, loWorkbooks, loRow > >loExcel = createobject( "excel.application" ) >loExcel.Visible = .t. >loExcel.SheetsInNewWorkbook = 1 > >loWorkbooks = loExcel.Workbooks >loWorkbooks.Add() > >local lnCols, lcFields, i > >loRow = loExcel.ActiveSheet.Rows( 1 ) > >lcFields = "Salute,Firstname,Lastname,Title,Company,Address1,Address2,City,State," + ; > "Zipcode,Country,Phone,Fax,Email" > >lnCols = alines( laFields, chrtran( lcFields, ',', chr(13) ) ) > >for i = 1 to lnCols > loRow.Columns( i ).Value = laFields[i] >endfor > >create cursor exportquestions ( questionno i ) >insert into exportquestions values ( 23 ) >insert into exportquestions values ( 45 ) >insert into exportquestions values ( 67 ) > >scan > loRow.Columns( lnCols + recno() ).Value = "Q" + transform( exportquestions.questionno ) >endscan > >use in "exportquestions" > >loRow = .null. > >loExcel.ActiveWorkbook.Close( .t., "c:\temp\test" ) > >loWorkbooks = .null. > >loExcel.Quit() > >loExcel = .null. >David,