2021年5月23日 星期日

[疫情學習不中斷]應學員要求整理最近VBA與Python教學課程

[疫情學習]應學員要求整理最近VBA與Python教學課程

因應疫情關係，上實體課慢慢變的很不容易，
所以特別應許多學員的的要求，整理最近上課的課程影片，
其實也算是非同步遠距學習，一次三四小時上課，就存在一個資料夾，
所以只要一次上完三小時，並練習完畢，就等於一周課程，
也提供完整講義和練習檔，講義可以是情況列印，
按照順序，逐一學習，效果顯著，
線上學習的優點是可以反覆重複觀看教學，尤其是比較困難程式解說，
另外，也提供雲端白板資料，可以讓學員複製程式碼，
確保程式的正確性，上課若有疑問，
也可以藉由EMAIL、FB或YOUTUBE下方留言等方式提問，
只要問題明確，幾乎會在第一時間回應。。

整理的目的，主要的目的時希望學習我的課的學員都能學會，
提升上課的品質，學員只需抽空重複聽講，
並不斷練習，再將所學反覆用在工作上，
成效良好，除了效率提高外，
自己的專業技能信心提高，工作自然勝任無虞，
對未來的職涯規劃也更有希望。


最新課程整理如下，2021/5/23更新
合輯：
EXCEL VBA入門+進階合輯2020(光碟1-4) NT$3500元
PYTHON合輯2020(光碟5-8) NT$3500元
EXCEL VBA入門+進階+PYTHON合輯2020(光碟1-8) NT$6000元
單光碟：
光碟01_EXCEL高階函數與樞紐分析基礎班(全球人壽內訓)  課程內容：http://gg.gg/DVD202101 
光碟02_EXCEL VBA與資料庫雲端設計(入門)(東吳推廣部114)課程內容： http://gg.gg/DVD202102 
光碟03_EXCEL VBA與資料庫雲端設計(進階)(東吳推廣部110與112) 課程內容：http://gg.gg/DVD202103 
光碟04_EXCEL VBA金融數據之網路爬蟲實作(勞工大學) 課程內容：http://gg.gg/DVD202104 
光碟05_Python程式入門202101(自強SPYDER4版) 課程內容：http://gg.gg/DVD202105
光碟06_Python基礎程式語言證照應用班(SPYDER4版) 課程內容：http://gg.gg/DVD202106 
光碟07_[初階]從VBA的自動化到PYTHON網路爬蟲應用 (自強) 課程內容：http://gg.gg/DVD202107
光碟08_[進階]自強網頁資料擷取、分析與資料視覺化能力 (自強) 課程內容：http://gg.gg/DVD202108

吳老師 2021/5/23

申請與價格表:
2021版：gg.gg/DVD_apply2021
填寫以下後，先不要匯款給我，我會回信給您，等候同意後，
再去匯款，避免彼此不必要的麻煩。 

2 則留言:

2021年5月22日 星期六

用EXCEL VBA網路爬蟲擷取YAHOO股市資料

用EXCEL VBA網路爬蟲擷取YAHOO股市資料


用EXCEL錄製巨集爬取YAHOO股市資料，

會有亂碼的問題，用PYTHON來爬取，

對一般人來說門檻又太高，

如果如何在EXCEL VBA就可以輕鬆爬取網路資料，

就是本文所要分享的重點。

當然本文不是要推崇VBA有多棒，Python不好用，

我的想法是只要用對工具，工作可以很愜意，

可以協同應用工具，讓彼此都能發揮最大的強項，

是本文寫說明的，

另外順便分享在EXCEL除了用匯入資料從WEB功能外，

也可以用IE物件，

功能很像是Python的requests加上beautifulsoup4差不多功能，

不同的是，可以將下載的資料直接放在EXCEL，

也就是把EXCEL當成資料庫用，這樣可以減少很多資料庫匯入匯出的麻煩。


首先，YAHOO股市當日行情表網址：

https://tw.stock.yahoo.com/class-quote?sectorId=1&exchange=TAI


*改用IE物件下載


VBA程式碼

Sub 下載YAHOO_水泥()

    '清除資料

    Cells.Clear

    '1.建立IE物件

    Set ie = CreateObject("internetexplorer.application")

    '2.連線到網址

    ie.navigate "https://tw.stock.yahoo.com/class-quote?sectorId=1&exchange=TAI"

    '3.等待3秒

    Application.Wait (Now + TimeValue("0:00:5"))

    '4.取得網頁中第1個表格

    Set tbl = ie.document.getElementsByTagName("ul")(5)

    '5.取得表格中所有的列<tr>

    Set trs = tbl.getElementsByTagName("li")

'    '6.取得列中的每一個儲存格內文字<td>如果沒有<td>抓<th>

    For i = 0 To trs.Length - 1

        Set tds = trs(i).getElementsByTagName("div")

        For j = 5 To tds.Length - 1

            Cells(i + 1, j - 4) = tds(j).innertext

        Next

    Next

    Columns("C").Delete

    ie.Quit    

    Rows(1).Insert

    Range("A1") = "股票名稱": Range("B1") = "代號": Range("C1") = "股價"

    Range("D1") = "漲跌": Range("E1") = "漲跌幅(%)": Range("F1") = "開盤"

    Range("G1") = "昨收": Range("H1") = "最高": Range("I1") = "最低"

    Range("J1") = "成交量 (張)": Range("K1") = "時間"

    Columns.AutoFit

End Sub

教學影片分享：



教學論壇：



EXCEL VBA進階班的課程規劃

主要是延伸入門課，延伸資料庫、多工作表、工作簿、網路爬蟲、視覺化報表等應用並與Python程式協同應用
單元01_資料拆解相關(VBA)
單元02_輸入自動化與表單設計
單元03_用ADO匯入與匯出資料庫
單元04_大量工作表合併與分割
單元05_資料查詢(篩選與分割工作表)
單元06_下載網路資料(YAHOO股市)
單元07_活頁簿與檔案處理(工作表分割與合併活頁簿)
單元08_視覺化報表與快速匯入圖片

其他相關學習：
    函數東吳進修推廣部, EXCEL, EXCEL VBA 函數,程式設計,線上教學
    沒有留言:
    訂閱： 文章 (Atom)