var
ClassID: TGUID;
Unknown: IUnknown;
begin
//* Cria através do nome do arquivo a aplicação do excel
try
ClassID := ProgIDToClassID(ClassName);
if Succeeded (GetActiveObject(ClassID, nil, Unknown)) then
OleCheck (Unknown.QueryInterface (IDispatch, Result))
else
Result := CreateOleObject (ClassName);
except
MessageDlg(MsgTranslator('Nome de arquivo Inválido!', idioma), mtInformation, [mbOk], 0);
Abort;
end;
end;
function TfrmManutencaoBD.NumColToLetra(coluna: Word): String;
var
Letra : String[3];
N : {Word;} Integer;
N_CAR : Byte;
Begin
//* Converte o número da coluna do excel em letra
N_CAR := 0;
N := COLUNA;
While N > 0 do
begin
Inc(N_CAR);
N:=(N-1) div 26;
end;
Case N_CAR of
1:Letra:=Chr(coluna+64);
2:begin
N := (coluna-1) div 26;
coluna := coluna-26*N;
Letra := Chr(N+64)+Chr(coluna+64);
end;
3:begin
N := (coluna-27) div 676;
Letra := Chr(N+64);
coluna := coluna-676*N;
N := (coluna-1) div 26;
Letra := Letra+Chr(N+64);
N := coluna-26*N;
Letra := Letra+Chr(N+64);
end;
end;
Result := Letra;
end;
Excel := GetOrCreateObject('Excel.Application');
Excel.Workbooks.Open(Arquivo);
Cel := NumColToLetra(I) + IntToStr(1); { Normalmente o Nome das colunas fica na 1ªlinha}
É isso q tenho, agora basta vc adaptar as suas necessidades...
Espero ter ajudado!
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
www.moked.com.br <http://www.moked.com.br/>
________________________________
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva ®
Enviada em: sexta-feira, 19 de maio de 2006 19:45
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Importar do Excel p/ Delphi
Amigo, vc poderia passar essa rotina mais completa pra eu ver como se faz
isso?
Como abrir a planilha do excel e tal?
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Moked - Tamara (Brazil)
Enviada em: sexta-feira, 19 de maio de 2006 11:19
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Importar do Excel p/ Delphi
Nesio, é só vc abrir o arquivo do excel pegar o valor da celula da
seguinte forma:
Valor := Excel.Range[Cel,Cel].Value;
Depois setar no FieldByName este valor...
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
www.moked.com.br <http://www.moked.com.br/>
________________________________
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Nesio Messias
Enviada em: sexta-feira, 19 de maio de 2006 10:46
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Importar do Excel p/ Delphi
Ola Pessoal, tem como eu importar uma tabela do excel p/ o delphi, se
tiver pesso que me ajudem, caso o contrario terei de digitar uns 6 mil
itens, por favor me ajudem......Nesio.
---------------------------------
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no
celular e anti-spam realmente eficaz.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.ard.yahoo.com/SIG=12fir7lfg/M=396559.7942981.9477179.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1148049495/A=3714796/R=2/id=noscript/SIG=1554
ctaqg/*http://lt.dell.com/lt/lt.aspx?CID=13048&LID=341557&DGC=BA&DGSeg=DHS&D
URL="" href="http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%">http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%
26l%3dpt%26s%3ddhs>
________________________________
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
__________ Informação do NOD32 1.1454 (20060321) __________
Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.ard.yahoo.com/SIG=12ffj17oa/M=396559.7942981.9477179.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1148085885/A=3714796/R=2/id=noscript/SIG=1554ctaqg/*http://lt.dell.com/lt/lt.aspx?CID=13048&LID=341557&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%26l%3dpt%26s%3ddhs>
________________________________
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
| Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
