SQL语句具有功能丰富、使用方便灵活、语言简洁易学等突出的优点，深受计算机工业界和计算机用户的欢迎,MySQL是最流行的数据库之一，工作中又经常用到Excel工作簿，而将两者结合起来使用，非常方便。

数据查询

一、我的文件数据如下图

查询得到的数据存放的工作表

MySQL数据库中的文件数据

二、VBA代码

Sub GetDatafrommysql()

'定义对象

Dim con As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim sql As String

Dim sh As Worksheet

Dim i As Integer

'建立数据库的连接

con.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=127.0.0.1;DB=corn;UID=wyj;PWD=wyj;OPTION=3;"

con.Open

sql = "select * from 大包装入库"

rs.Open sql, con, adOpenStatic, adLockOptimistic

'设置表头

Set sh = Sheets(2)

Cells.Clear

For i = 0 To rs.Fields.Count - 1

sh.Cells(1, i + 1) = rs.Fields(i).name

Next i

'将数据输出到工作表

sh.Range("A2").CopyFromRecordset rs

'关闭连接

rs.Close

con.Close

Set rs = Nothing

Set con = Nothing

End Sub

代码很简单，小白照搬就行，如有不妥或不明白之处，可以在评论区留言，欢迎关注、点赞、收藏、转发。