請問這個網頁如何用WEB查詢輸入excel

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

8^# 跳轉到 »

發表於 2013-11-17 07:16 | 只看該作者

回復 4# jewayy

Option Explicit
Dim IE As Object
Sub 出口報單放行資料查詢()
Dim 出口報單號碼 As String, n As Object
出口報單號碼 = InputBox("出口報單號碼", "出口報單放行資料查詢", "BE 02XE580024")
If 出口報單號碼 = "" Then Exit Sub
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://portal.sw.nat.gov.tw/APGQ/GB315?request_locale=zh_TW&declNo=" & 出口報單號碼
Do While .Busy = True
DoEvents
Loop
For Each n In .document.getelementsbytagname("INPUT")
If n.Value = "查詢" Then
n.Click '網頁按下查詢
Exit For
End If
Next
Application.Wait (Time + TimeValue("0:00:03")) '依網頁下載速度調整等待秒數
Set IE = .document
查詢結果
.Quit
End With
End Sub
Private Sub 查詢結果()
Dim Ar(1 To 7), SH As Worksheet
'***** 網頁的原始檔案的本文
'<tbody><tr><td colspan="4" class="resultHeader">查詢結果</td></tr>
'<td class="resultHeader">海空運別</td><td class="result" id="transTypeCd">海</td>
'<td class="resultHeader" width="25%">出口報單號碼</td><td width="25%" class="result" id="declNo">BE 02XE580024</td>
'<td class="resultHeader" width="25%">報單類別</td><td width="25%" class="result" id="declType">G5</td>
'<td class="resultHeader" width="25%">總件數</td><td width="25%" class="result" id="totPackQty">32</td>
'<td class="resultHeader" width="25%">目的國家代碼</td><td width="25%" class="result" id="destCd">VNCLI</td>
'<td class="resultHeader" width="25%">總件數單位</td><td width="25%" class="result" id="totPackQtyUnit">PLT</td>
'<td class="resultHeader" width="25%">報單放行註記</td><td width="25%" class="result" id="examRelNote">Y</td>
'<td class="resultHeader" width="25%">總毛重</td><td width="25%" class="result" id="totGrossWeight">49376</td>
'<td class="resultHeader" width="25%">放行日期</td><td width="25%" class="result" id="relDate">102/09/17</td>
'<td class="resultHeader" width="25%">船舶名稱(海)/航機名稱(空)</td><td width="25%" class="result" id="vslName">UNI-PROSPER </td>
'<td class="resultHeader" width="25%">銷艙註記</td><td width="25%" class="result" id="marketMftNote">Y</td>
'<td class="resultHeader" width="25%">船舶航次(海)/航機班次(空)</td><td width="25%" class="result" id="voyageFlightNo">1084-186S</td>
'<td class="resultHeader" width="25%">船舶呼號(海)</td><td width="25%" class="result" id="vslSign">BKHC</td>
'<input id="statusMsg" type="text" class="msgText uppercase" readonly="readonly" style="width: 775px; color: red;">
Set SH = ActiveSheet '指定顯示資料的工作表 'ActiveSheet->作用中的工作表
If InStr(IE.getElementById("statusMsg").Value, "[執行成功]") = 0 Then
SH.[b2].Resize(7, 1) = Application.WorksheetFunction.Transpose(Ar)
SH.[d2].Resize(7, 1) = Application.WorksheetFunction.Transpose(Ar)
Exit Sub
End If
Ar(1) = IE.getElementById("transTypeCd").innertext '海空運別
Ar(2) = IE.getElementById("declNo").Value '出口報單號碼
Ar(3) = IE.getElementById("totPackQty").innertext '總件數
Ar(4) = IE.getElementById("totPackQtyUnit").innertext '總件數單位
Ar(5) = IE.getElementById("totGrossWeight").innertext '總毛重
Ar(6) = IE.getElementById("vslName").innertext '船舶名稱 (海) / 航機名稱(空)
Ar(7) = IE.getElementById("voyageFlightNo").innertext '船舶航次 (海) / 航機班次(空)
SH.[b2].Resize(7, 1) = Application.WorksheetFunction.Transpose(Ar)
Ar(1) = ""
Ar(2) = IE.getElementById("declType").innertext '報單類別
Ar(3) = IE.getElementById("destCd").innertext '目的國家代碼
Ar(4) = IE.getElementById("examRelNote").innertext '報單放行註記
Ar(5) = IE.getElementById("totGrossWeight").innertext '放行日期
Ar(6) = IE.getElementById("marketMftNote").innertext '銷艙註記
Ar(7) = IE.getElementById("vslSign").innertext '船舶呼號 (海)
SH.[d2].Resize(7, 1) = Application.WorksheetFunction.Transpose(Ar)
SH.Columns.AutoFit
End Sub

複製代碼

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

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

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

7^#

發表於 2013-11-17 00:20 | 只看該作者

http://portal.sw.nat.gov.tw/APGQ/GB315!query?declNo=BE++02XE580024

內容是json格式
{"msg":"[執行成功]","transTypeCd":"海","totGrossWeight":49376,"destCd":"VNCLI","totPackQty":"32","declType":"G5","relDate":"102\/09\/17","totPackQtyUnit":"PLT","declNo":"BE 02XE580024","vslSign":"BKHC","examRelNote":"Y","voyageFlightNo":"1084-186S","marketMftNote":"Y","status":"ok","vslName":"UNI-PROSPER "}

可能要下xmlhttp下載
可果要用excel web查詢，我試過會亂碼，可能還要會轉碼

就要用ie法找到tag按下去，從裏面找table

提供兩個網頁參考：
http://club.excelhome.net/forum.php?mod=viewthread&action=printable&tid=939881

http://blog.csdn.net/a814153a/article/details/9071577

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

6^#

發表於 2013-11-16 23:03 | 只看該作者

回復 5# jewayy
我試過直接給網址似乎網站並不會正常顯示資料,
另外從輸入資料後按查詢按紐時,
上方的網址也並沒有因而變動.

或許你應該改成用程式在出口報單號碼：旁的輸入框輸入資料,
然後模擬按下查詢按紐較易成功查詢到資料.

不過因為我也不太懂 Excel VBA 讀取網頁相關方式,
這就需要其他人來解答了.

TOP

c_c_lai