帖子: 12
主題: 5
精華: 0
積分: 20
點名: 0
作業系統: XP
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2010-6-10
最後登錄: 2018-10-8

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-11-14 09:13 | 只看該作者

新版股市公開資訊觀測站的資料抓到EXECL?

之前舊版的公開資訊觀測站的資料，用
[ 資料 ] -> [ 匯入外部資料 ] -> [ 新增WEB查詢 ]
http://mopsov.tse.com.tw/server-java/t05st22?colorchg=1&off=1&TYPEK=["where"]&isnew=true&year=["year"]&co_id=["stockid"]&
就可以自動匯入財報等資料到excel作分析，
新股市公開資訊觀測站一改版後格式不同，此功能就無法使用此功能，請問有人能幫忙看一下要如何改，才能自動查詢相關資料?
-----------------------------------------------------------------------------------------------------------------------------------------------------
我想匯入excel的網頁有：
http://mops.twse.com.tw/mops/web/t164sb03 合併資產負債表

http://mops.twse.com.tw/mops/web/t164sb04 合併綜合損益表

http://mops.twse.com.tw/mops/web/t164sb05 合併現金流量表

希望可以提供方法，因為有很多報表要抓。

樓主熱帖

xisun2002

小學生 Rank: 1

帖子: 12
主題: 5
精華: 0
積分: 20
點名: 0
作業系統: XP
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2010-6-10
最後登錄: 2018-10-8

2^#

發表於 2013-11-14 16:20 | 只看該作者

急求助！
希望哪位大大可以幫忙解大

TOP

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兔年全勤獎章

3^#

發表於 2013-11-14 17:36 | 只看該作者

回復 2# xisun2002
程式區找找有'http://mops.twse.com.tw/mops/web的資訊

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

TOP

xisun2002

小學生 Rank: 1

帖子: 12
主題: 5
精華: 0
積分: 20
點名: 0
作業系統: XP
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2010-6-10
最後登錄: 2018-10-8

4^#

發表於 2013-11-14 19:04 | 只看該作者

希望用EXCEL匯入外部資料功能來做，希望知道的大大幫幫忙

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-4-23

論壇贊助勳章

5^#

發表於 2013-11-26 17:45 | 只看該作者

回復 3# GBKEE

請教GBKEE兄
程式區http://forum.twbts.com/viewthrea ... p;extra=&page=2
其附件只適合舊版的公開資訊站
新版的公開資訊站並無法檢視,
請坂大幫忙修改謝謝!!

TOP

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兔年全勤獎章

6^#

發表於 2013-11-26 18:18 | 只看該作者

回復 5# pupai
每一網頁的建置不同,要看網頁內容修改程序的.

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

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-4-23

論壇贊助勳章

7^#

發表於 2013-11-26 19:21 | 只看該作者

回復 6# GBKEE

依照這三個網址
http://mops.twse.com.tw/mops/web/t164sb03 合併資產負債表
http://mops.twse.com.tw/mops/web/t164sb04 合併綜合損益表
http://mops.twse.com.tw/mops/web/t164sb05 合併現金流量表
煩請版主撥空幫忙
謝謝

TOP

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兔年全勤獎章

8^#

發表於 2013-11-27 10:46 | 只看該作者

回復 7# pupai

按下圖片的網址 http://mops.twse.com.tw/server-j ... N=3&REPORT_ID=C

Option Explicit
Sub Ex()
Dim URL As String, xCo_Id As String, xSyear As String, xSseason As String
xCo_Id = "[" & """股票代號""" & "," & """2485""" & "]" '要求輸入網頁的參數:股票代號
xSyear = "[" & """年度""" & "," & """" & Format(Date, "e") & """" & "]" 'Format(Date, "e")->中華民國的年度
xSseason = "[" & """季別""" & "," & """" & Format(Date, "q") & """" & "]" 'Format(Date, "q")->當年度的季別
URL = "URL;http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=" & xCo_Id & "&SYEAR=" & xSyear & "&SSEASON=" & xSseason & "&REPORT_ID=C"
With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Range("A1"))
.AdjustColumnWidth = False '自動調整欄寬
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2,3,4" '資產負債表,綜合損益表,現金流量表
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub