Conectar excel com bd mysql

[Tiago Araújo]

Boa tarde,

 

eu gostaria de saber como faço pra conectar uma planilha excel com uma tabela do banco de dados mysql.

 

obrigado.

[Basole]

1º tem que instalar [caso nao tenha] o Connector/ODBC 5.x.x.x (link down. abaixo)p/ interface com o servidor. Em seguida abra o excel e crie um modulo  e cole o codigo abaixo: 

 

http://dev.mysql.com/downloads/connector/odbc/

Sub Importar_dados_Mysql()'PRECISA HABILITAR A REFERENCIA MICROSOFT ACTIVEX DATA OBJECTS 2.xxx LIBRARY'fonte: Coloniz@[member=DOR]    Dim cx As New ClasseSQL    'CHAMADA DA NOSSA CLASSE DE CONEXÃO    Dim banco, banco2 As ADODB.Recordset    Dim sql As String    'STRING DE COMANDO    Dim sql2 As String    'O COMANDO PARA SELECIONAR DADOS É O SELECT    sql = "SELECT * from SUPPLIERS"    '& _                                       ' " WHERE  SETOR = 'LOGISTICA'" 'A CLÁUSULA WHERE BUSCA APENAS    'OD FUNCIONÁRIOS DO SETOR DE LOGISTICA    'SELECIONA O BANCO    sql2 = "USE Northwind"    Set banco = New ADODB.Recordset    Set banco2 = New ADODB.Recordset    'CONEXÃO ABERTA    cx.nConectar    'TRATAMENTO DE ERROS    On Error GoTo erro    'OPERAÇÃO EXECUTADA    banco2.Open sql2, cx.c    banco.Open sql, cx.c    Dim xls As Excel.Worksheet    Set xls = Sheets("plan1")    xls.Range("A2").CopyFromRecordset banco    'DESCONECTAR E LIMPAR MEMORIA    cx.Desconectar    Set banco = Nothing    Set banco2 = Nothing    Exit Sub    'CASO HAJA ERROerro:    MsgBox Err.Description    cx.Desconectar    Set banco = Nothing    Set banco2 = NothingEnd Sub

Feito isso, Crie um Modulo de Classe e renomeie como: ClasseMySQL e cole o codigo abaixo neste modulo

Public c As New ADODB.ConnectionPublic Sub nConectar()    Dim s As String        'VERIFIQUE OS DADOS DE INSTALAÇÃO DO SEU BANCO DE DADOS    s = "DRIVER={MySQL ODBC 5.1 Driver};" & _        "SERVER=localhost;" & _        "USER=root;" '& _        '"PASSWORD=######;" & _        '"Option=3"    c.Open s    End SubPublic Sub Desconectar()    c.CloseEnd Sub

O modulo acima que faz a conexao, então caso precise de senha p/ acessar o servidor, habilite a linha [PASSWORD=######], e insira a senha.

O Exemplo acima importa dados do banco Northwind e a tabela SUPPLIERS, caso nao tenha este banco, altere ajustando ao seu banco e tabela desejada.