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

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

11^#

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

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

帖子: 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 您好，你提供的方法真的好容易就可以連結搜尋的結果，能否給個提示這些是從哪裡可以推測得知的，讓我方便之後的問題能舉一反三~ 真的非常感謝你!!

帖子: 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前輩，非常感謝你在這四天連假裡還能抽空回答我的問題。
感激萬分，這幾天我在試試看您提供的方法，若有問題再向您請教。感謝！

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

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

koo

帖子: 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

複製代碼

koo

帖子: 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=

koo

帖子: 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=

diolin

帖子: 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?

帖子: 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 。