Como adicionar novas planilhas no excel usando vba

Você pode usar os seguintes métodos no VBA para adicionar novas planilhas a uma pasta de trabalho do Excel:

Método 1: adicionar uma nova planilha

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Esta macro adicionará uma nova planilha à pasta de trabalho com um nome gerado automaticamente que descreve o número da planilha que ela representa na pasta de trabalho.

Por exemplo, se houver três planilhas na pasta de trabalho e você executar esta macro, uma nova planilha com o nome Plan4 será criada.

Nota : Por padrão, o VBA adicionará a nova planilha imediatamente antes da planilha atualmente ativa.

Método 2: adicionar várias novas planilhas

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

Esta macro adicionará três novas planilhas à pasta de trabalho.

Método 3: adicione uma nova planilha com um nome

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

Esta macro adicionará uma nova planilha à pasta de trabalho com o nome MyNewSheet .

Método 4: adicionar uma nova planilha com um nome antes de uma planilha específica

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

Esta macro adicionará uma nova planilha à pasta de trabalho com o nome MyNewSheet logo antes da planilha existente chamada Teams .

Método 5: adicionar uma nova planilha com um nome após uma planilha específica

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

Esta macro adicionará uma nova planilha à pasta de trabalho com o nome MyNewSheet diretamente após a planilha existente chamada Teams .

Método 6: adicione uma nova planilha com um nome no final da pasta de trabalho

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

Esta macro adicionará uma nova planilha à pasta de trabalho com o nome MyNewSheet no final da pasta de trabalho.

Método 7: Adicione uma nova planilha com um nome no início da pasta de trabalho

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

Esta macro adicionará uma nova planilha à pasta de trabalho com o nome MyNewSheet logo no início da pasta de trabalho.

Os exemplos a seguir mostram como usar cada método na prática com a seguinte pasta de trabalho do Excel com três planilhas existentes:

Exemplo 1: Adicionar uma nova planilha

Podemos criar a seguinte macro para adicionar uma nova planilha à pasta de trabalho com um nome gerado automaticamente:

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Quando executamos esta macro, uma nova planilha é adicionada à pasta de trabalho com o nome Sheet4 logo antes da planilha Teams , que selecionamos ao executar a macro:

Exemplo 2: Adicionar várias novas planilhas

Podemos criar a seguinte macro para adicionar três novas planilhas à pasta de trabalho com nomes gerados automaticamente:

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

Quando executamos esta macro, três novas planilhas são adicionadas à pasta de trabalho diretamente antes da planilha Teams , que selecionamos ao executar a macro:

Exemplo 3: Adicione uma nova planilha com um nome

Podemos criar a seguinte macro para adicionar uma nova planilha à pasta de trabalho com um nome específico:

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

Quando executamos esta macro, uma nova planilha chamada MyNewSheet é adicionada à pasta de trabalho logo antes da planilha Teams , que selecionamos ao executar a macro:

Exemplo 4: Adicione uma nova planilha com um nome antes de uma planilha específica

Podemos criar a seguinte macro para adicionar uma nova planilha à pasta de trabalho diretamente antes de uma planilha existente específica:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

Quando executamos esta macro, uma nova planilha chamada MyNewSheet é adicionada à pasta de trabalho diretamente antes da planilha Teams :

Exemplo 5: Adicione uma nova planilha com um nome após uma planilha específica

Podemos criar a seguinte macro para adicionar uma nova planilha à pasta de trabalho diretamente após uma planilha existente específica:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

Quando executamos esta macro, uma nova planilha chamada MyNewSheet é adicionada à pasta de trabalho diretamente após a planilha Teams :

Exemplo 6: Adicione uma nova planilha com um nome no final da pasta de trabalho

Podemos criar a seguinte macro para adicionar uma nova planilha no final da pasta de trabalho:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

Quando executamos esta macro, uma nova planilha chamada MyNewSheet é adicionada bem no final da pasta de trabalho:

Exemplo 7: Adicione uma nova planilha com um nome no início da pasta de trabalho

Podemos criar a seguinte macro para adicionar uma nova planilha logo no início da pasta de trabalho:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

Quando executamos esta macro, uma nova planilha chamada MyNewSheet é adicionada bem no início da pasta de trabalho:

Nota : Você pode encontrar a documentação completa do método Sheets.Add aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como encontrar a última linha usada
VBA: Como encontrar a última coluna usada
VBA: Como contar o número de planilhas em uma pasta de trabalho