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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-6-5 11:39 | 顯示全部帖子

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

近日在做一些追縱研究，需要定期到下面網站讀取所有公司的名稱、地址和地址類型
https://eservices.customs.gov.hk/MSOS/wsrh/001s1?searchBy=B

我試過用「外部資料匯入」和錄製巨集來處理，但EXCEL看來讀不到那些TABLE的資料。
請問VBA能夠處理嗎？謝謝大家。

樓主熱帖

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

2^#

發表於 2014-6-5 13:26 | 顯示全部帖子

Sub GetData()
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
xlHtm = .Document.body.innerHTML
End With
End Sub

複製代碼

我試了用CREATEOBJECT，但有些資料多過一頁時，請問如何轉頁？

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

3^#

發表於 2014-6-10 12:07 | 顯示全部帖子

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

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

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

4^#

發表於 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

5^#

發表於 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來讀取嗎？

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

6^#

發表於 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的作用
謝謝大大指教

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

7^#

發表於 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 ......