Criar ou substituir uma planilha
Os exemplos a seguir mostram como determinar se existe uma planilha e, em seguida, como criar ou substituir a planilha.
Código de exemplo fornecido por: Tom Urtis, Atlas programação de gerenciamento
Determinando se existe uma planilha
Este exemplo mostra como determinar se existe uma planilha chamada "Sheet4" usando a propriedade Name do objeto Worksheet . O nome da planilha é especificado pela mySheetName
variável.
Sub TestSheetYesNo()
Dim mySheetName As String, mySheetNameTest As String
mySheetName = "Sheet4"
On Error Resume Next
mySheetNameTest = Worksheets(mySheetName).Name
If Err.Number = 0 Then
MsgBox "The sheet named ''" & mySheetName & "'' DOES exist in this workbook."
Else
Err.Clear
MsgBox "The sheet named ''" & mySheetName & "'' does NOT exist in this workbook."
End If
End Sub
Criando a planilha
Este exemplo mostra como determinar se existe uma planilha chamada "Sheet4". O nome da planilha é especificado pela mySheetName
variável. Se a planilha não existir, este exemplo mostrará como criar uma planilha chamada "Sheet4" usando o método Add do objeto Planilhas .
Sub TestSheetCreate()
Dim mySheetName As String, mySheetNameTest As String
mySheetName = "Sheet4"
On Error Resume Next
mySheetNameTest = Worksheets(mySheetName).Name
If Err.Number = 0 Then
MsgBox "The sheet named ''" & mySheetName & "'' DOES exist in this workbook."
Else
Err.Clear
Worksheets.Add.Name = mySheetName
MsgBox "The sheet named ''" & mySheetName & "'' did not exist in this workbook but it has been created now."
End If
End Sub
Substituindo a Planilha
Este exemplo mostra como determinar se existe uma planilha chamada "Sheet4". O nome da planilha é especificado pela mySheetName
variável. Se a planilha existir, este exemplo mostrará como excluir a planilha existente usando o método Excluir do objeto Planilha e criar uma nova planilha chamada "Sheet4".
Importante Todos os dados na planilha original chamada "Sheet4" são excluídos quando a planilha é excluída.
Sub TestSheetReplace()
Dim mySheetName As String
mySheetName = "Sheet4"
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(mySheetName).Delete
Err.Clear
Application.DisplayAlerts = True
Worksheets.Add.Name = mySheetName
MsgBox "The sheet named ''" & mySheetName & "'' has been replaced."
End Sub
Sobre o colaborador
MVP Tom Urtis é o fundador da Atlas programação gerenciamento, uma empresa com soluções de gerenciamento completas de serviço do Microsoft Office e Excel localizada no Silicon Valley. Tom tem mais de 25 anos de experiência do gerenciamento de negócios e desenvolvimento dos aplicativos Microsoft e é co-autor de "Holy Macro! São 2.500 exemplos de VBA do Excel."
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de