FoxPro/Visual FoxPro - ayuda por favor...

Hola tengo el siguiente código para enviar datos de tablas de fox a excel, lo que hace es abrir excel y visualizar los datos, pero ahora lo que necesito es de esta misma forma guardar esos datos en otro archivo con el nombre de la fecha que esta en el archivo actual. Espero puedan revisar mi código y darme alguna sugerencia, saludos

PUBLIC Cobservacion
LOCAL filaS,var_datos_redda,filao
*var_datos_rama="c:\bitacora\tmp_datrama"
var_datos_redda=RUTA+'tmp_dat_redda'
SELECT 4
USE &var_datos_redda
wait'Espere Un Momento Exportando Datos' window nowait
_screen.mousepointer=14
TmpSheet=GetObject('','Excel.Sheet')
XLApp=TmpSheet.Application
archivo="&REPORTES\report_redda.xls"
XLApp.workbooks.open(archivo)
XLApp.visible=.T.
XLApp.Worksheets(1).Select &&codigo a prueba
XLSheet=XLApp.ActiveSheet

XLSheet.Cells(15,5)=cfolio
cfolio=""
vfec_1=LEFT((Cfecha),6)
vfec_2=RIGHT((Cfecha),2)
XLSheet.Cells(15,14)= vfec_1+vfec_2 &&me da el formato de fecha 12/12/05
filaS=21 &&a partir de donde se muestran los datos
filao=43
SCAN
XLSheet.Cells(filaS,4)=(Cestacion)
XLSheet.Cells(filaS,5)=(Cconcepto)
XLSheet.Cells(filaS,8)=(Cactividad)
XLSheet.Cells(filao,4)=(Cobservaci)
filaS=filaS +1
filao=filao +1
ENDSCAN
ZAP
_screen.mousepointer=0
USE
SET EXCLUSIVE OFF
arch="&REPORTES"
XLApp.workbooks.save(arch) &&esta parte solo es una prueba que no funciona

gracias