本文主要涉及：安装MySQL

VBA中链接MySQL设置

其他电脑使用VBA链接MySQL

系统环境：

主服务器：Windows 10 64bit

offset 365 64bit

MySQL Community Server 8.0.13

第二台电脑：Windows 10 64bit

Excel 2016 32bit

MySQL Community Server 8.0.13

1.安装MySQL

先在两台电脑上安装MySQL 8.0.13，直接在官网下载，根据自己的系统位数下载对应的版本

因为是免安装版，需要自己进行系统配置，解压文件放到自定义的目录，然后在目录下新建一个my.ini配置文件，配置内容如下：

[client]

#端口

port = 3308

default-character-set = UTF8MB4

[mysqld]

port = 3308

character_set_server = UTF8MB4

#MySQL安装的根目录

basedir=D:\MySQL\mysql-8.0.13-winx64

#数据库文件的目录

datadir=D:\MySQL\mysql-8.0.13-winx64\data

group_concat_max_len=20000

[WinMySQLAdmin]

D:\MySQL\mysql-8.0.13-winx64\bin\mysqld.exe

将MySQL添加到环境变量：右键我的电脑 >> 属性>> 高级系统设置 >> 环境变量

系统变量>>选择Path>>编辑>>新建>>将MySQL的bin目录地址复制进去 >>确定

环境变量设置完毕

以管理者运行 cmd >>输入 mysqld --initialize --console初始化数据库(如果在MySQL的根目录下有data文件，先删除，在运行这段代码) ，第二行最后为数据库的初始密码。

安装MySQL服务mysqld --install

启动MySQL服务net start mysql

登陆MySQLmysql -u root -p密码是刚才初始化的密码

修改密码ALTER USER 'root'@'localhost' IDENTIFIED WITH mysql_native_password BY '123456'; BY后面设置新的密码

MySQL安装完毕

主服务器的电脑还需对MySQL开放访问权限，具体方法如下木子-李：MySQL 局域网授权问题​zhuanlan.zhihu.com

对主服务器系统开放3308端口

入站规则>>端口>>特定端口3308>>名称随便写一个>>确定

2.在VBA中链接MySQL

下载对应的MSI文件安装即可。

这里应当注意的是，在下载安装ODBC连接器时，要选择和你的Excel相同位数的版本，而不是系统版本

添加OBDC数据源

打开控制面板>>管理工具>>ODBC 数据源>>在弹出的窗口中的“用户DSN”选项卡右侧，选择“添加”>>在新数据库源中会出现两个MySQL驱动，分别为“MySQL ODBC 8.0 ANSI Driver”及"MySQL ODBC 8.0 Unicode Driver"，两者的编码不一样，选择第二个。

点击完成后弹出配置界面，关于界面的说明如下：

在按照上述步骤配置了环境支持后，在Excel这边，需要先在VBE中启动数据库连接支持。按下Alt+F11打开VBE，在菜单栏选择“工具”－“引用”，在弹出的引用窗口中，找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 2.8 Library"，把前面的框勾选上，点击确定即可。 (如果不是这两个版本，则选择一个版本号最高的勾选即可)

然后就可以使用VBA访问MySQL了，

Sub 测试()

Dim conn As New ADODB.Connection

Dim MySQLStr$

Dim sql$

'Driver 你的ODBC版本

'Server MySQL所在的IP地址

'Port 端口号

'DB 访问的数据库名称

'Uid 访问的用户名

'Pwd 访问的密码

MySQLStr = "Driver={MySQL ODBC 8.0 Unicode Driver};" & _

"Server=192.168.1.123;Port=3308;" & _

"DB=任务协作;Uid=root;Pwd=123456;OPTION=3;"

conn.Open MySQLStr '打开数据库

sql = "Insert into 员工资料 VALUES('数据部','木子李','123')"

conn.Execute sql '添加数据

conn.Close

Set conn = Nothing

End Sub

在局域网内测试成功，两台电脑都可以访问MySQL

VBA代码是一样的，主要是配置MySQL的访问权限