FoxPro/Visual FoxPro - Como asignarle el nombre de un campo al exportar

Necesito que me ayuden a ponerle el nombre de un campo a un archivo de excel a la hora de exportarlo

Parte I del codigo
local Fila
wait'Espere Un Momento Exportando Datos' window nowait
_screen.mousepointer=14
TmpSheet=GetObject('','Excel.Sheet')
XLApp=TmpSheet.Application
XLApp.visible=.T.
XLApp.workbooks.add()
XLSheet=XLApp.ActiveSheet
XLSheet.Cells(2,2)="Cédula"
XLSheet.Cells(2,2).font.bold=.T.
XLSheet.Cells(2,2).font.size="12"
XLSheet.Cells(2,2).font.name="Arial"
XLSheet.Cells(2,3)="Nombre"
XLSheet.Cells(2,3).font.bold=.T.
XLSheet.Cells(2,3).font.size="12"
XLSheet.Cells(2,3).font.name="Arial"
XLSheet.Cells(2,4)="Apellido"
XLSheet.Cells(2,4).font.bold=.T.
XLSheet.Cells(2,4).font.size="12"
XLSheet.Cells(2,4).font.name="Arial"
XLSheet.Cells(2,5)="Dirección"
XLSheet.Cells(2,5).font.bold=.T.
XLSheet.Cells(2,5).font.size="12"
XLSheet.Cells(2,5).font.name="Arial"
XLSheet.Cells(2,6)="Telefono"
XLSheet.Cells(2,6).font.bold=.T.
XLSheet.Cells(2,6).font.size="12"
XLSheet.Cells(2,6).font.name="Arial"
XLSheet.Cells(2,7)="Celular"
XLSheet.Cells(2,7).font.bold=.T.
XLSheet.Cells(2,7).font.size="12"
XLSheet.Cells(2,7).font.name="Arial"
sele 1

Parte II del codigo
Fila=4
scan
XLSheet.Cells(Fila,2)=alltrim(cedula)
XLSheet.Cells(Fila,3)=alltrim(nombre)
XLSheet.Cells(Fila,4)=alltrim(apellido)
XLSheet.Cells(Fila,5)=alltrim(direccion)
XLSheet.Cells(Fila,6)=alltrim(telefono)
XLSheet.Cells(Fila,7)=alltrim(celular)
Fila=Fila+1
endscan
XLSheet.Columns("A:A").ColumnWidth = 2
XLSheet.Columns("B:B").EntireColumn.AutoFit
XLSheet.Columns("C:C").EntireColumn.AutoFit
XLSheet.Columns("D:D").EntireColumn.AutoFit
XLSheet.Columns("E:E").EntireColumn.AutoFit
XLSheet.Columns("F:F").EntireColumn.AutoFit
_screen.mousepointer=0

k tal resulta k tuve k dividir el código por no me lo permitía todo, ahi está para k te guies espero te sirva