怎么通过vba获取mysql到excel文件

在SQL数据库的很多应用场景中，需要将SQL中的某个数据库或查询的结果导出到EXCEL中，因为Excel更容易对数据处理和方便用户邮箱传输。本次经验归纳了SQL数据表导出到EXCEL中的三种方法：

1、复制粘贴，将SQL查询语句按指定条件导出数据；——适合小量数据。

2、导出完整的SQL数据表为Excel文件；——适合大量数据。

3、定时自动导出指定SQL数据表为Excel文件；——适合大量数据。

其它：DTS数据转换服务导入导出向导或者DTS设计器创建DTS包；

可以使用以下代码在EXCEL上使用VBA连接MYSQL数据库    ：

Dim strconnt As String

  strconnt = ""

  Set connt = New ADODB.Connection

  Dim sevip, Db, user, pwd As String

  '设服务器地址、所连数据，及登录用户密码

  sevip = "localhost"

  Db = “test"

  user = "root"

  pwd = "123456"

  strconnt = "DRIVER={MySql ODBC 5.3 Unicode Driver}SERVER=" & sevip & "Database=" & Db & "Uid=" & user & "Pwd=" & pwd & "Stmt=set names GBK"

  connt.ConnectionString = strconnt

  connt.Open

用SQL语句把两张表连接起来

select A.*,B.类别名 as 类别名 from dede_arctype as A,类别表 as B where A.类别号=B.类别号 and A.id=要查的ID号

---