FoxPro/Visual FoxPro - guardar de forma automatica

Hola buen día,

Tengo un programa que envía datos a un archivo de Excel (el cual ya existe esta almacenado en la unidad “C” y se llama report_tin) en el momento que los envía deben de ser almacenados de forma automática con otro nombre de archivo, el detalle es que no se como hacerlo, espero que puedan darme alguna sugerencia.

saludos.

gracias por su ayuda.

¿Cuál es en esencia tu duda?

¿Cómo grabar automáticamente? o
¿Cómo darle otro nombre de manera automática?

Jorge

las dos son mis dudas, guardar y asignarle un nuevo nombre de forma automatica, mira te muesto este codigo con el que estoy trabajando, lo que hago primero es abrir mi archivo de excel y luego asignar los datos que necesito en las celdas correspondientes, la idea ahora es que antes de mostrarlo debe de guardar los datos e inhabilitar las celdas donde estan estos datos, ecepto la del folio, la idea es que el usuario solo pueda inprimir este archivo y no modifique los datos, (solo el del folio si es necesario).

este es el codigo:
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 por tu ayuda.

saludos.