Excel是一款強大的辦公軟件，經(jīng)常被用作數(shù)據(jù)分析和管理。而MySQL則是一種流行的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)。如果想將Excel數(shù)據(jù)導(dǎo)入MySQL，傳統(tǒng)的做法是通過復(fù)制粘貼或手動輸入，但這種方法存在一定的風(fēng)險和錯誤率。本文將介紹一種簡單的方式，即通過使用VBA代碼將Excel數(shù)據(jù)一鍵導(dǎo)入MySQL。

Sub ImportMySQLData()
'定義變量
Dim conn As Object
Dim rs As Object
Dim strSQL As String
Dim sSERVER As String
Dim sDB As String
Dim sUSER As String
Dim sPASSWORD As String
'連接信息，請根據(jù)實際情況進行修改
sSERVER = "localhost"
sDB = "mydatabase"
sUSER = "root"
sPASSWORD = "mypassword"
'建立連接
Set conn = CreateObject("ADODB.Connection")
conn.Open "DRIVER={MySQL ODBC 8.0 Driver};" _
& "SERVER=" & sSERVER & ";" _
& "DATABASE=" & sDB & ";" _
& "USER=" & sUSER & ";" _
& "PASSWORD=" & sPASSWORD & ";" _
& "OPTION=16427;"
Set rs = CreateObject("ADODB.Recordset")
'要導(dǎo)入的表格名，請根據(jù)實際情況進行修改
strSQL = "SELECT * FROM mytable"
rs.Open strSQL, conn, 3, 3
'要導(dǎo)入的工作表名，請根據(jù)實際情況進行修改
LastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LastRow
rs.AddNew
rs.Fields("col1").Value = Sheets("Sheet1").Range("A" & i).Value
rs.Fields("col2").Value = Sheets("Sheet1").Range("B" & i).Value
rs.Update
Next i
'關(guān)閉連接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
'導(dǎo)入完成
MsgBox "數(shù)據(jù)導(dǎo)入成功！"
End Sub

首先需要定義一些變量，包括連接對象、記錄集對象和SQL語句等。然后建立連接，同時打開要導(dǎo)入的表格和工作表。使用循環(huán)遍歷Excel表格中的數(shù)據(jù)，并通過AddNew和Fields方法向MySQL數(shù)據(jù)庫中插入數(shù)據(jù)。最后關(guān)閉連接并提示導(dǎo)入完成。完成以上代碼后，通過點擊運行(Press F5)或單擊運行按鈕即可將Excel數(shù)據(jù)一鍵導(dǎo)入MySQL。