Hot Fox: [usuarios_fox] Re: Pueden ayudarme a usar el Append from type xls

domingo, 26 de fevereiro de 2012

[usuarios_fox] Re: Pueden ayudarme a usar el Append from type xls

Soy do Brazil
Saludos
Mas lo codigo mui facil ,
***************************************

CLOSE DATABASES
SET SAFETY OFF
CREATE TABLE CLIENTE (NUMERO N(4,0),NOME_CLI C(30), ENDERECO C(40), BAIRRO C(20), CIDADE C(30), UF C(2))
SELECT CLIENTE
FOR I=1 TO 20
INSERT INTO CLIENTE (NUMERO,noME_CLI,ENDERECO) VALUES (I,"CLIENTE "+STR(I), 'RUA ')
ENDFOR
BROWSE LAST normal title "la tabla normal"
IF !USED("CLIENTE" )
USE CLIENTE IN 0 ALIAS CLIENTE SHARED
ENDIF
SELECT CLIENTE
***A hora voy transforma-la num planilha del Excel Cliente1.xls
COPY TO cliente1 TYPE XLS
***A hora CargA lo excel coN cliente1 NO PRCECISO MAS LO MUESTRO
RUN /n explorer cliente1.xls && DEPOS LA TIRA ESO LINHA
*********************************************
***Se tiene ke importa la planilha tienes ke criar los campos
** tudo igual la planilha
******************************
CREATE TABLE CLIENTE2 (NUMERO N(4,0),NOME_CLI C(30), ENDERECO C(40), BAIRRO C(20), CIDADE C(30), UF C(2))
SELECT CLIENTE2
****La importacao Excel solo una linha del comando VFP.
APPEND from cliente1.xls type xls
GO TOP
BROWSE LAST NORMAL TITLE 'table importada cliente2'

** AHORA FILTAR LOS REGISTRO NO KIERES E LOS DESCARTEIS
*** MUI FACIL ASI.