網頁查詢問題

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2020-7-5 23:50 | 顯示全部帖子

本帖最後由 n7822123 於 2020-7-6 00:00 編輯

回復 4# sillykin

寫程式讓它觸發原本網頁的腳本事件就好了.............

不是要你研究 javascript.......

你原本寫的 ComboBox_list 程序有點複雜，看不太懂你要幹嘛

我自己寫了2個程序GetCB_OP、WbKeyin_OP 取代他，ComboBox 我改編號為7、8、9 對應網頁的編號

這樣我寫程式比較順手，你再試看看~~

抓地網頁地段.rar (966.46 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

3^#

發表於 2020-7-6 02:31 | 顯示全部帖子

回復 5# n7822123

剛剛發現表單操作過快會取不到資料，

請自行新增一行程式

Private Sub ComboBox7_Change()    '縣市
   'If xMsg = False Then ComboBox_list 0
   xRng.Cells(1, 2) = ComboBox7.Value
   WbKeyin_OP 7       '輸入資料到WB第7個選單、並觸發事件
   Application.Wait (Now + TimeValue("00:00:01")) '等待，過快會取不到資料
   GetCB_OP 8             '取得WB第8個選單資料
End Sub
Private Sub ComboBox8_Change()    '事務所名稱
'If xMsg = False Then ComboBox_list 1
xRng.Cells(1, 3) = ComboBox8.Value
WbKeyin_OP 8       '輸入資料到WB第8個選單、並觸發事件
Application.Wait (Now + TimeValue("00:00:01")) '等待，過快會取不到資料
GetCB_OP 9             '取得WB第9個選單資料
End Sub
Private Sub ComboBox9_Change()    '鄉鎮市區
'If xMsg = False Then ComboBox_list 2
xRng.Cells(1, 4) = ComboBox9.Value
WbKeyin_OP 9       '輸入資料到WB第9個選單、並觸發事件 =>這個漏寫了
End Sub

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 2020-7-6 22:12 | 顯示全部帖子

本帖最後由 n7822123 於 2020-7-6 22:15 編輯

回復 9# sillykin

其實我比較推薦 "段代碼" 因為是"唯一"的，搜出來只會有1筆

用關鍵字可能搜出來有很多筆~如你的竹圍就有5筆，如果你要全部列出來

可能要先判斷搜出來有幾頁，因這個網站超過10筆會進下一頁

你需要寫程式控制IE，去點選頁數，讓它觸發更新，再下載10筆，再控制IE點第2頁，在下載下10筆.......

想想就覺得很麻煩~~~我完全不會想這樣寫

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

5^#

發表於 2020-7-7 00:38 | 顯示全部帖子

本帖最後由 n7822123 於 2020-7-7 00:46 編輯

回復 11# sillykin

那個網頁有那麼多按鈕，先說明你到底要什麼資料吧.......

你只是要它的 "地段代碼編號" 嗎?

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

6^#

發表於 2020-7-7 01:50 | 顯示全部帖子

本帖最後由 n7822123 於 2020-7-7 01:56 編輯

回復 11# sillykin

先依你的"關鍵字"查找資料，

把文字資料都放上去了，你在自己擷取你要的部分

目前只秀出"第一筆資料"，在看你自己看要怎麼修改~~

如果要用"段代碼"，你可能要做個對照表(去那個網站下載)，不然操作者也不知道要Key什麼吧!.......

抓地網頁地段-1090707.rar (361.52 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

7^#

發表於 2020-7-7 03:33 | 顯示全部帖子

回復 13# n7822123

最新版~~ 關鍵字你隨意輸入 (可輸入也可不輸入)

表單一樣只會秀"第一筆"資料，其他資料也全部抓下來(不管幾頁)

把資料全部放到 "結果區" 工作表~

累了! 搞了一個半夜，看的懂就看吧!

抓地網頁地段-1090707-new.rar (478.77 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助