懶懶教學文：VBA 抓上櫃收盤(vba+internetexplorer.application)

昨天學生朋友來問，因為時間有限，弄個簡易爬蟲給他玩玩，順便寫寫教學文，沒有很複雜。

標題為何寫懶懶得，因為沒太多內容。

溫馨提醒：尊重網路資源

msdn

參考網站：上櫃公開收盤資料："上櫃股票每日收盤行情(不含定價)"

元件：internetexplorer.application

工具：vba

工作表：temp合計1頁

Sub ie_surface_data()

            Set ie = CreateObject("internetexplorer.application") '引用

             With ie

            

                  .Visible = False

             

            Urla = "https://www.tpex.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430_result.php?l=zh-tw&d=112/02/07&se=AL&s=14,desc,0&o=htm"

     

                   .navigate Urla

                  

                  Do While .readyState <> 4 '等待網頁開啟

                   

                               Application.Wait DateAdd("s", 2, Now)

                               

                     DoEvents

                     

                  Loop

                      

                      .ExecWB 17, 2 'Select All

                      .ExecWB 12, 2 'Copy selection

                      Sheets("TEMP").Activate

                      Sheets("TEMP").Cells.Clear

                      Sheets("TEMP").Range("A1").Select

'處理資料

                      Sheets("TEMP").PasteSpecial Format:="HTML", LINK:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True

                      

                      End With

                                            

                      Exit Sub

                      

End Sub