Acessando o AD - Active Directory - com o Excel

Acessando o AD - Active Directory - com o Excel

A exibição do Active Directory no Excel pode ajudar os muito a sua manutenção de várias maneiras. Gerenciar o Active Directory no Excel pode economizar muito o tempo dos administradores de rede.


O que é o Active Directory?

O Active Directory ( AD ) é um Banco de Dados que armazena, entre outras coisas, contas de usuário para uma rede Microsoft, também conhecido como um domínio. O Excel pode trabalhar com AD usando LDAP (Lightweight Directory Access Protocol) que é um protocolo para comunicação com o AD.


Como o Active Directory é importante?

Os administradores de rede podem usar esse aplicativo para baixar dados do AD e criar:

• Diretórios de telefone
• Listagens do Departamento
• Folhetos de roteamento (cartões de simpatia, abordagens RH, etc)
• E mais.

Os administradores de rede podem usar esse aplicativo para atualizar os números de telefone do usuário ou o departamento / empresa atribuído.
  
Desenvolvedores VBA podem usar esse aplicativo como um guia para trabalhar com o Active Directory.


CASE

Ao instalar recentemente um novo sistema telefônico. Suas extensões foram alteradas. Os números de discagem direta foram mudados. Foi necessárias atualizar o AD. No entanto, o uso do aplicativo Active Directory da Microsoft, embora ótimo para alterações de um usuário, não lida bem com atualizações em massa. Então usei este aplicativo para facilitar esse trabalho.

Ao mesmo tempo, os usuários precisavam de uma lista de diretórios regularmente atualizada. A função de exibição deste aplicativo fornece a lista de diretórios mais atualizada possível sem sobrecarregar o pessoal, matar árvores ou adicionar ao aterro sanitário.

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

            

MELHORE SEUS BANCOS DE DADOS E APLICAÇÕES MS ACCESS

MELHORE SUAS APLICAÇÕES MS ACCESS

Ampla familiaridade

MELHORE SEUS BANCOS DE DADOS E APLICAÇÕES MS ACCESS

Desenvolvemos quaisquer soluções e aplicações pessoais ou da empresa com nossa consultoria freelance.

Conecte TODAS as suas bases de dados

Melhore cada aplicação existente

Atualize a versão MS Access da sua aplicação

Implemente uma versão mais afinada à sua necessidade

Melhore os relatórios e as interfaces

Conecte suas aplicações as planilhas

Solicite orçamento via:

brazilsalesforceeffectiveness@gmail.com

       

VBA Excel - Extraindo dados do MySQL - Extract, Get Data from MySQL PHP

| 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   

É sempre importante relembrar o básico: O código abaixo mostra como podemos extrair os dados de um Banco MySQL, gravando-os na planilha do Excel. Alguns podem até usá-lo para controlar a extração de grandes quantidades de dados como o desenvolvimento PHP para web.

Este código é oportuno para usarmos quando precisamos de um banco de dados MySQL que está num site, por exemplo, e precisa realizar uma grande atualização de dados. Basta automatizarmos o processo e obtermos os dados que precisamos.

Para que seja capaz de executar o código VBA certifique-se de ter habilitado o Microsoft ActiveX Data Objects Library XX. Além de uma conexão checada de ODBC para o MySQL instalada no computador onde a aplicação rodará.

Sub ExDataFromMySQL()

Dim Password As String

Dim SQLStr As String

Dim Cn As ADODB.Connection

Dim Server_Name As String

Dim User_ID As String

Dim Database_Name As String

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

     

Range("A2:BB90000").ClearContents

Let Server_Name = Range("e4").Value             ' IP number or servername

Let Database_Name = Range("e1").Value         ' Name of database

Let User_ID = Range("h1").Value                      ' id user or username

Let Password = Range("e3").Value                    ' Password

Let Tabellen = Range("e2").Value                     ' Name of table to write to

Let SQLStr = "SELECT * FROM " & Tabellen

     

Set Cn = New ADODB.Connection

Cn.Open "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & ";Database=" & Database_Name & _ ";Uid=" & User_ID & ";Pwd=" & Password & ";"

     

rs.Open SQLStr, Cn, adOpenStatic

    

Dim myArray()

Let myArray = rs.GetRows()

Let kolumner = UBound(myArray, 1)

Let rader = UBound(myArray, 2)

For K = 0 To kolumner

Let Range("A5").Offset(0, K).Value = rs.Fields(K).Name

For R = 0 To rader

       Let Range("A5").Offset(R + 1, K).Value = myArray(K, R)

Next

Next

rs.Close

Set rs = Nothing

Cn.Close

Set Cn = Nothing

End Sub

Tags: VBA, Excel, Banco de Dados, MySQL, SQL, extract, extrair, dados, data, Get, PHP, ODBC, connection, MySQL,