Importar dados de um arquivo em excel e gravar no banco

Ola,

vc tem um exemplo com importando arquivo .txt?

Olá, boa tarde!!

Desculpas a intromissão... mas veja se te ajuda:

Código:

 def temp-table tt-teste field Codigo as int field descricao as char.

input from c:\temp\teste.txt.
    Repeat.  
    create tt-teste. 
    import delimiter ";" tt-teste no-error. 
    end.
input close.

/* Exemplo de ler o arquivo importado e inserir em uma TabelaX os Dados da Tabela Temporária tt-Teste importada do arquivo */
FOR EACH tt-teste.
   
find tabelaX /*Tabela do Seu Banco ...*/ WHERE TabelaX.Codigo = tt-Teste.Codigo NO-ERROR.
IF NOT AVAIL Tabelax THEN DO:
   CREATE TabelaX.
   ASSIGN TabelaX.Codigo       = tt-teste.Codigo
               TabelaX.Descricao = tt-Teste.Descricao.
END.
END.

Detalhe: É Sempre bom importar primeiro para uma tabela temporária(tt) antes de inserir o registro direto no banco... porque ai você tem como tratar... limpar os dados vindos do arquivo... e coisa e tals...

Espero ter ajudado!!
Um Abraço,
Eriuton Charles

Ola amigo,

eu ate que consegui desse forma mas quando vc dar um disp na ttable ela apresenta o ultimo registro vazio. Eu fazer uma importação para hcm seria o historico de situação o produto ate tem um programa o fp6660 mas quando faço o layout para importar ele me reporta erro de ano, fiz de tudo abrir FO para totvs e eles me pedem para falar com a consultoria.

Você deve sempre dar um "Enter" no final do txt, e fazer o seu código desconsiderar quando for 0 (int), ou em branco(char) os registros.
Caso a ultima linha não tenha um enter, ele não vai importar a mesma.