IMPORTAR EXCEL

[FERNANDOMATRELLA]

PROCUREI BASTANTE AQUI NO FORUM E NAO ACHEI :
CASO TENHA ALGUM LINK ME DESCULPE
EU PRECISO DA UM APPEND FROM DE UMA PLANILHA DO EXCEL POREM PRECISO
ESPECIFICAR QUAIS LINHAS E COLUNAS VOU IMPORTAR MAIS ESTOU MEIO PERDIDO TERIA COMO ALGUEM DAR ESSE HELP PRA MIM
SEI QUE É MEIO BOBA A PERGUNTA MAIS É Q SOU INICIANTE OBRIGADO

[alceu11]

Sera ke é isto ?

Código:


ódigo:
    ***O processo inverso importar xls para um tabela ou cursor
    CLOSE DATABASES all
    *Então você cria 1 cursor temporario correspondente a tabela, por exemplo,
    CREATE TABLE cursorprod ( codigo n(6), grupo n(3), subgrupo n(3), descr c(30), preco n(10,2))
    *Agora para puxar os dados do arquivo XLS para dentro desta tabela temporária que criamos:
    sele cursorProd
    append from nomearq.xls TYPE XLS && xl5 para o nomearq2
    BROWSE




Se nao for veja este topico tera o processo inverso do dbf p/xls ,e um projeto para fazer
link
[Você precisa estar registrado e conectado para ver este link.]

[Você precisa estar registrado e conectado para ver este link.]

[alceu11]

Vamos complicar mais um pouco

Código:


Close Databases All
Close Tables All
Clear

Create Cursor TEMP ;
( TIPO C( 1),;
NOME C(40),;
ENDERECO C(40) )

cArqXLS = GETFILE('XLS','PLANILHA','Abrir',0,'Informa a planilha')

IF EMPTY(cArqXLS) OR EMPTY(cArqXLS)
RETURN
ENDIF

oXls = Createobject( 'Excel.Application' )
oXls.Workbooks.Open( cArqXLS )
oXls.DisplayAlerts = .F.
oXls.Visible = .F.


* começa na linha 2
For i=2 To 650000

If Empty(oXls.Cells(i,1).Text)
Exit
ENDIF

SELECT  TEMP &&ORIGEM
APPEND BLANK
replace TIPO WITH ALLTRIM(oXls.Cells(i,2).Text)
replace NOME WITH ALLTRIM(oXls.Cells(i,3).Text)
replace ENDERECO WITH ALLTRIM(oXls.Cells(i,4).Text)

?? ','+Transform(i)

Endfor

oXls.Quit
oXls = Null
SELECT temp
browse





veja ke a planilha os campos sao caracteres cuidados com campos numericos, data e etc...........

Pensei ke vc ia mata esta onca parda com um tiro so!!!
[Você precisa estar registrado e conectado para ver este link.]

[FERNANDOMATRELLA]

Grande alceu esse metodo que voce me passou é otimo obrigado mais uma vez porem sempre precisarei de uma tabela temporaria acho que eu tava tentando enfiar os pes entre as maos e puxar td em uma linha de codigo rsrsrs obrigado