Board logo

標題: [發問] [VBA] 如何從公開資訊觀測站擷取股利分配到我的excel? [打印本頁]
作者: justintoolbox    時間: 2015-4-2 11:56     標題: [VBA] 如何從公開資訊觀測站擷取股利分配到我的excel?

各位前輩好，大家好:
晚輩的問題是:
如何撰寫VBA方便從 公開資訊觀測站擷取104年度各上市櫃 " 盈餘分配之現金股利(元/股) " 數值 至我的excel 內的sheet?
網站的位置是(http://mops.twse.com.tw/mops/web/t05st09_new)
以上，感謝各位前輩來查看我的問題。感謝。若能解開我的疑問，感激萬分!
作者: GBKEE    時間: 2015-4-2 14:30

回復 1# justintoolbox
若能解開我的疑問
可否po上你的程式碼,才知你的疑問在哪裡!!
作者: justintoolbox    時間: 2015-4-2 15:06

本帖最後由 justintoolbox 於 2015-4-2 15:08 編輯

GBKEE 前輩:
感謝你查看我的問題，
我目前只能做到導向至網站(http://mops.twse.com.tw/mops/web/t05st09_new)
填上年分並搜尋，並且成功地顯示搜尋後的結果。

我卡在接下來的步驟: 就是我不知道改如何撰寫的部分
找尋特定的股票代號(這部分我會列為變數方便我自行變更)，並且擷取該股票代號的 "盈餘分配之現金股利(元/股)"以及"盈餘轉增資配股
(元/股)"至我的excel，我只要能VBA抓到網頁上指定的位置資料，接下來我就大概可以自行解決了。
不曉得我這提問解釋，有比較清楚些嗎?
再次感謝 超級版主GBKEE 。
作者: diolin    時間: 2015-4-2 17:48

不知你是用何種方式

xmlhttp, browser object , Sendkeys or others?
作者: koo    時間: 2015-4-2 19:17

http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=sii&YEAR=104&first=
作者: koo    時間: 2015-4-2 19:53

104年

http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=otc&YEAR=104&first=
http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=sii&YEAR=104&first=
http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=rotc&YEAR=104&first=
http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=pub&YEAR=104&first=
作者: koo    時間: 2015-4-3 17:33

只會錄製
  1. Sub 巨集1()
  2. '
  3. Sheets(1).Select
  4. Sheets(1).Cells.Clear
  5.     With ActiveSheet.QueryTables.Add(Connection:= _
  6.         "URL;http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=sii&YEAR=104&first=" _
  7.         , Destination:=Range("$A$1"))
  8.         .FieldNames = True
  9.         .RowNumbers = False
  10.         .FillAdjacentFormulas = False
  11.         .PreserveFormatting = True
  12.         .RefreshOnFileOpen = False
  13.         .BackgroundQuery = True
  14.         .RefreshStyle = xlInsertDeleteCells
  15.         .SavePassword = False
  16.         .SaveData = True
  17.         .AdjustColumnWidth = True
  18.         .RefreshPeriod = 0
  19.         .WebSelectionType = xlEntirePage
  20.         .WebFormatting = xlWebFormattingNone
  21.         .WebPreFormattedTextToColumns = True
  22.         .WebConsecutiveDelimitersAsOne = True
  23.         .WebSingleBlockTextImport = False
  24.         .WebDisableDateRecognition = False
  25.         .WebDisableRedirections = False
  26.         .Refresh BackgroundQuery:=False
  27.     End With
  28.    
  29.    
  30.     Sheets(2).Select
  31.     cy = Cells(2, "A")
  32.     cy = cy & " -"
  33.     Sheets(1).Select
  34.     Set kx = Cells.Find(What:=cy, After:=Cells(1, 4))
  35.     If Not kx Is Nothing Then Sheets(2).Cells(2, "B") = Cells(kx.Row, "J")
  36.     Sheets(2).Select
  37. End Sub
複製代碼
作者: justintoolbox    時間: 2015-4-3 20:27

104年

http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=otc&YEAR=104&first=
http://mop ...
koo 發表於 2015-4-2 19:53


koo前輩，
非常感激！謝謝你認真的答覆。真的很有用，輕鬆就指向網頁。

只是能否請教 這是用什麼方法或訣竅知道這些詳細網址的？ 好想知道哦~
作者: justintoolbox    時間: 2015-4-3 20:29

只會錄製
koo 發表於 2015-4-3 17:33


koo前輩，非常感謝你在這四天連假裡還能抽空回答我的問題。
感激萬分，這幾天我在試試看您提供的方法，若有問題再向您請教。感謝！
作者: justintoolbox    時間: 2015-4-6 07:01

diolin  您好，因為我是這方面的初學者，撰寫的內容都是從網路上找尋接近自己需要的結果。所以您詢問的"xmlhttp, browser object , Sendkeys or others?"我沒有任何概念，真的很抱歉。不過也從你這裡知道，原來還有這麼多方法可以達到我要的結果，真是太高興了! 能否教我一下我該如何判斷這些方法哪個比較比較合適，或是這些方法分別該如何寫才能達到我要的。我知道這很多，若你願意教我，我會非常感謝你的!! 或者能否給我個提示或推薦這方面的書籍讓我自己可以研讀呢?? 非常感謝!!
koo 您好，你提供的方法真的好容易就可以連結搜尋的結果，能否給個提示這些是從哪裡可以推測得知的，讓我方便之後的問題能舉一反三~ 真的非常感謝你!!
作者: justintoolbox    時間: 2015-4-6 07:07

各位前輩們好: 晚輩後來才發現原來搜尋後有個 " 另存CSV檔" 可以利用，想請問若想直接將搜尋後的結果儲存成CSV檔，這部分的VBA該如何撰寫呢? 非常感謝!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)