請問有高手會匯入這個網頁的資料到excel嗎? (公開股市觀測站-最新財報) (第2頁)

Korbel

Korbel
個人積分：5分
文章編號：43949164

5分

11樓

2013-05-24 9:45

有時候真的很不懂

都說提倡財務資訊透明化, 收集到的資料很像也沒抽驗檢查

有錯誤都推給上市櫃公司. . . .

公開觀測站的是很難親近呢

Korbel

Korbel
個人積分：5分
文章編號：44072924

5分

12樓

2013-05-30 12:26

Sub CButton1()

Coid = 9942
YY = 102
SS = 1

Cells.Clear
Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"

With ie
.Visible = False 'True為開啟ie, False為不開啟ie
.Navigate "http://mops.twse.com.tw/mops/web/ajax_t164sb05?step=1&firstin=1&TYPEK=sti&year=" & YY & "&season=" & SS & "&co_id=" & Coid & ""
Do While .ReadyState <> 4 '等待網頁開啟
DoEvents
Loop
.ExecWB 17, 2 'Select All
.ExecWB 12, 2 'Copy selection
Range("A1").Activate
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
End With

End Sub

終於找到方法了, 開啟Ie直接複製內容貼道excel
只不過要在網址前加上ajax ->http://mops.twse.com.tw/mops/web/ajax_t164sb05
在加上後面的參數, 就可以完全複製道excel了

xisun2002

xisun2002
個人積分：0分
文章編號：47209359

0分

13樓

2013-11-14 18:32

方法有看沒有懂，還希望知道的大大可以詳細說明，加哪一些參數，因為每個報表需要的參數都不一樣
我想匯入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 合併現金流量表
http://mops.twse.com.tw/mops/web/t05st20 簡明資產負債表(三年)
http://mops.twse.com.tw/mops/web/t05st22 財務分析資料
希望可以提供方法，因為有很多報表要抓。

拜託知道的大大幫幫忙 orz