✔ Programação GLOBAL®: VBA Excel - Extraindo dados do MySQL

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

2013 Iniciou - Sejamos pescadores desenvolvedores

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

Encerramento do ano Comercial de 2012

É 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