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.