2017年1月25日 星期三

EXCEL VBA用XMLHTTP物件抓取外匯資料

EXCEL VBA用XMLHTTP物件抓取外匯資料：如何用XMLHTTP物件直接抓取台銀外匯的資料到EXCEL中，之前用匯入資料從WEB的方式實際上就是用QueryTable物件效果不彰，主要原因是QueryTable顧名思義，就是查詢原始碼裡的Table標籤，再選擇下載到EXCEL，若是網頁中沒有Table標籤，或是不是表格形式的資料，就有無法下載，或是下載後格式錯亂問題，因此這次分享用XMLHTTP物件代勞。


預覽畫面：


完成畫面：

 網址：

一.利用台銀官網的CSV檔抓取資料


1.下載整個資料到A1

Public Sub XMLHTTP()
   '1.載入XMLHTTP物件為HttpReq物件變數
   Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
   '2.用Open方法開啟 CSV檔
   HttpReq.Open "GET", "https://rate.bot.com.tw/xrt/flcsv/0/day", False
   '3.傳送需求給伺服器
   HttpReq.send
   '4.將結果顯示在 A1儲存格
   Range("A1") = HttpReq.responseText
End Sub

2.下載到A欄

Public Sub XMLHTTP_下載到A欄()
   '調整第1欄寬為100
   Columns(1).ColumnWidth = 100
   '建立物件變數HttpReq，取用XMLHTTP物件以抓取網路資料
   Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
   HttpReq.Open "GET", _
   "https://rate.bot.com.tw/xrt/flcsv/0/day", _
   False
   HttpReq.send
   S = HttpReq.responseText
   '切割位置從1開始
   iStart = 1
   '輸出到EXCEL從第1列開始
   i = 1
   Do While VBA.InStr(iStart, S, vbCrLf) <> 0
       '找換行位置
       iEnd = VBA.InStr(iStart, S, vbCrLf)
       '切割一行
       Sline = Mid(S, iStart, iEnd - iStart)
       ''切割位置+1繼續找
       iStart = iEnd + 2
       Cells(i, "A") = Sline
       i = i + 1
   Loop
   '最後一筆沒有換行會少一筆(切割為最後位置+1到最後)
   Sline = Mid(S, iEnd + 1, Len(S))
   Cells(i, "A") = Sline
   '顯示訊息
   MsgBox "下載完畢!!", vbInformation
End Sub

3.先錄製資料剖析巨集，再分割A欄與刪除不要的欄

Sub 資料剖析()
   '1.選取A1
   Range("A1").Select
   '2.CTRL向右下下選取
   Range(Selection, Selection.End(xlDown)).Select
   '3.資料剖析，不匯入遠期
   Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
       TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
       Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
       :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 9), Array(6, 9), _
       Array(7, 9), Array(8, 9), Array(9, 9), Array(10, 9), Array(11, 9), Array(12, 1), Array(13, 1 _
       ), Array(14, 1), Array(15, 9), Array(16, 9), Array(17, 9), Array(18, 9), Array(19, 9), Array _
       (20, 9), Array(21, 9), Array(22, 1)), TrailingMinusNumbers:=True
   '4.自動調整欄寬
   Columns.AutoFit
   '5.選取A1
   Range("A1").Select
End Sub

二、下載網頁原始碼與切割資料到EXCEL中：


1.右鍵可以檢視原始碼

2.找出原始碼裡的資料頭尾，再用MID函數切割


程式碼：

Public Sub XMLHTTP_台銀外匯()

   '建立物件變數HttpReq，取用XMLHTTP物件以抓取網路資料
   Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
   HttpReq.Open "GET", _
   "http://rate.bot.com.tw/xrt?Lang=zh-TW", _
   False
   HttpReq.send
   S = HttpReq.responseText
   '切割位置從1開始
   iStart = 1
   '輸出到EXCEL從第1列開始
   i = 4
   Do While VBA.InStr(iStart, S, "text-right display_none_print_show print_width") <> 0
   
       '1.現今買入
       '找換行位置
       iStart = VBA.InStr(iStart, S, "text-right display_none_print_show print_width")
       iEnd = VBA.InStr(iStart, S, "
")
       '切割一行 ? len("rate-content-cash text-right print_hide")
       Sdata = Mid(S, iStart + 48, iEnd - iStart - 48)
       ''切割位置+1繼續找
       iStart = iEnd + 48
       Cells(i, "B") = Sdata
       
       '2.現今賣出
       '找換行位置
       iStart = VBA.InStr(iStart, S, "text-right display_none_print_show print_width")
       iEnd = VBA.InStr(iStart, S, "
")
       '切割一行 ? len("rate-content-cash text-right print_hide")
       Sdata = Mid(S, iStart + 48, iEnd - iStart - 48)
       ''切割位置+1繼續找
       iStart = iEnd + 48
       Cells(i, "C") = Sdata
       
       '3.即期買入
       '找換行位置
       iStart = VBA.InStr(iStart, S, "text-right display_none_print_show print_width")
       iEnd = VBA.InStr(iStart, S, "
")
       '切割一行 ? len("rate-content-cash text-right print_hide")
       Sdata = Mid(S, iStart + 48, iEnd - iStart - 48)
       ''切割位置+1繼續找
       iStart = iEnd + 48
       Cells(i, "D") = Sdata
       
       '4.即期賣出
       '找換行位置
       iStart = VBA.InStr(iStart, S, "text-right display_none_print_show print_width")
       iEnd = VBA.InStr(iStart, S, "
")
       '切割一行 ? len("rate-content-cash text-right print_hide")
       Sdata = Mid(S, iStart + 48, iEnd - iStart - 48)
       ''切割位置+1繼續找
       iStart = iEnd + 48
       Cells(i, "E") = Sdata
       '分割為陣列
       i = i + 1
   Loop
   '顯示訊息
   MsgBox "下載完畢!!", vbInformation
End Sub

Public Sub 清除()

   Range("B4:E22").ClearContents
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函數 MYSQL
    沒有留言:

    2017年1月15日 星期日

    今天是勞工大學選課日，不到一小時，就快額滿



    今天是勞工大學選課日，不到一小時，就快額滿(文章寫完應該已經額滿了吧)， 大家對我的EXCEL VBA大數據自動化課程似乎很感興趣， 這也是我在勞工大學開課的第18年學年了，對這裏有著不同的感覺， 雖然中間有三個學期因為博士班畢業後去當兵無法開課， 退伍後一邊在創業，一邊也把心得分享給大家。 但還好大家沒把我忘了，當時開的AUTOCAD與程式設計依舊受歡迎。 最早是經由林翰忠老師的引薦， 得知當時的勞工曹局長有意在當時的台北縣三重勞工活動中心創辦勞工大學， 當時的課程不多，記得只有電腦和語文，但由於當時電腦學習風氣很盛， 而當時也沒有網路選課， 於是半夜凌晨三點，聽說就有人排隊。 那時第一次開的課程是WORD文書處理， 當時是很多人不熟悉的專業， 慢慢地與時俱進，前後在勞大開過非常多種課程， 幾乎都是年年有新課程， 主要要不斷更新勞工的傳業技能， 多半也是應學員要求吧! 開過的課種類很多，從WORD、EXCEL、ACCESS、PHOTOIMPACT影像處理、多媒體剪輯， 後來慢慢轉開AUTOCAD平面和立體設計與VB.NET程式設計，與相關證照課程， ASP.NET程式設計與PHP與MYSQL資料庫都開過， 最近主力慢慢放在APP開發課程，與EXCEL VBA大數據自動化方面。 目前還有在東吳、文化大學進修推廣部、自強工業基金會、台北市公務人員訓練處等地開設相關課程，有興趣的朋友可以關注，或注意部落格、YOUTUBE頻道等。 勞工大學選課網址：https://uni.labor.ntpc.gov.tw/HP0/HP06.asp

     相關學習：

    沒有留言:

    2016年11月13日 星期日

    如何在EXCEL中自訂函數與用增益集分享VBA自訂函數

    如何在EXCEL中自訂函數與用增益集分享VBA自訂函數

    預覽畫面：


     如何自訂函數呢？
    可以在VBA中插入模組與插入Function即可，
    可以試試成績函數：

    Public Function 成績函數(平均成績)

        If 平均成績 >= 60 Then
            成績函數 = "合格"
        Else
            成績函數 = "不合格"
        End If
    End Function

    在EXCEL寫好了很多的自訂函數，

    但要如何在別的電腦使用這些自訂函數呢？
    這是很多學會VBA自訂函數的學員常問的問題，

    當然如果懂得複製貼上程式碼到VBA的模組那就沒什麼問題了，
    但若是給一班完全沒學過VBA的使用者，
    那就可以用安裝增益集的方式來安裝所有VBA寫的自訂函數。

    不過在分享這些自行撰寫的VBA自訂函數會有智慧權的問題，
    建議可以先把自己寫的VBA程式加上密碼。
    1.加密


    2.然後，可以傳給使用者你的有巨集(XLSM)檔案，

    請他另存為增益集


    3.接下來記得要啟用增益集，才能使用




    最後開啟一個新的檔案，你將會在插入函數時看到這些自訂函數了。

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

    教學影音完整版在論壇：
    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

     EXCEL,VBA,函數東吳進修推廣部,EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 excel函數教學 excel函數 MYSQL
    沒有留言:
    訂閱： 文章 (Atom)