查找網站資料 - Excel程式區 - 麻辣家族討論版版

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

1^# 跳轉到 »

發表於 2014-8-6 21:11 | 顯示全部帖子

本帖最後由 joey0415 於 2014-8-6 21:15 編輯

回復 ciboybj
試試看
GBKEE 發表於 2014-8-5 06:27

寫的真好！請問超版

Set D = .document.all(6).all(0).contentWindow.frames.document.getElementsByTagName("INPUT")

這句話的意思是有六個INPUT中的第一個子視窗將它設為物件嗎？

如果是的話，那下面這句
Set D = .document.LastChild.LastChild.all(1).contentWindow.frames.document.getElementsByTagName("table")
將右邊的TABLE的設為物件嗎？

左邊的叫.all(6).all(0).contentWindow.frames

右邊的叫.LastChild.LastChild.all(1).contentWindow.frames

為什麼右邊的不叫Set XXX = .document.all(1).all(0).contentWindow.frames.document.getElementsByTagName("table")

而且說上面的不是物件呢？是沒有還是寫錯呢？

請版主解說一下好嗎？還是有哪一個網頁可以參考！謝謝

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

2^#

發表於 2014-8-7 20:24 | 顯示全部帖子

回復 11# GBKEE

謝謝超版，研究網路抓取有一段時間了，這個網站我真的抓不到，所以看到超版的才知道有這麼回事

如下圖，六是這指個嗎？

我只看到網頁中有這些元素呀！

對於.document.all(6).all(0).

還真有些模糊

希望超版能多指點

謝謝

如果找到類似的網頁，再請超版來看看

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

3^#

發表於 2014-8-7 21:12 | 顯示全部帖子

回復 11# GBKEE

請問超版，若抓用上市日報表的網站，左邊也是如此，table在右邊，修改超版的程式語法

Set D = .document.all(5).all(0).contentWindow.frames.document.getElementsByTagName("INPUT")
改成5才可以用

右邊的table若用下面的
Set D = .document.all(5).all(1).contentWindow.frames.document.getElementsByTagName("table")
則撈不到資料呢！

以下是日報表的程代碼

Sub 日報表()
Dim D As Object, e As Object, URL As String
URL = "http://bsr.twse.com.tw/bshtm/"
' URL = "http://tmsearch.tipo.gov.tw/TIPO_DR/GoodsIPOContent.jsp"
With CreateObject("InternetExplorer.Application")
.Navigate URL
.Visible = True
Do While .ReadyState <> 4 Or .Busy
DoEvents
Loop
Set D = .document
Stop
Set D = .document.all(5).all(0).contentWindow.frames.document.getElementsByTagName("INPUT")
' For Each ss In D
' MsgBox ss.Value
' Next
'
Stop
D("txtTASKNO").Value = "1101"
For Each e In D
If e.Value = "查詢" Then e.Click: Exit For
Next
Do While .ReadyState <> 4 Or .Busy
DoEvents
Loop
Set D = .document.all(5).all(1).contentWindow.frames.document.getElementsByTagName("table")
' Stop
' For Each ss In D
' MsgBox ss.innerHTML
' Next
Stop
Ep D(0).outerHTML
.Quit
End With
End Sub

複製代碼

====================================
剛剛試了原版主提出的網頁也是不知道超版說的是哪一個呢？

如圖

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

4^#

發表於 2014-8-8 07:56 | 顯示全部帖子

回復 14# GBKEE

這張圖值五顆星啦！

改天我再來試試日報表改版主看看

請問版主找資料也是用這種方式呢？還是有別的更好的方式

vba內鍵的資料字型不能放大

謝謝

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

5^#

發表於 2014-8-8 10:28 | 顯示全部帖子

回復 16# GBKEE

我指的是「區域變數視窗」

請問版主還有更好的查找方法嗎？

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

6^#

發表於 2014-8-8 10:42 | 顯示全部帖子

回復 18# GBKEE

謝謝超版解決這個問題！雖然我不是用這個方法抓的！不過還是要感謝

再請問超版

.Document.Focus

為什麼要這句呢？有什麼差別？

.all(5)的5我是一個一個試出來的

左邊的是frame是all(0)
右邊的是frame為什麼也是all(0)而不是all(1)
超版也是一個一個試出來的嗎？

還是有別的語法可以list出來呢？

感謝超版又學到東西

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

7^#

發表於 2014-8-13 08:47 | 顯示全部帖子

回復 23# GBKEE

讚！謝謝版主用這麼功整的語法，小弟學習啦！

TOP

[發問] 查找網站資料

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

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