EXCEL匯出資料到MYSQL與PHP、Phthon、R、APP共用資料
將資料存放在MYSQL可以解決多平台與不同開發工具共用資料問題,
如PHP、Phthon、R、APP的共用資料,而EXCEL又是最普遍的辦公室應用程式,
所以若能將兩者串連,相信可以讓資料運用更加彈性。
此外,一般會和EXCEL VBA連接的大多都是用到ACCESS或MS SQL資料庫,
但ACCESS資料庫與MS SQL資料庫都不是自由軟體,所以會有授權費用,
另外ACCESS資料庫基本上是單機型的資料庫,對於多台電腦連線就會有問題,
雖然可以透過網芳共用來解決,但還是非常的麻煩的,
所以改用MYSQL資料庫,似乎就可以解決前兩者資料庫的問題,
首先它是自由軟體,再者它也可以讓大家在同個網路區段裡連線。
以下介紹如何安裝與EXCEL VBA連線。
這篇文章主要是在VBA中呼叫ADO,並用SQL語言和MYSQL溝通,
淺顯易懂,而且容易操作,和大家分享,
不過比較困難的部分,
可能要注意:
1.Windoms有沒有安裝IIS,有就一定要停止,或換PORT號。
2.執行ADO一定要安裝MYSQL的驅動程式。
3.連線字串可以參考 ConnectionStrings 網站:https://www.connectionstrings.com/。
預覽畫面:
可以先參考:
PHP與雲端資料庫教學懶人包(2015)
https://terry55wu.blogspot.tw/p/blog-page_18.html
PHP雲端資料庫教學之1(打造PHP與MySQL環境)
https://terry55wu.blogspot.tw/2015/03/php1phpmysql.html
這是PHP雲端資料庫第一次上課,主要是了解學生的程度和學習需求,
並且打造PHP與MySQL環境並下載XAMPP安裝的懶人包 [下載]
1.XAMPP563.zip解壓縮到D碟與執行setup_xampp.bat與xampp-control.exe
![](https://lh5.googleusercontent.com/_plqxh0dnKeXDc5fzUlZZIcldCvK4qEQVROdpqaNF4_PLTK2raeoYZdLCl-eRWu0hyuJXMjQojC8OwIHw2mXiS9Vv96TlF4j14NfVxoTsCRubzBvVgWUzwnz6WsZhoL4sWEL9yXQ)
啟動Apache 與 MySQL (注意要允許防火牆)
![](https://lh5.googleusercontent.com/J3ANN1F2S05gFV3fLBVeUSBPDRC-fnThSFugBfzd5NYO-RVyqYl8bxEvoov_m6fKdcrevL6j8c70gUM74lGbLW25D-O0I6axkODd8uij9bsyclHOK5cqrnAaI9ltjbsiVxp8itNw)
1.如何設定XAMPP與MQSQL的安全性
![](https://lh6.googleusercontent.com/c_yzpEziKX9mUs-ZQf0BlERTipl2R3kEV0ctjBwy_I4_iBc0dQOUsQrdGcBabGw6TQmJLtQ3tkrNaedQuB69Ox49pj5s0umZibVcdD5yrAZjHmckmPKRp6JON_5eKjY8Fa9F6eP5)
![](https://lh4.googleusercontent.com/ZP3YeXGEzn9DSIlIDOujAC2SKTFu-i5unzWarXP5O_oAsRxNqqhSCXQ9_L5-DBIA8KtbVxsX4Q4uaXPpKqpyvEWBQqoLjss6Al4UXzeuxF5xPmWfBja01DLpvT8HSU5_oVhBVS5V)
2.如何新增MQSQL資料庫與資料表
建立資料庫
![](https://lh5.googleusercontent.com/zYtf5kC4YdTqpjzOv4WgdXtfHFbnBI7mDRhD1FUQXgnxP3l2uscl6UaFjGkX0T4aijYul4HisYsDEGNp0ffauA1r0lM0Lxl-8rmGJ8LQZgMcF6CZJU_nUufVXzyTjyhqbaEHPYF_)
3.建立資料表
建立問題2資料表
![](https://lh6.googleusercontent.com/DSCRPiLxMCk9EE-klu4uYbU4YKPU-UBiiPzaNqlWN6x9GRrBVt_6FTEJoO7jRBM7_bMPraQqIzURuZKJxa1r8CdLvb3lM6dg7joHOp3hAupeJ9XbAJ4R3IgFbrRC9qJyGP8h0WVu)
![](https://lh5.googleusercontent.com/2w1YjC527dvdbwQTwIn4dJtSP8DfjB42qwswDtHFdfF9al5lCEvraE_2_4Ldjg9pru2MEqT3w9vJm4vGfzFhjkm50-nqcZjYSNIhOYunpbMgVnk5cVMG7zcW045yyAFn8zBDNdal)
INSERT INTO `問題2`(`編號`, `品名`, `單價`, `數量`, `小計`, `地區`) VALUES ('0001','玩具',399,46,18354,'東')
![](https://lh6.googleusercontent.com/lhwRJbVb6RyiT3KlI22CmVxj4_YVO6yoKTOgy8XQx5tNW08iHYgsoCIIb8yIwJlsprqaLDvO0zJdMZbX7Xd4hZLoobC8xlMuoUmWUzNjhI1EuZl1FLY5rSqUAfxv2jd4M73GempP)
程式碼:
Sub 新增單筆()
r = Range("A2").End(xlDown).Row
A = Cells(r, 1)
B = Cells(r, 2)
C = Cells(r, 3)
D = Cells(r, 4)
E = Cells(r, 5)
F = Cells(r, 6)
Call 利用ADO新增資料(A, B, C, D, E, F)
MsgBox "資料新增成功!!", vbInformation
End Sub
Sub 新增全部()
For i = 2 To Range("B2").End(xlDown).Row
A = Cells(i, 1)
B = Cells(i, 2)
C = Cells(i, 3)
D = Cells(i, 4)
E = Cells(i, 5)
F = Cells(i, 6)
Call 利用ADO新增資料(A, B, C, D, E, F)
Application.StatusBar = "新增到第" & i - 1 & "筆"
Next
MsgBox "資料新增全部成功!!", vbInformation
End Sub
Sub 利用ADO新增資料(A, B, C, D, E, F)
'1.建立Connection物件
Set myCon = CreateObject("ADODB.Connection")
'2.連結資料庫
myCon.Open "Driver={MySQL ODBC 5.2 UNICODE Driver};Server=127.0.0.1;Database=問題2;User=root;Password=1234;Option=3;"
'3.建立Recordset物件&連結資料表
Sql = "INSERT INTO 問題2 (編號, 品名, 單價, 數量, 小計, 地區) VALUES ('" & _
A & "','" & B & "', " & C & ", " & D & "," & E & ",'" & F & "')"
'MsgBox (Sql)
Set myRs = myCon.Execute(Sql)
End Sub
Public Sub 刪除EXCEL資料()
Range("A2:F" & Range("A2").End(xlDown).Row).ClearContents
End Sub
Sub 從MYSQL資料庫全部匯入()
'1.建立Connection物件
Set myCon = CreateObject("ADODB.Connection")
'2.連結資料庫
'myCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\問題1.accdb;"
myCon.Open "Driver={MySQL ODBC 5.2 UNICODE Driver};Server=127.0.0.1;Database=問題2;User=root;Password=1234;Option=3;"
'3.建立Recordset物件&連結資料表
Sql = "Select * from 問題2"
'MsgBox (Sql)
Set myRs = myCon.Execute(Sql)
Range("A2").CopyFromRecordset myRs
End Sub
Sub 刪除所有MYSQL資料()
'1.建立Connection物件
Set myCon = CreateObject("ADODB.Connection")
'2.連結資料庫
'myCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\問題1.accdb;"
myCon.Open "Driver={MySQL ODBC 5.2 UNICODE Driver};Server=127.0.0.1;Database=問題2;User=root;Password=1234;Option=3;"
'3.建立Recordset物件&連結資料表
Sql = "Delete from 問題2"
'MsgBox (Sql)
Set myRs = myCon.Execute(Sql)
End Sub
**如何遠端連線
1.新增使用者
![](https://lh4.googleusercontent.com/s0gyRIIHs4rTCEWGZPJHHzTKQ6eqkTr7EF1roJVO-xoJD1FSXLy9n4YpXCb5rSa1Aw3tX6bjpByMEY1S7z0FSPBdRb350AgHuRVzBIFn7_jyvX-Ig4yZr_M4jXsbacs82y7D_pWZ)
2.設定權限(任意主機)
![](https://lh3.googleusercontent.com/e7T3q_RTTZlvSRXupEJCqBXx1yL6aDfFx5xrhgaj2pphSPyGskcxXlRlLDg6iMkdHw5lmQLLxB6a__9c1YYkWcJBmvYnSTWLceh5iEBTSaTXwYGma897cC7xwYZIGtC5Kz4KC7Pv)
3.修改連線主機的IP或名稱![](https://lh5.googleusercontent.com/_7cJuhs4DJ5qFmB9x0DjU6qIh4YT3L-QnoRcEXNwYBP2nigNboVWDsgGOzOu-ViyBsMF6N4cK3l2LXhkKyWrqIAVRP-nN_6HKoTa7TJpIOuACwB2CO-SFqM2huoo9GMt0MSyGTjz)
**新增全部_進度狀態列
完成畫面:
![](https://lh6.googleusercontent.com/eouAxAZ-D8ZU7zmfOPwT-OKWiHC77TA5vFqjagHFTH1cFof50BoPEn1IFwX6ylvrHc620Edb9xwtKTnO7kZKxEaLLbs7ze5_33nEL9Ff-utOfE1NwcKKJ7jaFfa4V85BIbElTG9Z)
表單屬性
![](https://lh6.googleusercontent.com/0sLFdP7VKZ5IPnJ8ZJXMjASMbRgfgQP8Lx3bEhgTR2K7bTmR5CmObBzi8FLJ1ClwPiNjbgJ9bJ3jwHm5S01-xWUnOFL1lBEX8m0yUxgyZW89wIR9uAvPZjESalQzqDLQ6kcB3GIx)
標籤屬性
![](https://lh5.googleusercontent.com/X-haSN8tq7rHgygrsdrx1cV4ETETf0QOwfoRMu4DAxcSCD2zB29CNJBJo0TgGMs6oDY7vB_mP9bmSIQmxK2eKah2fw7-liITUY6cEBw1JH6wauI4btpucL8nqwx_Pk7b_IKQSdKe)
Private Sub UserForm_Activate()
'狀態列歸零
PB.Width = 0
'取得總列數
r = Range("A2").End(xlDown).Row
For i = 2 To r
A = Cells(i, 1)
B = Cells(i, 2)
C = Cells(i, 3)
D = Cells(i, 4)
E = Cells(i, 5)
F = Cells(i, 6)
Call 利用ADO新增資料(A, B, C, D, E, F)
'更新狀態列用400去除
PB.Width = (i - 1) * (400 / (r - 1))
'更新表單
home.Repaint
Application.StatusBar = "新增到第" & i - 1 & "筆"
Next
home.Hide
End Sub
Sub 新增全部_進度狀態列()
home.Show
MsgBox "資料新增全部成功!!", vbInformation
End Sub
教學影音(完整版在論壇):
教學影音完整版在論壇:
https://groups.google.com/forum/#!forum/scu_excel_vba2_86
課程特色:
1.如何將函數轉成VBA2.VBA與資料庫快速結合
EXCEL函數、 VBA程式設計與資料庫是分別屬於三個領域的知識,
但卻是目前大家都需要的一項專業技能,要把三者融合的很好實在非常不容易,
剛好我有近20年的VB程式設計與資料庫設計的經驗,
教EXCEL函數與相關課程也有多年,因此清楚如何把最重要的知識教給大家,
ADO資料庫設計的知識非常多,但根據我多年的設計實務經驗,
覺得最重要的是掌握SQL語言,就可以輕易的完成查詢、新增、修改與刪除等功能,
就可以輕易的完成自己想處理的大量資料,大大提高工作效率了!
完整教學影音DVD申請:http://goo.gl/ZlBZE
其他相關學習:
1.EXCEL VBA設計(自強基金會2012)第4次上課
http://terry55wu.blogspot.tw/2012/03/excel-vba20124.html
2.如何把EXCEL"函數"變為 "VBA"?自強基金會2012第5次上課
http://terry55wu.blogspot.tw/2012/04/excel-vba.html
3.自強基金會2012第8次上課
http://terry55wu.blogspot.tw/2012/05/excel-vba20128.html
4.自強基金會2012第9次上課
http://terry55wu.blogspot.tw/2012/05/excel-vba20129.html
5.EXCEL_VBA與資料庫--自強基金會2012(Ending)
http://terry55wu.blogspot.tw/2012/07/excelvba-2012ending.html
EXCEL,VBA,函數,文化大學推廣部,EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel excel vba教學視頻 excel函數教學 excel函數 MYSQL