VBA Excel - 04.10 - Referenciando planilha - Explicit - Referência explícita a um workbook



É sempre bom lembrar-se de que:

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

worksheets = Planilhas individuais, contidas nas abas.


4 - Explicit - Referência explícita a um Workbook

Caso saiba o nome do workbook ao qual deseja fazer referência, uma referência explícita pode ser o melhor método. Para tanto lembre-se que precisará de um situação estável. Não poderá utilizar esta solução numa planilha onde o workbook muda de nome a todo momento. Mas, também possa passar o nome do workbook como referência através de uma função.

Function Activatewb (wbname As String)
  'Abre a variável wbname.

  Workbooks(wbname).Activate
End Function

A execução é simples, passe o nome do workbook que deseja ativar como argumento da função:

ActivateWB ("Alefe&BeteProcessamentodeDados.xlsb")
(Lembre-se que é necessário incluir a extensão xls, xlsx, xlsb.)

Abaixo disponibilizo uma função que também usa a propriedade do Workbooks para determinar qual está aberto no momento:

Function IsWBOpen (wbname As String) As Boolean
  ' Abre o workbook.

  Dim wb As Workbook

  On Error Resume Next

  Set wb = Workbooks(wbname)
   
  IsWBOpen = Not wb Is Nothing
End Function

Se wbname estiver aberta, a função retorna True. Quando não estiver aberta, a função retorna False.

Nenhum comentário:

Postar um comentário

diHITT - Notícias