Ir para conteúdo
Fórum Script Brasil
  • 0

[resolvido] Criar Nova Planilha


Guest --felipe --

Pergunta

Guest --felipe --

e ai galera,

preciso saber como se cria uma nova planilha em um excel que já contenha uma planilha criada.

para criar a aplicação eu uso o seguinte codigo:

planilha:= CreateoleObject('Excel.Application');
      planilha.WorkBooks.add(1);
      planilha.caption := 'Linhas de montagem!';
      planilha.visible := true;
.................

para criar outra planilha eu só tirei a linha planilha:= CreateoleObject('Excel.Application');

mas ao invés de ser criada uma nova planilha ele cria outra aplicação.

se alguém souber como se faz de uma ajuda

valeu abraço

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
e ai galera,

preciso saber como se cria uma nova planilha em um excel que já contenha uma planilha criada.

para criar a aplicação eu uso o seguinte codigo:

planilha:= CreateoleObject('Excel.Application');
      planilha.WorkBooks.add(1);
      planilha.caption := 'Linhas de montagem!';
      planilha.visible := true;
.................
para criar outra planilha eu só tirei a linha planilha:= CreateoleObject('Excel.Application'); mas ao invés de ser criada uma nova planilha ele cria outra aplicação. se alguém souber como se faz de uma ajuda valeu abraço
Em termos de macro, para fazer isto que você fala, bastaria:
Me.Worksheets.Add
 Me.ActiveSheet.Name = "Teste1"
 Me.Worksheets.Add
 Me.ActiveSheet.Name = "Teste2"
então veja se você consegue implementar algo como:
planilha:= CreateoleObject('Excel.Application');
planilha.Worksheets.Add;
planilha.ActiveSheet.Name = "Teste2";
...

Link para o comentário
Compartilhar em outros sites

  • 0
Guest --felipe --
veja se você consegue implementar algo como:
planilha:= CreateoleObject('Excel.Application');
planilha.Worksheets.Add;
planilha.ActiveSheet.Name = "Teste2";
...
é funcionou, só que a primeira planilha tem que ser adicionada como WorkBook, e as outras como WorkSheet:
planilha:= CreateoleObject('Excel.Application');
planilha.WorkBooks.add(1);
planilha.ActiveSheet.name := 'Máquina 1';
planilha.caption := 'Linhas de montagem!';
planilha.visible := true;
................................
planilha.WorkSheets.add;
planilha.ActiveSheet.name := 'Máquina 2';
planilha.visible := true;
.....

mais uma vez obrigado !

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...