提取，获取从MySQL PHP数据
VBA宏代码这从一个MySQL数据库中提取数据，将数据写入一个Excel文件。许多使用此大量数据的PHP web开发的控制。
解释该方法是直截了当。下载文件中的数据填写有关设立MySQL连接。按下按钮，并从选定的表中的所有数据都将显示出来。 为了能够运行VBA宏代码，确保您已经启用了微软的ActiveX数据对象某某图书馆。另外一个检查mysql.com的ODBC连接器必须安装在您的计算机上。
码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
下载Excel文件！提取数据，从- mysql.xls |
