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
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

Adssistemas

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

14/05/2008

Adssistemas

Blz fico no aguardo

Abraços


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.

  // 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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar