Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

.: Vitrine

Carregando artigos...

Views

Mostrando postagens com marcador active. Mostrar todas as postagens
Mostrando postagens com marcador active. Mostrar todas as postagens

VBA Excel Basic - Obtendo os Nomes da Planilha e da Aba Ativas - How To Get The Active Sheet Name And Workbook Name


Tópico voltado para quem está iniciando na utilização do VBA - Visual Basic for Application no MS Excel.

Em alguns momento precisamos exportar algumas planilhas para novos arquivos e queremos, neste momento, saber qual é o nome ou da pasta (aba) onde estamos, ou da planilha que usamos.

Sub sbExample8()
'Usaremos a propriedade ActiveSheet.Name para obtermos o nome da Aba ativa (worksheet).

MsgBox ActiveSheet.Name
    
'Usaremos a propriedade Activeworkbook.Name para obtermos o nome da Planilha ativa (worksheet)

    MsgBox ActiveWorkbook.Name
End Sub



Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...


Tags: VBA, Basic, Excel, worskheet, Sheet, workbook, Get, Active, Name, 


VBA Excel - Retorne o nome da Planilha



Estas duas funções UDFs (User Definition Function) retornam o nome do workbook (arquivo, a planilha utilizada).

Estas funções podem ser aproveitadas tanto diretamente nas células como internamente na codificação VBA.

Function SingleFileName() As String 
' Author: Date: Contact: 
' André Bernardes 24/11/2008 16:37 bernardess@gmail.com 
' Retorna apenas o nome do arquivo (Planilha). 

Let SingleFileName = ThisWorkbook.Name 
End Function 

Function FullFileName() As String 
' Author: Date: Contact: 
' André Bernardes 26/11/2008 09:35 bernardess@gmail.com 
' Retorna o Path, bem como o nome do arquivo (Planilha). 

    Let FullFileName = ThisWorkbook.FullName 
End Function 


Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...


Tags: VBA, File, Name, FullName, Path, Workbook, Sheet, Active , nome, planilha, workbook,


Excel Tips - 4º Exemplo de 5 Coisas Legais para se fazer com o Data Explorer - Obtenha a lista de pessoas e e-mails da sua empresa

Inline image 7
Caros, que tal aprendermos mais um exemplo de utilização do Add-in Data Explorer.

Este add-in serve para o Excel 2010 e o Excel 2013 e pode ser baixado aqui.

Data Explorer abrirá uma nova opção no Menu e através dela poderemos importar e transformar uma ampla variedade de dados de fontes distintas. Além das fontes de dados padrão como o Microsoft AccessSQL Server e Arquivos de Texto.

Data Explorer permitirá a importação de fontes tais como o Active DirectoryAzureOData e Hadoop.

Através deste post veremos mais um exemplo de com usar o Data Explorer.

4º Exemplo - Obtenha a lista de pessoas e e-mails da sua empresa

Você já desejou poder ter a lista de endereços da empresa no Outlook e colocando-a no Excel?
Bem, o Data Explorer tem uma forma de fazer isso com a opção Do Active Directory.
.
Por razões de confidencialidade pessoal, não posso lhe mostrar a minha a janela de consultas dessa opção.
De qualquer modo, o Data Explorer nos permite chegar no Active Directory, extraindo dados como o endereço de email, o nome do  contato, o departamento e o número do telefone.
O resultado final será um lista de funcionários com as informações de contato.



Tags: VBA, Data, Tip, Excel, Add-in, Data Explorer, Active Directory, outlook




VBA Excel - 00.10 - Referenciando-se as planilhas - Workbooks



Modos de referenciar-se a um Worbook:



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


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



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
diHITT - Notícias