EXCEL上使用VBA连接MYSQL数据库

Henry_bian

可以使用以下代码在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

有几点值得提一下
网上查到了些参考的代码，驱动基本写的是MySql ODBC 3.51 Driver，但如果你是使用ODBC5.3版本的话，光将3.51改成5.3是不行的，驱动的名称一定要和管理工具-数据源-驱动程序中的名称一致（windows）。安装了ODBC5.3版后，MYSQL的驱动有两个，一个是MySql ODBC 5.3 Unicode Driver，还有一个是MySql ODBC 5.3 ANSI Driver。
我用的版本是EXCEL2013,需要引用MS ADO 2.8
MySql ODBC 是5.3.4版
MySql是5.6.22版

自己也是一知半解，折腾了下才搞明白的，所以写出来给需要的人分享。

name004

做个记号，可能有用

tchru

高手，求教：http://quote.eastmoney.com/center/list.html#285002_4这个网页的数据如何抓取到EXCLE中，如果能帮我写出代码，万分感谢！

songzi2000

先收藏，看起来不错，可能有用，多谢了

wangnb819

非常感谢，刚好用到

zmnyu

非常感谢楼主的分享，刚刚使用，成功了！

zongyj

谢谢分享！！

peijie2gd

楼主，我也是这样，可是始终报错，说找不到数据源。我在odbc中也配置了，就是不行。

littlefatli

谢谢分享，先收藏着

antcg

一直折腾这个，都没成功。