Extracto, Obtener datos de MySQL PHP
Este código VBA Macro extrae datos de una base de datos MySQL y escribe los datos en un archivo de Excel. Muchos utilizan esto para grandes cantidades de datos de control para el desarrollo web PHP.
Explicación El planteamiento es sencillo. Descargue el archivo de completar los datos sobre creación de la conexión a MySQL. Pulse el botón y todos los datos de la tabla seleccionada en la pantalla. Para poder ejecutar el código VBA Macro asegúrese de que ha permitido a la Microsoft ActiveX Data Objects XX Biblioteca. También un conector ODBC mysql.com de verificación es necesario tener instalado en su equipo.
Código Sub ExtractDataFromMySQL()
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("a5:bb60000").ClearContents
Server_Name = Range("e4").Value ' IP number or servername
Database_Name = Range("e1").Value ' Name of database
User_ID = Range("h1").Value ' id user or username
Password = Range("e3").Value ' Password
Tabellen = Range("e2").Value ' Name of table to write to
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()
myArray = rs.GetRows()
kolumner = UBound(myArray, 1)
rader = UBound(myArray, 2)
For K = 0 To kolumner
Range("A5").Offset(0, K).Value = rs.Fields(K).Name
For R = 0 To rader
Range("A5").Offset(R + 1, K).Value = myArray(K, R)
Next
Next
rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub
Descargar archivo de Excel!extracto de los datos-de-mysql.xls |
