Importar Dados de uma planilha Excel

Question

Ol� a todos... sei que no f�rum j� existe v�rios t�picos relacionado a este tema, mas faz 3 dias que procuro e n�o encontrei nada que conseguisse usar, meu problema � o seguinte:Tenho um arquivo no ex...

Semchance · Answer

Pessoal, nenhuma dica, ou algum componente que eu possa usar ??? :?:  :?:...

Japa · Answer

Posso te ajudar um pouco amizade... mas para entender e melhor vc tentar sozinho..
esse e um procedure que eu uso para puxar os dados de um arquivo.xls
Insira no seu uses [b:d930a7d878]comobj[/b:d930a7d878]
Esse e a procedure

procedure PuxarDadosXLS; var Excel : Variant; Linha: Integer; fim: string; begin Excel := CreateOleObject(�Excel.Application�); Excel.DisplayAlerts := false; Excel.Visible := false; {Excel.Workbooks.Add;} Excel.WorkBooks.Open(�c:\arquivo.xls�); Linha:=1; fim := Excel.WorkBooks[1].Sheets[1].Cells[2,1]; While fim <> �� do Begin ShowMessage(Excel.WorkBooks[1].Sheets[1].Cells[linha,1]); Linha:=Linha+1; fim := Excel.WorkBooks[1].Sheets[1].Cells[linha,1]; end; Excel.Application.quit; end;

Tomara que te ajude... deletei uma boa parte pois era apenas para o meu programa (tomara que nao tenha erro por isso)... mas se vc quiser eu posto ela inteira....

Boa sorte amizade

Semchance · Answer

Quando coloquei o c�digo, ele deu o seguinte erro �Sequ�ncia de classe inv�lida�, consultando o forum , vi que esse erro ocorre, pq n�o tenho o Excel instalado na minha m�quina, pois utilizo o Open Office, na verdade eu preciso ler a informa��o de um arquivo �.xls� mas n�o sei se o cliente vai possuir ou n�o o Excel.
Tem como salvar um xls como txt ou csv ? pois tentei apenas renomear e o arquivo ficou todo zuado, pois se conseguise salvar dava um jeito de ler do txt.

Semchance · Answer

Pessoal, apos instalar o Excel na minha m�quina criando a variavel tipo OleVariante, funcionou, mas quando o cara n�o tiver o excel, tiver tipo o Star Office ou o Open Office ? Alguem sabe como Criar o objeto Ole ?
var
Excel : OleVariant;

Excel := CreateOleObject(�soffice.exe.Application�);

F�rum Importar Dados de uma planilha Excel #288273