necesito que visual foxpro registre hojas de exel
RESP=MESSAGEBOX("¿DESPUES DE CONVERTIR LA TABLA, EL SISTEMA SE CERRARÁ" + CHR(13);
+ "PARA EVITAR CONFLICTOS DE INCOMPATIBILIDAD." + CHR(13)+;
CHR(13)+ ;
" ¿DESEA CONTINUAR? ",4+32+0,"PERSONAL MUNICIPAL")
IF RESP=6 &&SI
GCTABLENAME = GETFILE('DBF', 'NOMBRE DE ARCHIVO:')
IF EMPTY(GCTABLENAME) && ESC PRESIONADA
RETURN
ENDIF
USE (GCTABLENAME)
GCDELIMNAME = ALIAS( ) + '.XLS'
GCDELIMFILE = PUTFILE('NOMBRE DE ARCHIVO:', GCDELIMNAME, 'XLS')
IF EMPTY(GCDELIMFILE) && ESC PRESIONADA
RETURN
ENDIF
WAIT WINDOWS "CONVIRTIENDO TABLA A HOJA DE CÁLCULO." + CHR(13) +;
"ESPERE UNO SEGUNDOS POR FAVOR..." NOWAIT
COPY TO (GCDELIMFILE) TYPE XL5
WAIT WINDOWS "PROCESO COMPLETADO" TIMEOUT 3
*CLOSE ALL
CLEAR ALL
*QUIT
ELSE
ENDIF
es esto lo que necesitas ??
Suerte