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

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

11^# 跳轉到 »

發表於 2014-2-17 09:46 | 只看該作者

回復 10# BigDog
網址:公開資訊觀測站-->營運概況-->財務比率分析->採IFRSs後->財務分析資料

Option Explicit
Sub 公開資訊網頁()
Dim A As Object, E As Object
With CreateObject("InternetExplorer.Application")
.Visible = True
' .Navigate "http://mops.twse.com.tw/mops/web/t164sb04" '網址:綜合損益表
'.Navigate "http://mops.twse.com.tw/mops/web/stapap1" '網址:董監事持股餘額明細資
.Navigate "http://mops.twse.com.tw/mops/web/t05st22"
'網址:公開資訊觀測站-->營運概況-->財務比率分析->採IFRSs後->財務分析資料
Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
' .document.getElementById("isnew").Value = "false" '選擇: 歷史資料
'註解上一行程式碼為 -> 選擇: 最新資料,不會執行 If 內程式碼
If .document.getElementById("isnew").Value = "false" Then
.document.getElementById("isnew").FireEvent ("onchange")
.document.getElementById("year").Value = "102" '年度
.document.getElementById("season").Value = "01" '綜合損益表:季別
.document.getElementById("month").Value = "08" '董監事持股餘額明細資料:月份
End If
'********************************************************************
For Each A In .document.getelementSbyTAGNAME("INPUT")
'If A.Name = "co_id" Then A.Value = "2317"
If A.Name = "co_id" Then A.Value = ActiveSheet.Range("A1") '儲存格:指定代號
If A.Value = " 搜尋 " Then A.Click '按下搜尋
Next
Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
For Each E In .document.ALL.TAGS("div")
If E.ID = "table01" Then
.document.body.innerHTML = E.outerHTML
Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
.ExecWB 17, 2 ' Select All
.ExecWB 12, 2 ' Copy selection
With ActiveSheet
.UsedRange.Offset(1).Clear
.Cells(2, 1).Select
.PasteSpecial Format:="HTML"
End With
End If
Next
.Quit '關閉 IE
End With
End Sub

複製代碼

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

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

12^#

發表於 2015-7-16 21:18 | 只看該作者

回復 11# GBKEE

超版大大問一下哦,您是如何得知網址後面的選項的?實在太強大了...
http://mops.twse.com.tw/mops/web/t164sb04 =>後面有season 、 year 如何得知的?

例如:http://lbma.oblive.co.uk/table
這是倫敦黃金的公告價格網站
我只會抓104年的,因為我不曉得後面要如何輸入year 的變數取得不同年度的資料
請問類似這種網頁該如何找出後面的變數輸入方式
以及這個網址的變數要如何輸入?

PKKO

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

13^#

發表於 2015-7-17 00:01 | 只看該作者

回復 GBKEE

超版大大問一下哦,您是如何得知網址後面的選項的?實在太強大了...
http://mops.twse. ...
PKKO 發表於 2015-7-16 21:18

http://lbma.oblive.co.uk/table?metal=silver&year=2008&type=monthly

http://lbma.oblive.co.uk/table?metal=gold&year=2013&type=daily

自己練習改改看

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

14^#

發表於 2015-7-17 02:11 | 只看該作者

回復 13# joey0415

joey0415大大您好,您給我細部網址之後,我就會改了
可是您的細部網址是如何得知的?

例如:http://lbma.oblive.co.uk/table => 從這裡開始(?metal=silver&year=2008&type=monthly)
紅色字串的地方您怎麼知道有這段網址?
我猜也猜不到阿~
還是要看網頁的檢視程式嗎?

PKKO

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

15^#

發表於 2015-7-17 05:30 | 只看該作者

回復 14# PKKO
慢慢的體會

Option Explicit
Sub Ex_網頁元素()
Dim i As Integer, E As Object
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://mops.twse.com.tw/mops/web/t164sb04"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Stop
'在這網址輸入相關資料,再繼續執行下面的程式
With .Document '網頁的文件
'*** 這段程式碼可查看這網頁的元素內容
On Error Resume Next
For Each E In .all
i = i + 1
Cells(i, "a") = E.tagname '控制項標記的名稱
Cells(i, "b") = E.ID '控制項標記的ID (惟一的)
Cells(i, "c") = E.Name '控制項標記的命名
Cells(i, "d") = E.Value '控制項標記的值
Cells(i, "e") = E.innertext '控制項標記的文字
Cells(i, "f") = E.Type '控制項標記的類型
Cells(i, "g") = E.href '控制項標記的網址
Next
'****************************************
End With
' .Quit '關閉網頁
End With
'執行後到工作表上,查看在這網址輸入相關資料的控制項的屬性
End Sub

複製代碼

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

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

16^#

發表於 2015-7-17 10:27 | 只看該作者

回復 15# GBKEE

哇~太感謝超版大大了，我會慢慢體會的!謝謝~

PKKO

TOP

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

17^#

發表於 2015-7-17 10:35 | 只看該作者

回復 14# PKKO

IE 的 URL 框不就有了

TOP

ftc693

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: vista
軟體版本: office 2013
閱讀權限: 10
性別: 男
註冊時間: 2013-4-21
最後登錄: 2015-9-21

18^#

發表於 2015-7-17 12:00 | 只看該作者

回復 PKKO

IE 的 URL 框不就有了
bobomi 發表於 2015-7-17 10:35

你可試試看，有些東西沒有你想得那麼簡單喔

URL一般都只有初始頁面

TOP

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

19^#

發表於 2015-7-17 14:15 | 只看該作者

本帖最後由 bobomi 於 2015-7-17 14:21 編輯

你可試試看，有些東西沒有你想得那麼簡單喔

URL一般都只有初始頁面
ftc693 發表於 2015-7-17 12:00

我知道有些不行啊
但我回的是 http://lbma.oblive.co.uk/table?metal=silver&year=2008&type=monthly 這個網頁

主要是 post 網頁 ( 端看對方要不要給你方便 )
不想給你直接下載的, 網址後面就不會直接放參數, 但可以找出來
還有更狠一點的
為了不讓你抓
經常改變網址參數

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

20^#

發表於 2015-7-17 15:06 | 只看該作者

回復 19# bobomi

妳說的URL框指的是寫網址的地方嗎?

我一開始查到的網址只有這樣=> http://www.lbma.org.uk/pricing-and-statistics

是joey0415大大提供後面的網址,我才知道參數

後來超版大大提供我學習得到參數的方法

因此還在學習中= =

PKKO

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]