[發問] 無法用外部資料匯入的網站能用VBA讀取資料嗎？

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

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

12^#

發表於 2014-6-23 09:42 | 只看該作者

本帖最後由 GBKEE 於 2014-6-23 09:43 編輯

回復 11# 小俠客

'網頁搜尋結果: 0 記錄
Option Explicit
Sub IE下一頁()
Dim url As String, a As Object, Table As Object, i As Integer, pubSrch As Object, Pages As Integer
Dim Sh As Worksheet, B As String, E
Set Sh = ActiveSheet
Sh.Cells.Clear
'************************************
url = "https://eservices.customs.gov.hk/MSOS/wsrh/001s1?"
'url = "https://eservices.customs.gov.hk/MSOS/wsrh/001s1?"searchBy=A" '網頁有資料
'************************************
With CreateObject("InternetExplorer.Application")
.Visible = True ' 是否顯示 IE
.Navigate url
Do While .ReadyState <> 4 Or .Busy
DoEvents
Loop
Do
Set a = .Document.getElementsByTAGName("TD")
Loop Until Not a Is Nothing 'And a.Length = 84
On Error Resume Next
With Sh
For i = 0 To a.Length - 1
.Cells(i + 1, "A") = i
.Cells(i + 1, "B") = a(i).Type
.Cells(i + 1, "C") = a(i).ID
.Cells(i + 1, "D") = a(i).InnerText
.Cells(i + 1, "E") = a(i).Value
Next
End With
.Quit
End With
MsgBox "getElementsByTAGName(""TD"") 合計 " & a.Length
End Sub

複製代碼

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

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

11^#

發表於 2014-6-23 09:20 | 只看該作者

回復小俠客 Set A = .Document.getElementsByTAGName("TD")
不放在 Do Loop 迴圈也可以,
但因網頁資料 ...
GBKEE 發表於 2014-6-20 21:03

原來如此，因為我是用「逐行執行」的方式研究代碼，所以比較沒有這個問題，實際運行確需要作這個checking。
那麼a.length = 84又是甚麼意思？

A = 「返回帶有TD標簽名的對象集合」
A.Length 是指這個集合的總數
但我參考「Private Sub 網頁的元素()」
我發現只有54個TD ......

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

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

10^#

發表於 2014-6-20 21:03 | 只看該作者

回復 9# 小俠客

Do
Set A = .Document.getElementsByTAGName("TD")
Loop Until Not A Is Nothing And A.Length = 84
MsgBox A.Length '可看看倒底是多少

複製代碼

Set A = .Document.getElementsByTAGName("TD")
不放在 Do Loop 迴圈也可以,
但因網頁資料下載速度比程式速度執行慢,導致 A Is Nothing
只得用 Do Loop 直到 Not A Is Nothing

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

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

9^#

發表於 2014-6-20 16:03 | 只看該作者

回復小俠客

檔案下載後,如圖示匯入表單
GBKEE 發表於 2014-6-14 16:47

經過數天的研究，我開始有點了解
但我對大大之前提供的代碼仍然不太清晰，可以請你稍作解譯嗎？

Do
Set A = .Document.getElementsByTAGName("TD")
Loop Until Not A Is Nothing And A.Length = 84

複製代碼

我查到getElementsByTAGName("TD")是指「返回帶有指定標簽名的對象集合」
即是A = 「返回帶有TD標簽名的對象集合」
A.Length 是指這個集合的總數
但我參考「Private Sub 網頁的元素()」
我發現只有54個TD ，為什麼大大會寫84?(A.length真的是84，只是我不明白為何是84，而且如何得知是84)

另外，如果我們是希望從"TD"集合中找出 A(i).ID = "grid-table-pubSrch_center"

Do
Set A = .Document.getElementsByTAGName("TD")
Loop Until Not A Is Nothing And A.Length = 84

複製代碼

可不可以寫成

Set A = .Document.getElementsByTAGName("TD")

複製代碼

因為我不太明白這個LOOP的作用
謝謝大大指教

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

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

8^#

發表於 2014-6-14 16:47 | 只看該作者

本帖最後由 GBKEE 於 2014-6-14 20:44 編輯

回復 7# 小俠客

把網頁上的資料當成FORM來讀取

Ex.rar (2.21 KB)

檔案下載後,如圖示匯入表單

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

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

7^#

發表於 2014-6-12 15:55 | 只看該作者

回復小俠客
1) "FM20.DLL" 是Microsoft Forms 2.0 Object Library ，但如果我想了解它的功能和使用方便 ...
GBKEE 發表於 2014-6-12 08:33

有點弄不清楚，版大可否簡介「Microsoft Forms 2.0 Object Library」在此程式的作用？
是把網頁上的資料當成FORM來讀取嗎？

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

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

6^#

發表於 2014-6-12 08:33 | 只看該作者

回復 5# 小俠客
1) "FM20.DLL" 是Microsoft Forms 2.0 Object Library ，但如果我想了解它的功能和使用方便，應該如何入手？
Private Sub Ep(Sh As Worksheet, S As String)
Dim D As New DataObject ,VBA中要引用項目Microsoft Forms 2.0 Object Library
活頁簿中只要有使用到 MSForms的控制項 VBA都會自動地引用Microsoft Forms 2.0 Object Library

2) "grid-table-pubSrch_center"、"next_grid-table-pubSrch"，這些keyword是如何找出來？我在原始檔找不到......
請參考 Private Sub 網頁的元素()

3) 我對CreateObject("InternetExplorer.Application")的操作不了解，有沒有相關資料可以參考？
Google CreateObject("InternetExplorer.Application") 看看

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

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

5^#

發表於 2014-6-10 14:16 | 只看該作者

本帖最後由小俠客於 2014-6-10 14:19 編輯

對不起，關於GBKEE大分享的CODING，我有些疑問：

1) "FM20.DLL" 是Microsoft Forms 2.0 Object Library ，但如果我想了解它的功能和使用方便，應該如何入手？

2) "grid-table-pubSrch_center"、"next_grid-table-pubSrch"，這些keyword是如何找出來？我在原始檔找不到......

3) 我對CreateObject("InternetExplorer.Application")的操作不了解，有沒有相關資料可以參考？

謝謝大家
謝謝。

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

4^#

發表於 2014-6-10 12:07 | 只看該作者

本帖最後由小俠客於 2014-6-10 12:08 編輯

謝謝GBKEE大大，好像已經可以了！
太利害，我再試試看。
代碼有很多看不懂的東西，希望仔細看後能弄清楚當中原理，謝謝。