帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-4-2 11:56 | 只看該作者

[發問] [VBA] 如何從公開資訊觀測站擷取股利分配到我的excel?

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

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-4-2 14:30 | 只看該作者

回復 1# justintoolbox

若能解開我的疑問

可否po上你的程式碼,才知你的疑問在哪裡!!

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

justintoolbox

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

3^#

發表於 2015-4-2 15:06 | 只看該作者

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

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

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

TOP

diolin

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 64
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2011-11-10
最後登錄: 2019-2-27

4^#

發表於 2015-4-2 17:48 | 只看該作者

不知你是用何種方式

xmlhttp, browser object , Sendkeys or others?

TOP

koo

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

5^#

發表於 2015-4-2 19:17 | 只看該作者

http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=sii&YEAR=104&first=

TOP

koo

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

6^#

發表於 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=

TOP

koo

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

7^#

發表於 2015-4-3 17:33 | 只看該作者

只會錄製

Sub 巨集1()
'
Sheets(1).Select
Sheets(1).Cells.Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://mops.twse.com.tw/server-java/t05st09sub?step=1&TYPEK=sii&YEAR=104&first=" _
, Destination:=Range("$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Sheets(2).Select
cy = Cells(2, "A")
cy = cy & " -"
Sheets(1).Select
Set kx = Cells.Find(What:=cy, After:=Cells(1, 4))
If Not kx Is Nothing Then Sheets(2).Cells(2, "B") = Cells(kx.Row, "J")
Sheets(2).Select
End Sub

複製代碼

TOP

justintoolbox

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

8^#

發表於 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前輩，
非常感激！謝謝你認真的答覆。真的很有用，輕鬆就指向網頁。

只是能否請教這是用什麼方法或訣竅知道這些詳細網址的？好想知道哦~

TOP

justintoolbox

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

9^#

發表於 2015-4-3 20:29 | 只看該作者

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

koo前輩，非常感謝你在這四天連假裡還能抽空回答我的問題。
感激萬分，這幾天我在試試看您提供的方法，若有問題再向您請教。感謝！

TOP

justintoolbox

中學生 Rank: 2

帖子: 57
主題: 14
精華: 0
積分: 73
點名: 0
作業系統: win8.1
軟體版本: office2010
閱讀權限: 20
註冊時間: 2015-4-2
最後登錄: 2019-6-17

10^#

發表於 2015-4-6 07:01 | 只看該作者

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

TOP