Traer datos de una Tabla de Mysql a una hoja de Excel

[Alexandercd88]

Buenas Tardes Estimados, espero que me puedan ayudar, como puedo hacer para traer la información de una tabla de Mysql y llevarlo a excel

Muchas Gracias

[asesorcperic]

antes que nada necesitas el Driver ODBC de Mysql instalado

la conexion la puedes hacer asi

    Set Bd = New ADODB.Connection
    Bd.ConnectionString = "driver={MySQL ODBC 3.51 Driver};" & _
                                "Server=localhost";" & _
                                "Port=3306;" & _
                                "Database=base;" & _
                                "User=user;" & _
                                "Password=pswd;" & _
                                "Option=3;"

y la consulta asi

  Dim rs As New ADODB.Recordset
   
    rs.CursorLocation = adUseClient
    rs.Open "SELECT * FROM BASE", Bd, adOpenStatic, adLockOptimistic, adCmdText

Ahora ya haces con el recordeset lo que necesites

[Alexandercd88]

Muchas Gracias asecorcperic, lo voy aprobar y te comento como me fue, muchas Gracias amigo