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

http://portal.sw.nat.gov.tw/PPL/pages/integration/layout.jsp?appId=APGQAGB315

出口報單號碼：BE 02XE580024

希望能將查詢結果，匯入EXCEL中，
小弟已經做了一個iqy,如下所示，但還是無法顯示，請各位先進幫忙，感激不盡！
----------------------------------------------------------------------------------------------
WEB
1
http://portal.sw.nat.gov.tw/PPL/pages/integration/layout.jsp?appId=APGQAGB315declNo=BE 02XE580024

Selection=1
Formatting=None
----------------------------------------------------------------------------------------------

樓主熱帖

Hi~

jewayy

中學生 Rank: 2

帖子: 36
主題: 9
精華: 0
積分: 51
點名: 0
作業系統: Win7
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-10-30
最後登錄: 2015-1-31

2^#

發表於 2013-11-16 14:03 | 顯示全部帖子

呵呵，謝謝您的回覆，被說的好像是不懂爬文的小白~~
之前小弟寫這種WEB匯入也不下10個(或許那些網頁比較適合自己粗淺的功力)，
在發文之前也爬過文，實在找不到解決的方法才求救大家的。

不曉得高手如您是否有更具建議性的回覆，在此多謝。

Hi~

TOP

jewayy

中學生 Rank: 2

帖子: 36
主題: 9
精華: 0
積分: 51
點名: 0
作業系統: Win7
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-10-30
最後登錄: 2015-1-31

3^#

發表於 2013-11-16 17:28 | 顯示全部帖子

謝謝您的回覆，不過好像還是沒有反應。

小弟再描述清楚一下，出口報單號碼"BE 02XE580024"，BE與02XE中間是必須有兩個空格才能查詢成功。
畫面查詢結果如下：

再麻煩各位給予支援，謝謝。

Hi~

TOP

jewayy

中學生 Rank: 2

帖子: 36
主題: 9
精華: 0
積分: 51
點名: 0
作業系統: Win7
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-10-30
最後登錄: 2015-1-31

4^#

發表於 2013-11-17 11:21 | 顯示全部帖子

版大果然太強大了！
根據版大的code，仿照了另一個網頁的WEB輸入
portal.sw.nat.gov.tw/PPL/pages/integration/layout.jsp?appId=APGQAGB309
網頁查詢畫面如下：

匯入EXCEL畫面如下：

-----------------------------code---------------------------------------
Option Base 1
Sub Ex()
Dim Ar, AA(), 出口報單號碼 As String, Sh As Worksheet
出口報單號碼 = InputBox("出口報單號碼", "出口報單放行資料查詢", "BE  02XE580024")
If 出口報單號碼 = "" Then Exit Sub
Set Sh = ActiveSheet                               '指定顯示資料的工作表 'ActiveSheet->作用中的工作表
With CreateObject("Microsoft.XMLHTTP")
   .Open "GET", "http://portal.sw.nat.gov.tw/APGQ/GB309!query?&choice=D&declNo=" & 出口報單號碼, False
      .send
      Ar = Split(Replace(.responsetext, """", ""), ",")
      AA = Array(1, 8, 4, 7, 2, 14, 11)          'A欗的標題內容 Ar中陣列對應之索引值
      On Error GoTo Er                         '出口報單號碼不正確會有錯誤:
      For i = 1 To UBound(AA)
         Sh.Cells(1 + i, "B") = Split(Ar(AA(i)), ":")(1)  'B欗
   Next
   AA = Array(5, 3, 10, 6, 12, 9)                'C欗的標題內容 Ar中陣列對應之索引值
   For i = 1 To UBound(AA)
         Sh.Cells(2 + i, "D") = Split(Ar(AA(i)), ":")(1)  'D欗
         If AA(i) = 6 Then Cells(2 + i, "D") = Replace(Cells(2 + i, "D"), "\/", "/")
   Next
End With
Exit Sub
Er:
Sh.[b2].Resize(7, 1) = ""
Sh.[d2].Resize(7, 1) = ""
End Sub
-----------------------------code---------------------------------------
請問版大如何把內容的亂碼更改成正確的中文顯示，如：建新國際股份有限公司高雄分公司，長榮國際...

其實，自己比較偷懶，做的iqy只有以下簡單內容，參照EXCEL內的報單號碼可做批次的查詢，
只是回傳的結果如joey0415兄說的會有亂碼，如果有方法可以解決回傳亂碼的話就太好了~~
------------------------------------------
WEB
1
http://portal.sw.nat.gov.tw/APGQ/GB309!query
choice=D&declNo=["ID",""]

Selection=1
Formatting=None
------------------------------------------

Hi~

TOP