Objeto OLE Excel comando
14/05/2008
0
Olá amigos do Forum,
Gostaria de uma ajudinha.
Alguem tem os comandos para interação em objetos OLE com excel.
Se não pelo menos me ajudem nesta situação.
Estou abrindo uma planilha do excel, pegando alguns dados e na hora de fechar
o excel pergunta se eu quero salvar a planilha.
Como fazer para cancelar o salvamento. Não quero salvar nada na planilha.
Ok
Abraços
Gostaria de uma ajudinha.
Alguem tem os comandos para interação em objetos OLE com excel.
Se não pelo menos me ajudem nesta situação.
Estou abrindo uma planilha do excel, pegando alguns dados e na hora de fechar
oOle.Quit
o excel pergunta se eu quero salvar a planilha.
Como fazer para cancelar o salvamento. Não quero salvar nada na planilha.
Ok
Abraços
Adssistemas
Curtir tópico
+ 0
Responder
Posts
14/05/2008
Ara.es
Não me lembro agora de cabeça, mas esse metodo, Quit, possui alguns overloads.. com parametros.. onde vc pode estipular se irá salvar ou nao o documento aberto. Tentarei dar uma olhada depois e coloco aki. flw !!
Responder
16/05/2008
Ara.es
Olá adssistemas, e ai achou a solução?? demorei um pouco cara.. mas ta ai o que queria... estou postando um codigo que abre uma planilha preenche um intervalo de celulas com um valor e logo depois veja a planilha sem pedir para salvar e então vejo o excel. qualquer dúvida poste ai.
Crie um projetinho de teste, coloque esse codigo no oncreate do formulario principal e veja como funciona.
OBS: não esqueça de declarar a unit ComObj no uses da unit.
Os objetos excel e SheetMod são do tpo OleVariant.
Flw até mais. qualquer coisa é só escrever.
// Criando o objeto excel := CreateOleObject(´Excel.Application´); // setando o visible para true para poder visualizar o resultado. excel.visible := True; // adicionando um documento. excel.WorkBooks.Add; // aqui seleciona a primeira planilha do documento. SheetMod := excel.WorkBooks[1].WorkSheets[1]; // aqui seto o texto do intervalo de celulas A1 até L7 com o texto ´Teste´ SheetMod.Range[´A1:L7´] := ´TESTE´; // entao fecho o documento que abrir. // O parametro para a procedure Close, pode ser // 0 - para fechar sem salvar // 1 - abre a tela de salvar o documento // não teste outros possiveis valores. excel.WorkBooks[1].Close(0); // finalmente finalizo o excel. excel.Quit;
Crie um projetinho de teste, coloque esse codigo no oncreate do formulario principal e veja como funciona.
OBS: não esqueça de declarar a unit ComObj no uses da unit.
Os objetos excel e SheetMod são do tpo OleVariant.
Flw até mais. qualquer coisa é só escrever.
Responder
Clique aqui para fazer login e interagir na Comunidade :)