Partilhar via

Objeto Workbook (Excel)

  • Artigo

Representa uma pasta de trabalho do Microsoft Excel.

Comentários

O objeto Workbook é um membro da coleção Pastas de Trabalho . A coleção Workbooks contém todos os objetos Workbook atualmente abertos no Microsoft Excel.

A propriedade ThisWorkbook do objeto Application retorna a pasta de trabalho em que o código do Visual Basic está em execução. Na maioria dos casos, isso é igual à pasta de trabalho ativa. No entanto, se o código do Visual Basic fizer parte de um suplemento, a propriedade ThisWorkbook não retornará a pasta de trabalho ativa. Nesse caso, a pasta de trabalho ativa será a pasta de trabalho que chama o suplemento, enquanto que a propriedade ThisWorkbook retorna a pasta de trabalho do suplemento.

Se você estiver criando um suplemento do código do Visual Basic, use a propriedade ThisWorkbook para qualificar qualquer instrução que deve ser executada na pasta de trabalho que você compilar no suplemento.

Exemplo

Use pastas de trabalho (índice), em que o índice é o nome da pasta de trabalho ou o número do índice, para retornar um único objeto Workbook . O exemplo a seguir ativa a pasta de trabalho um.

Workbooks(1).Activate

O número do índice denota a ordem na qual as pastas de trabalho foram abertas ou criadas. Workbooks(1) é a primeira pasta de trabalho criada e Workbooks(Workbooks.Count) é a última. A ativação de uma pasta de trabalho não altera seu número do índice. Todas as pastas de trabalho são incluídas na contagem de índices, mesmo que estejam ocultas.

A propriedade Name retorna o nome da pasta de trabalho. Não é possível definir o nome usando essa propriedade; se precisar alterar o nome, use o método SaveAs para salvar a pasta de trabalho com um nome diferente.

O exemplo a seguir ativa a Planilha1 na pasta de trabalho chamada Cogs.xls (a pasta de trabalho já deverá estar aberta no Microsoft Excel).

Workbooks("Cogs.xls").Worksheets("Sheet1").Activate

A propriedade ActiveWorkbook do objeto Application retorna a pasta de trabalho que está ativa no momento. O exemplo a seguir define o nome do autor para a pasta de trabalho ativa.

ActiveWorkbook.Author = "Jean Selva"

Este exemplo envia emails de uma guia de planilha da pasta de trabalho ativa usando um endereço de email e um assunto especificados. Para executar este código, a planilha ativa deverá conter o endereço de email na célula A1, o assunto na célula B1 e o nome da planilha a ser enviada na célula C1.

Sub SendTab()
   'Declare and initialize your variables, and turn off screen updating.
   Dim wks As Worksheet
   Application.ScreenUpdating = False
   Set wks = ActiveSheet

   'Copy the target worksheet, specified in cell C1, to the clipboard.
   Worksheets(Range("C1").Value).Copy

   'Send the content in the clipboard to the email account specified in cell A1,
   'using the subject line specified in cell B1.
   ActiveWorkbook.SendMail wks.Range("A1").Value, wks.Range("B1").Value

   'Do not save changes, and turn screen updating back on.
   ActiveWorkbook.Close savechanges:=False
   Application.ScreenUpdating = True
End Sub

Eventos

Métodos

Propriedades

Confira também

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.