iT邦幫忙

0

此網頁如何分析網頁

  • 分享至 

  • xImage

請問 此網頁如何分析網頁
如何 用 EXCEL VBA 自動 填入 search Text ="公司名稱"
自動 CLICK 查詢 獲取查詢數據

網頁原始碼 摘要:

body {

請問 此網頁如何分析網頁
如何 用 EXCEL VBA 自動 填入 search Text ="公司名稱"
自動 CLICK 查詢 獲取查詢數據


網頁原始碼 摘要:

body {
<!-- put javascript or css here. -->
<script type='text/javascript' src='/fts/fts/js/eleUtils.js'></script>
<script type='text/javascript' src='/fts/dwr/util.js'></script>
<script type='text/javascript' src='/fts/dwr/engine.js'></script>
<script type='text/javascript' src='/fts/fts/js/dwr.js'></script>
<script type='text/javascript' src='/fts/dwr/interface/QueryBarAction.js'></script>
<script type="text/javascript">
$(document).ready(function() {
$('#qryCond').focus();
$('#qryCond').prop('title', '請輸入名稱或統一編號');
if (Cookies.get('qryCond') && Cookies.get("qryCond") != '') {
/* radio infoType processing */
var infoTypeVal = Cookies.get("infoType");
$('#infoDefault').prop('checked', false);
$('#infoAddr').prop('checked', false);
$('#infoOther').prop('checked', false);
$('#infoName').prop('checked', false);
if("A"==infoTypeVal){
$('#infoCmpyOldNameOldBanNo').prop('checked', true);
$('#qryCond').prop('title', '請輸入公司名稱或公司統一編號');
$('#qryCond').prop('placeholder', '請輸入公司名稱或公司統一編號');}

if (location.search.split('lineQry=')[1]) {
$("#qryCond").val(decodeURIComponent(location.search.split('lineQry=')[1]));
}

onlyQueryCmpyRepresentative();

//submit form to query
function sendQueryList() {
$.LoadingOverlay("show");
$("#qryBtn").attr("disabled",true);

var qryStr = $("#qryCond").val();
qryStr = qryStr.trim();
$("#qryCond").val(qryStr);

function subscr(){
$("#queryListForm").attr("action", "../QueryList/subscr.do");
$("#queryListForm").submit();
}
<body>
<form id="queryListForm" name="queryListForm" action="/fts/query/QueryList/queryList.do" method="post" onSubmit="return validation();" onLoad="showPopup('messageA')">
<div class="container">
<div class="input-group">
<input type="text" name="qryCond" value="" id="qryCond" class="form-control"/>
<input type="hidden" name="fhl" value="zh_TW" id="fhl"/>
<span class="input-group-btn">
<button id="qryBtn" class="btn btn-primary" type="button" onclick="sendQueryList();" onkeypress="sendQueryList();"><span class="glyphicon glyphicon-search"></span> 查詢</button>
</span>
</div><!-- /input-group -->
onChange="busiItemMainChange();">
<option value=""
>選擇所營事業</option>
<option value="A">A 農、林、漁、牧業</option>
<option value="B">B 礦業及土石採 取業</option>
<option value="C">C 製造業</option>
<option value="D">D 水電燃氣業</option>
<option value="E">E 營建工程業</option>
<option value="F">F 批發、零售及餐飲業</option>
<option value="G">G 運輸、倉儲及通信業</option>
<option value="H">H 金融、保險及不動產業</option>
<option value="I">I 專業、科學及技術服務業</option>
<option value="J">J 文化、運動、休閒及其他服務業</option>
</body>
blanksoul12 iT邦研究生 5 級 ‧ 2022-11-28 10:02:10 檢舉
https://club.excelhome.net/thread-1159783-1-1.html
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

0
player
iT邦大師 1 級 ‧ 2022-11-29 18:14:31

給你提示
詳細的做法你自己試

1.Excel 寫VBA時,引用 【Microsoft HTML Object Library】與【Microsoft Internet Controls】

2.用【Microsoft Internet Controls】的 InternetExplorer 開啟你要的Url


    Dim HTMLDoc As HTMLDocument
    Dim oBrowser As InternetExplorer
    Dim oDocument As HTMLDocument
    Dim oCollection As IHTMLElementCollection
    Dim oElement As IHTMLElement
    Dim strUrl As String
 
    Set oBrowser = New InternetExplorer
    oBrowser.Height = 400
    oBrowser.Width = 400
    oBrowser.Silent = False
    oBrowser.Visible = True 

    strUrl = "https://ithelp.ithome.com.tw"
    oBrowser.navigate strUrl

 
    Do Until oBrowser.Busy = False
        DoEvents
    Loop
 
 
    Do
        DoEvents
    Loop Until oBrowser.readyState = READYSTATE_COMPLETE
 
    Set oDocument = oBrowser.Document

然後用取得的oDocument 去做後續操作
Microsoft HTML Object Library 有點複雜
不解釋了
你自己找吧

如果不侷限於VBA的話
用Selenium + Python 或許是更好的選擇

我要發表回答

立即登入回答