如果您正在尋找一種方法來將Excel文件中的數據映射為MySQL數據庫表,那么您來對地方了。在這篇文章中,我們將介紹使用一些簡單的代碼將Excel映射成MySQL數據庫表的方法。
Sub excel_to_mysql() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim cmd As ADODB.Command '連接到MySQL數據庫 Set conn = New ADODB.Connection conn.Open "Driver={MySQL ODBC 8.0 Unicode Driver};Server=server_ip_address;Database=database_name;Uid=username;Pwd=password;" '選擇Excel表格中的數據 Set rs = New ADODB.Recordset rs.Open "SELECT * FROM [Sheet1$]", _ "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\example.xlsx;Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"";" '創建MySQL數據庫表 Set cmd = New ADODB.Command cmd.ActiveConnection = conn cmd.CommandText = "CREATE TABLE example (id int, name varchar(255), age int)" cmd.Execute '將Excel數據插入到MySQL表格中 While Not rs.EOF cmd.CommandText = "INSERT INTO example VALUES (" & rs.Fields("id").Value & ", '" & rs.Fields("name").Value & "', " & rs.Fields("age").Value & ")" cmd.Execute rs.MoveNext Wend '斷開連接并釋放對象 rs.Close Set rs = Nothing Set cmd = Nothing conn.Close Set conn = Nothing End Sub
以上是一個簡單的VBA代碼,它連接到MySQL數據庫并將Excel文件中的數據映射為MySQL數據庫表。使用這個代碼,您只需要將Excel表格中的數據改為自己的數據,然后運行代碼。代碼將自動生成一個名為“example”的MySQL表格,并將數據插入該表格中。
這個過程可能有一點復雜,但是這樣的映射方式是非??煽壳异`活的。如果您有大量的數據需要映射,這個方法也可以高效完成。希望這篇文章對您有所幫助。