請問這個網頁如何用WEB查詢輸入excel

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

31^# 跳轉到 »

發表於 2013-11-19 07:36 | 只看該作者

本帖最後由 GBKEE 於 2013-11-19 08:05 編輯

回復 28# joey0415
有些有id與tagname 有些只有id ，但一定會有tagname
摘取網頁原使檔一段內容 <input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="" />
getElementsBytagname("input")    '會是原使檔所有<input type=???  .....>  的集合
getElementsByName("__VIEWSTATE")  '唯一的 Name
getElementById("__VIEWSTATE")    '唯一的 Id

Option Explicit
Sub TEST11()
Dim x
With CreateObject("InternetExplorer.Application")
.Visible = True '是否顯示IE
.Navigate "http://www.cnyes.com/twstock/Institutional/1101.htm"
Do While .readyState <> 4: DoEvents: Loop
Set x = .document.getElementById("a_itrust")
x.Click ' 轉到網頁: 'http://www.cnyes.com/twstock/itrust/1101.htm '
Do While .readyState <> 4: DoEvents: Loop
' .document.body.innerHTML = .document.getElementById("tabvl").outerHTML '網頁文件元素沒這 Id="tabvl"
.document.body.innerHTML = .document.getElementsBytagname("table")(1).outerHTML 'tagname成員從 0 開始
.execwb 17, 2 'Select All
.execwb 12, 2 'Copy selection
ActiveSheet.[A1].Select
ActiveSheet.PasteSpecial Format:="HTML" ', NoHTMLFormatting:=True
.Quit
End With
End Sub

複製代碼

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

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

32^#

發表於 2013-11-19 10:31 | 只看該作者

回復 30# c_c_lai

感謝大大分享，我昨天最後也用table來找
不過請問大大.Document.getelementsbytagname("table")(1).outerHTML

中的1是怎麼算的，我算的是2，網頁的table有固定算法嗎？由上而下，尤左而右嗎？
感謝

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

33^#

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

本帖最後由 GBKEE 於 2013-11-19 11:54 編輯

回復 32# joey0415
IQY 查詢檔的內容(副檔名為 IQY ,存於記事本,小作家.)

WEB
1
http://www.cnyes.com/twstock/itrust/1101.htm
'投信進出網頁 'Selection => table的索引值 ,IQY文件由1開始算起, VBA程式由0 開始算起
Selection=2
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False

複製代碼

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

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

34^#

發表於 2013-11-19 13:30 | 只看該作者

回復 33# GBKEE

謝謝版主！我大概知道了！
謝謝

請教一下，鉅亨網的網頁常會定時重新整理
若要用上面的方法抓取時，最後不要quit
只想要將body.innertext內容放上去，不要讓鉅亨網再重新整理成原來的畫面，要加上什麼語句呢？

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

35^#

發表於 2013-11-19 13:49 | 只看該作者

本帖最後由 GBKEE 於 2013-11-19 13:51 編輯

回復 34# joey0415
我把它放著沒有[重新整理成原來的畫面]
若要用上面的方法抓取時，最後不要quit,不quit要何作用.

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

36^#

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

回復 32# joey0415
搜尋 "<table"
(0) <table border='0' cellspacing='0' cellpadding='0'><tr><td width='16%'>
(1) <table>
                     <h3>近一個月三大法人買賣超總表</h3>
(2) <table>
                        <caption>
                              <a href="#">外資買賣超</a></caption>
(3) <table>
                        <caption>
                              <a href="#">投信買賣超</a></caption>
(4) <table>
                        <caption>
                              <a href="#">自營商買賣超</a></caption>
(5) <table>
                        <caption>
                              <a href="#">三大法人買賣超</a></caption>