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

xisun2002

之前舊版的公開資訊觀測站的資料，用
[ 資料 ] -> [ 匯入外部資料 ] -> [ 新增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

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

GBKEE

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

xisun2002

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

pupai

回復 3# GBKEE


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

GBKEE

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

pupai

回復 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 合併現金流量表
煩請版主撥空幫忙
謝謝

GBKEE

回復 7# pupai

下載 (43.35 KB)

2013-11-27 08:42

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

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

複製代碼

pupai

回復 8# GBKEE


    收到 衷心感謝  !!
PS:如果GBKEE兄 或 家族 考慮出一本 VBA抓股市的書 我一定訂10本 謝謝!!

BigDog

回復 8# GBKEE

Dear 超版大,

下圖找不到你上述說的網址，在公開資訊觀測站-->營運概況-->財務公析資料，請超版大解惑哪裡可以修改網址的股市代號...非常感謝...

下載 (38.18 KB)

2014-2-16 21:51