[resolvido] Criar Nova Planilha

[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

[Micheus]

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";
...

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