✔ 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.
Caros, que tal aprendermos mais um exemplo de utilização doAdd-inData Explorer.
Este add-in serve para o Excel 2010 e o Excel 2013 e pode ser baixado aqui.
O 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 Access, SQL Server e Arquivos de Texto.
O Data Explorer permitirá a importação de fontes tais como o Active Directory, Azure, OData 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
Mas como sempre temos aqueles que se perguntam: "Mas prá que vou querer aprender isso?" Bem a questão talvez não seja "para que aprender", mas saber fazer isso caso seja necessário. A seguintes interações podem ser necessárias:
- Talvez deseje conduzir o seu usuário para uma página com o help da aplicação que fez.
- Talvez queira direcionar o usuário para uma página específica do MS Sharepoint.
- Talvez apenas tenha a necessidade de conduzir os seus usuários a página do seu Blog quando saírem da sua aplicação.
Segue o modo amador de abrir a página, mas funciona:
Sub WebPage()
Dim IEapp As Object
Dim WebUrl As String
Dim NavigatorAddress As String
'Se você não utilizar o Chrome, troque chrome.exe por FireFox.exe
Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Set IEapp = CreateObject("InternetExplorer.Application") 'Set IEapp = InternetExplorer
'You can't really automate the passing of variables (ie. Login Name and Passwords) using Chrome or FireFox, but the below code will open the desired page
Shell (NavigatorAddress & " -url " & WebUrl)
With IEapp
Let .Silent = True 'No Pop-ups
Let .Visible = True 'Set InternetExplorer to Visible
.Navigate WebUrl 'Load web page
'Run and Wait, if you intend on passing variables at a later stage
Do While .Busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
End With
End Sub
Segue a forma correta, com um nível mais profissional:
Crie um módulo e cole o código abaixo.
Option Explicit
Private pWebAddress As String
Public Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Sub NewShell (cmdLine As String, lngWindowHndl As Long)
Ver essa mensagem é irritante. Sabemos disso. (Imagine como é escrevê-la...). Mas também é extremamente importante. Um dos maiores trunfos do ✔ Brazil SFE®é seu modelo parcialmente financiado pelos leitores.
1. O financiamento dos leitores significa que podemos cobrir o que quisermos. Não sujeitos a caprichos de um proprietário bilionário. Ninguém pode nos dizer o que não dizer ou o que não reportar.
2. O financiamento dos leitores significa que não precisamos correr atrás de cliques e tráfego. Não buscamos desesperadamente a sua atenção por si só: buscamos as histórias que nossa equipe editorial considera importantes e que merecem o seu tempo.
3. O financiamento dos leitores significa que podemos manter nosso blog aberto, permitindo que o maior número possível de pessoas leia artigos de qualidade do mundo todo.
O apoio de leitores como você torna tudo isso possível. No momento, apenas 2,4% dos nossos leitores regulares ajudam a financiar nosso trabalho. Se você quer ajudar a proteger nossa independência editorial, considere juntar-se a nós hoje mesmo.
Valorizamos qualquer quantia que possa nos dar, mas apoiar mensalmente é o que causa maior impacto, permitindo um investimento maior em nosso trabalho mais crucial e destemido, assim esperamos que considere apoiar-nos. Obrigado!
