Objeto Workbook (Excel)

Representa uma pasta de trabalho do Microsoft Excel.

Comentários

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

A propriedade ThisWorkbook do objeto Application retorna a workbook onde o código Visual Basic está sendo executado. 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 Visual Basic do seu código de Visual Basic, use a propriedade ThisWorkbook para qualificar qualquer instrução que deve ser executado na lista de trabalho compilada no complemento.

Exemplo

Use Workbooks (index), onde index é o nome da carteira de trabalho ou número de í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 guias de trabalho estão incluídas na contagem de índices, mesmo que elas sejam ocultas.


A propriedade Name retorna o nome da agenda 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 workbook 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 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.