2016年8月21日 星期日

EXCEL VBA改用MYSQL當成資料庫存放大量資料

EXCEL VBA改用MYSQL當成資料庫存放大量資料

一般會和EXCEL VBA連接的大多都是用到ACCESSMS SQL資料庫
但ACCESS資料庫與MS SQL資料庫都不是自由軟體,所以會有授權費用
另外ACCESS資料庫基本上是單機型的資料庫,對於多台電腦連線就會有問題
雖然可以透過網芳共用來解決,但還是非常的麻煩的,
所以改用MYSQL資料庫,似乎就可以解決前兩者資料庫的問題,
首先它是自由軟體,再者它也可以讓大家在同個網路區段裡連線。
以下介紹如何安裝EXCEL VBA連線

預覽畫面:


可以先參考:
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安裝的懶人包 [下載]


解壓縮到D碟與執行setup_xampp.batxampp-control.exe



啟動Apache 與 MySQL (注意要允許防火牆)



1.如何設定XAMPP與MQSQL的安全性




2.如何新增MQSQL資料庫與資料表
建立資料庫

3.建立資料表

4.增加欄位(姓名,身高,體重,性別,標準體重)



INSERT INTO 問題1 (姓名,身高,體重,性別,標準體重) values ('楊XX',170,72,'男',69.94)
補充:
查詢資料:select * from 問題1 where 性別='女'
修改資料:Update 問題1 set 身高='170' where 姓名='李XX'
刪除資料:DELETE FROM 問題1 where 姓名='李XX'


如何在EXCEL表單中新增一筆資料到MYSQL資料庫中:


1.完成畫面:

新增單筆、新增全部、刪除EXCEL資料、從MYSQL資料庫全部匯入、刪除所有MYSQL資料


Sub 新增單筆()

   r = Range("B2").End(xlDown).Row
   A = Cells(r, 2)
   B = Cells(r, 3)
   C = Cells(r, 4)
   D = Cells(r, 5)
   E = Cells(r, 6)
   Call 利用ADO新增資料(A, B, C, D, E)
   MsgBox "資料新增成功!!", vbInformation
End Sub

Sub 新增全部()

   For i = 3 To Range("B2").End(xlDown).Row
       A = Cells(i, "B")
       B = Cells(i, 3)
       C = Cells(i, 4)
       D = Cells(i, 5)
       E = Cells(i, 6)
       Call 利用ADO新增資料(A, B, C, D, E)
   Next
   MsgBox "資料新增全部成功!!", vbInformation
End Sub

Sub 利用ADO新增資料(A, B, C, D, E)

   '1.建立Connection物件
   Set myCon = CreateObject("ADODB.Connection")
   '2.連結資料庫
   myCon.Open "Driver={MySQL ODBC 5.2 UNICODE Driver};Server=127.0.0.1;Database=問題1;User=root;Password=1234;Option=3;"
   '3.建立Recordset物件&連結資料表
   Sql = "INSERT INTO 問題1 (姓名,身高,體重,性別,標準體重) VALUES ('" & _
   A & "'," & B & ", " & C & ", '" & D & "', " & E & ")"
   'MsgBox (Sql)
   Set myRs = myCon.Execute(Sql)
End Sub
Public Sub 刪除EXCEL資料()
   Range("B3:F" & Range("B2").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=問題1;User=root;Password=1234;Option=3;"
   '3.建立Recordset物件&連結資料表
   Sql = "Select * from 問題1"
   'MsgBox (Sql)
   Set myRs = myCon.Execute(Sql)
   Range("B3").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=問題1;User=root;Password=1234;Option=3;"
   '3.建立Recordset物件&連結資料表
   Sql = "Delete from 問題1"
   'MsgBox (Sql)
   Set myRs = myCon.Execute(Sql)
End Sub


最後如何遠端連線MYSQL的設定

1.新增使用者

2.設定權限(任意主機)

3.修改連線主機的IP或名稱


教學影音(完整版在論壇):

教學影音完整版在論壇:
https://groups.google.com/forum/#!forum/scu_excel_vba2_86

課程特色:
1.如何將函數轉成VBA2.VBA與資料庫快速結合

EXCEL函數 VBA程式設計資料庫是分別屬於三個領域的知識,
但卻是目前大家都需要的一項專業技能,要把三者融合的很好實在非常不容易,
剛好我有近20年的VB程式設計與資料庫設計的經驗,
教EXCEL函數與相關課程也有多年,因此清楚如何把最重要的知識教給大家,
ADO資料庫設計的知識非常多,但根據我多年的設計實務經驗,
覺得最重要的是掌握SQL語言,就可以輕易的完成查詢、新增、修改與刪除等功能,
就可以輕易的完成自己想處理的大量資料,大大提高工作效率了!

上課用書是:
Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)
Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)

完整教學影音DVD申請:http://goo.gl/ZlBZE
論壇:http://groups.google.com/group/labor_excel_vba?hl=zh-TW

其他相關學習:

    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

    2016年6月29日 星期三

    EXCEL VBA自動化與自動繪製框線(樣式顏色粗細)

    EXCEL VBA自動化與自動繪製表格框線(樣式顏色粗細)

    預覽畫面:


    這是VBA入門課上課的範例,
    這範例主要是在飯店工作的學員所設計的自動宴會排桌VBA系統
    可以一鍵完成所有排桌的問題,
    免除以往的人工耗時耗力問題,
    但最後她有個問題無法克服,
    就是最後需要能自動繪製表格框線,
    這部分即便是仿間的VBA書籍也沒有提及,
    因此,我就用最簡單的方式回覆,
    並分享於此,
    主要的四個按鈕分別為:
    1.繪製表格框線的樣式

    2.繪製表格框線的顏色

    3.繪製表格框線的粗細

    4.清除表格框線

    建議先學會以下分享課程:
    • EXCEL VBA入門:如何撰寫自動格式化VBA程式  [連結]
    • 如何撰寫自動日期格式化的VBA程式  [連結]
    • 如何增加EXCEL VBA按鈕  [連結]
    • 如何再VBA中建立EXCEL的自訂函數讓公式變簡單  [連結]
    • 如何將數學函數轉EXCEL VBA設計之一  [連結]
    • 從EXCEL函數到VBA自動化(函數應用大升級)  [連結]

    • 範例檔  [下載]
    上課內容:


    Sub 加框線_實線()
       '指定框線的線條樣式。
       '名稱 值 描述
       'xlContinuous 1 連續線
       'xlDash -4115 虛線
       'xlDashDot 4 交替的虛線與點
       'xlDashDotDot 5 虛線後接兩點
       'xlDot -4118 點狀線
       'xlDouble -4119 雙線
       'xlLineStyleNone -4142 無線條
       'xlSlantDashDot 13 斜虛線
       Range("B3:H13").Borders.LineStyle = xlContinuous
    End Sub
    Sub 加框線_實線紅色()
       Range("B3:H13").Borders.LineStyle = xlContinuous
       Range("B3:H13").Borders.Color = RGB(255, 0, 0)
    End Sub
    Sub 加框線_實線紅色粗線()
       '指定範圍外圍框線的粗細。
       '名稱 值 描述
       'xlHairline 1 毫線 (最細的框線)
       'xlMedium -4138 適中
       'xlThick 4 粗線 (最寬的框線)
       'xlThin 2 細線
       Range("B3:H13").Borders.LineStyle = xlContinuous
       Range("B3:H13").Borders.Color = RGB(255, 0, 0)
       Range("B3:H13").Borders.Weight = xlThick
    End Sub
    Public Sub 清除框線()
       Range("B3:H13").Borders.LineStyle = xlNone
    End Sub


    教學影音(完整版在論壇):

    教學影音完整版在論壇:
    https://groups.google.com/forum/#!forum/scu_excel_vba2_86

    課程特色:
    1.如何將函數轉成VBA2.VBA與資料庫快速結合

    EXCEL函數 VBA程式設計資料庫是分別屬於三個領域的知識,
    但卻是目前大家都需要的一項專業技能,要把三者融合的很好實在非常不容易,
    剛好我有近20年的VB程式設計與資料庫設計的經驗,
    教EXCEL函數與相關課程也有多年,因此清楚如何把最重要的知識教給大家,
    ADO資料庫設計的知識非常多,但根據我多年的設計實務經驗,
    覺得最重要的是掌握SQL語言,就可以輕易的完成查詢、新增、修改與刪除等功能,
    就可以輕易的完成自己想處理的大量資料,大大提高工作效率了!

    上課用書是:
    Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)
    Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)

    完整教學影音DVD申請:http://goo.gl/ZlBZE
    論壇:http://groups.google.com/group/labor_excel_vba?hl=zh-TW

    其他相關學習:

      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函數