Arquivo do excel para bd paradox!!

Question

Eu tenho uma planilha no excel que est� no formato xls, e nesta planilha eu tenho os campos nome, c�digo etc. E tenho uma tabela no paradox que tamb�m esta neste formato, e gostaria de pegar todos os ...

Skaarj · Answer

Cara, o exemplo ta em Interbase, mas pra Paradox � a mesma coisa [a primeira vz q fiz foi em paradox]..
Eu tva meio com pressa [to no trampo] e usei while ao inv�s d repeat, mude, pois est� gravando um registro nulo ao fim do processo [nao esq�a d inserir ComObj na clausula USES]

var
Excel : Variant;
Linha:Integer;
fim:string;
begin
Excel := CreateOleObject(�Excel.Application�);
Excel.Visible :=True;
{Excel.Workbooks.Add;}
Excel.WorkBooks.Open(�c:\skj\casa.xls�);
Linha:=1;
fim := Excel.WorkBooks[1].Sheets[1].Cells[2,1];
While fim <> �� do
Begin
ibtable1.insert;
ibtable1Codigo.asstring := Excel.WorkBooks[1].Sheets[1].Cells[linha,1];
ibtable1Nome.asstring   := Excel.WorkBooks[1].Sheets[1].Cells[linha,2];
ibtable1Cidade.asstring := Excel.WorkBooks[1].Sheets[1].Cells[linha,3];
Linha:=Linha+1;
fim := Excel.WorkBooks[1].Sheets[1].Cells[linha,1];
ibtable1.post;
end;
ibtransaction1.commit

;

F�rum Arquivo do excel para bd paradox!! #216400