(Resolvido) Exportar dados para o excel

[nicolasbraz]

Tenho uma tabela em Excel com vários registros e queria exportar ela para uma tabela do meu banco de dados tentei o comando insertex pelo ibexpert mas eu tive vários problemas com ele.

Existe alguma outra forma de fazer essa exportação?

Editado Junho 12, 2012 por nicolasbraz

[Jhonas]

exemplo: exportar dados do stringgrid para o excel

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var excel: variant;
    lin,col : integer;
begin

      excel := CreateOleObject('Excel.Application');
      excel.Workbooks.add(1);
      excel.Cells.Select;
      excel.Selection.NumberFormat := '@';

      for lin := 1 to StringGrid1.RowCount  do
         for col := 1 to StringGrid1.ColCount do
            begin
               excel.cells[lin,col] := StringGrid1.cells[lin,col];
               excel.columns.AutoFit;
               excel.cells[lin,col].Select;
            end;
      excel.visible := true;
end;

outros exemplos:

http://scriptbrasil.com.br/forum/index.php?showtopic=90117

http://www.planetadelphi.com.br/dica/5329/...do-para-o-excel

http://www.planetadelphi.com.br/dica/7014/...hi%20p/%20excel

abraço

[nicolasbraz]

Eu me expressei errado Jhonas.

Eu quero uma tabela em Excel que já tem milhares de registros eu quero levar ela para o Delphi/firebird.

[Jhonas]

ok... então veja

http://forum.imasters.com.br/topic/259016-...-para-o-delphi/

nessa apostila na pagina 44

http://pt.scribd.com/doc/55558321/39/Como-...om-Delphi-Excel

abraço

[nicolasbraz]

Jhonas,

Consegui resolver com sua dica! Passei os dados para um stringGrid e depois salvei eles no meu banco de dados.

E também consegui pelo IbExpert pela opção import data.

Obrigado!