dae pessoal...
seguinte, estou buscando informacoes de uma planilha excel no sistema que estou
desenvolvendo usando delphi 6... ate ai blz... uso o seguinte algoritmo:
Caminho := ExtractFilePath(Application.ExeName);
caminho := caminho+'pe_graos.xls';
{ hHandle := FindWindow( nil, 'Microsoft Excel - pe_graos.xls');
if hHandle <> 0 then
SendMessage( hHandle, WM_CLOSE, 0, 0);}
//pega o usuário logado
lcid := GetUserDefaultLCID;
//remove alertas do excel
ExcelApplication1.DisplayAlerts[lcid] := false;
//torna a aplicação visível
ExcelApplication1.Visible[lcid] := false;
// Se for um arquivo existente, esta
//linha conecta a aplicação
//com o arquivo.
WkBk := ExcelApplication1.Workbooks.Open(caminho,
EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, LCID);
// conecta a planilha (1)
ws := cbxProduto.ItemIndex + 1; //define o worksheet
ExcelWorksheet1.ConnectTo(WkBk.Worksheets[ws] as _Worksheet);
//ativa a planilha conectada
ExcelWorksheet1.Activate(LCID);
//torna impossível fazer alterações
ExcelApplication1.ScreenUpdating[lcid] := false;
for x:=0 to 99 do
begin
aux:=ExcelWorksheet1.Range[letras[x]+(inttostr(linha)),letras[x]+(inttostr(linha))].Value;
dados[x]:=aux;
end;
//fecha o excel
ExcelApplication1.Application.Quit;
o problema eh que se o excel ja estiver aberto na maquina ele fecha junto no fim(se o
arquivo estiver salvo) ou da erro no sistema se naum estiver salvo...soh que o erro
dah em excelapplication1.displayalerts...
tem alguma maneira de eu ler o arquivo xls somente conectando a ele, sem abrir o
excel? ou que posso fazer?
qq dica eh bem vinda... obrigado a todos...
Jeferson Adoryan
Tecnico em Informática
Panambi - RS
Tel (55)9137 9119
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[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] ou [EMAIL PROTECTED]
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:
http://br.yahoo.com/info/utos.html
