VBA Excel - 01.10 - Referenciando planilha - Active - Workbook ativo

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

Vamos relembrar um artigo antigo, agora revisado. Veremos 10 formas para referenciar workbooks e worksheets usando o VBA no MS Excel.

workbooks = Arquivo que contém todas as planilha em diversas pastas.

worksheets = Planilhas individuais, contidas nas abas.

1 - Active - Referenciando o workbook ativo

A propriedade do ActiveWorkbook faz referência ao workbook que tem o foco. 

Digamos que após atualizar a informação num workbook ativo, provavelmente deseje salvá-lo, esta é uma tarefa simples para a propriedade do ActiveWorkbook. A SUB a seguir utilizará a propriedade ActiveWorkbook  para fechar o workbook ativo:

Sub CloseActiveWBSemSalvar()

  ' Fecha o workbook ativo sem salvar.

  ActiveWorkbook.Close False

End Sub

Sub CloseActiveWBSalvando()

  'Fecha o workbook ativo e o salva.

  ActiveWorkbook.Close True

End Sub

Sub CloseActiveWBEscolheSeSalva()

  'Fecha o workbook ativo escolhendo se deseja salvar.

  'Deixa o usuário decidir se deseja salvar ou não.

  ActiveWorkbook.Close

End Sub

Sim, o exemplo foi apenas elucidativo, pode-se facilmente combinar estes três estado em uma única função passando o modo como a ação será executada através de parâmetros.

Abaixo segue outro exemplo onde o nome, o caminho são atribuidos:

Function GetActiveWBPathName() As String

  Let GetActiveWBPathName = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

End Function

Tags: VBA, Excel, Series, reference, referenciando, workbook, worksheet, active workbook, active