Renomear Planilha do Excel pelo VB

[aluizs 0]

Ola,

 

tenho o seguinte problema. Preciso criar no excel várias planilhas e cada uma delas deve conter um nome diferente e de acordo com a pessoa que "proprietaria da planilha", exemplo, planilha com dados do Roberto Carlos de Oliveira, o nome da planilha deverá ser Roberto.

Os dados serã todos preenchidos via Visual Basic. o problema é que não estou conseguindo renomear a planilha. todos os outros dados estão ok.

 

uso o seguintes códigos.

de referência

Public xlapp As Excel.Application

Public xlbook As Excel.Workbook

Public xlsheet As Excel.Worksheet

de entrada

Set xlapp = CreateObject("Excel.application")

Set xlbook = xlapp.Workbooks.Open(INI_Parametro3 & "\" & arquivo)

 

para copiar a planilha. tenho uma planilha modelo já pronta e todas as cópias são apartir dela.

Set xlsheet = xlbook.Worksheets("mod")

xlbook.Sheets(1).Copy After:=xlbook.Sheets(xlbook.Sheets.Count)

 

aqui entra o problema, não consigo renomear a planilha recem criada.

 

Algum poderia me ajudar, porém não gostaria de mudar as referêcias e a entrada, pois o programa já está pronto e só falta poder renomear a planilha para terminar.

 

 

Obrigado.

[Marlon S 0]

Cara, não conheço muito, mas para renomear, talvez você pudesse criar um vetor com os nomes e atribuir às planilhas da seguinte maneira:

sheets(i).name = vetor(i) dentro de um for de 1 até SheetCount (número de planilhas)

ou sheets("Plan1").name = "João da Silva"

[Durbano 1]

Não sei responde exatamente sua perguntar, mas deixo uma sugestão.

Esse é comando no VBA para alterar o nome de uma sheet do tipo gráfico, deve ser algo parecido.

Você pode adicionar a biblioteca do VBA no VB e tentar executar este código.

 

ActiveChart.Name = "Gráfico MM de " & nom