excel checkbox mysql |mysql数据库导入excel

其中一项功能就是在 Excel 中添加 Checkbox，再通过 VBA 编写脚本实现将 Checkbox 中的数据保存到 MySQL 数据库中，方便后续的数据管理和处理。

Sub uploadDataToMySQL()
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
'连接 MySQL 数据库
cn.Open "Provider=MSDASQL.1;DSN=MySQLDSN;"
'指定表名和列名，根据实际情况自行更改
Dim tableName As String, columnName As String
tableName = "test"
columnName = "name"
'遍历 Checkbox 并将勾选项上传到数据库
Dim checkBox As CheckBox
Dim rowNum As Integer
rowNum = 1
Do Until IsEmpty(Range("A" & rowNum))
Set checkBox = ActiveSheet.CheckBoxes("CheckBox" & rowNum)
If checkBox.Value = True Then
cn.Execute "INSERT INTO " & tableName & "(" & columnName & ")" & " VALUES ('" & Range("A" & rowNum).Value & "')"
End If
rowNum = rowNum + 1
Loop
'关闭数据库连接
cn.Close
Set cn = Nothing
End Sub

通过以上代码，可以实现将 Excel 中 Checkbox 勾选的数据上传到 MySQL 数据库中的操作，方便数据的管理和处理。

需要注意的是，要运行上述 VBA 代码，需要先设置好 MySQL 的 DSN，并在代码中进行相应的更改，另外表名和列名需要进行适当修改，以便与实际情况相符。