助航服務費iqy查詢

jewayy

Dear 各位先進,

此網站的iqy查詢也寫了幾次了，但是下面這個一直鬼打牆寫不出來
不好意思再請教各位一個問題，欲查詢內容如下：

網址：http://portal.sw.nat.gov.tw/APGQ/GC319?request_locale=zh_TW
船舶呼號：9VDB7
查詢結果：

下載 (99.85 KB)

2014-1-14 07:37

按照之前的經驗，iqy我的寫法如下：
----------
WEB
1
http://portal.sw.nat.gov.tw/APGQ/GC319!query
queryType=2&vslSign=9VDB7

Selection=1
Formatting=None
----------
但一直查詢不到內容，再麻煩各位了，感激不盡。

joey0415

回復 1# jewayy

http://portal.sw.nat.gov.tw/APGQ/GC319!query?transportId=&queryType=2&vslSign=9VDB7&shipCoCd=

http://portal.sw.nat.gov.tw/APGQ/GC319!query?transportId=&queryType=2&vslSign=9VDB7&shipCoCd=
查詢結果

{"msg":"[執行成功]","netWgt":10855,"shipName":"WAN HAI 301","clearId":"BCF21153004920","shipCoCd":"1105292","data":[{"berthTime":"2013-11-12T14:42:19","item":1,"portName":null,"vslRegNo":"02V538"},{"berthTime":"2013-11-13T00:00:00","item":2,"portName":"TAIPEI","vslRegNo":"02AN57"},{"berthTime":"2013-11-21T13:56:10","item":3,"portName":null,"vslRegNo":"024173"},{"berthTime":"2013-11-22T14:46:39","item":4,"portName":null,"vslRegNo":"02V717"},{"berthTime":"2013-12-11T18:04:49","item":5,"portName":null,"vslRegNo":"02V942"},{"berthTime":"2013-12-12T18:19:50","item":6,"portName":null,"vslRegNo":"02AP87"},{"berthTime":"2013-12-19T22:28:25","item":7,"portName":null,"vslRegNo":"024531"},{"berthTime":"2013-12-20T22:10:42","item":8,"portName":null,"vslRegNo":"02VB13"},{"berthTime":"2014-01-08T14:35:17","item":9,"portName":null,"vslRegNo":"02VD51"},{"berthTime":"2014-01-09T00:00:00","item":10,"portName":"TAIPEI","vslRegNo":"02AS14"}],"vslSign":"9VDB7","issueCustCd":"BC","timeLimit":"2014-03-11T14:42:19","detailShow":"block","addDate":null,"status":"ok","countryCd":"SG","payNote":"N"}

GBKEE

回復 1# jewayy

1. Option Explicit
   
2. Sub 助航服務費查詢_GC319()
   
3.     Dim Element, 船舶呼號 As String, xi As Integer, i As Integer, k As Integer, j As Integer
   
4.     船舶呼號 = InputBox("船舶呼號")
   
5.     With CreateObject("InternetExplorer.Application")
   
6.        ' .Visible = True
   
7.         '.Navigate "http://portal.sw.nat.gov.tw/APGQ/GC319?request_locale=zh_TW"
   
8.         .Navigate "http://portal.sw.nat.gov.tw/APGQ/GC319"
   
9.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
   
10.         .Document.getelementbyid("queryType1").Click
    
11.         .Document.getelementbyid("vslSign").Value = 船舶呼號   '"9VDB7"
    
12.         For Each Element In .Document.getelementsbytagname("INPUT") '    這個迴圈找到按鈕是第幾個輸入項
    
13.             If Element.Type = "button" And Trim(Element.Value) = "查詢" Then
    
14.                 Element.Click
    
15.                 Exit For
    
16.             End If
    
17.         Next
    
18.         .Document.getelementsbytagname("SELECT")(0).Value = 30               '資料數
    
19.         .Document.getelementsbytagname("SELECT")(0).FireEvent ("onchange")   '讀取
    
20.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
    
21.         Application.Wait Time + #12:00:02 AM#
    
22.         If .Document.getelementbyid("statusMsg").Value <> "[執行成功]" Then
    
23.             MsgBox 船舶呼號 & vbLf & .Document.getelementbyid("statusMsg").Value
    
24.             .Quit
    
25.             Exit Sub
    
26.         End If
    
27.         Set Element = .Document.getelementsbytagname("TABLE") '
    
28.         With ActiveSheet
    
29.             .UsedRange.Clear
    
30.             k = 1
    
31.             For xi = 2 To 6
    
32.                 If xi <> 3 Then
    
33.                     For i = 0 To Element(xi).Rows.Length - 1
    
34.                         For j = 0 To Element(xi).Rows(i).Cells.Length - 1
    
35.                             .Cells(k, j + 1) = Element(xi).Rows(i).Cells(j).innertext
    
36.                     Next
    
37.                     k = k + 1
    
38.                     Next
    
39.                 End If
    
40.            Next
    
41.         End With
    
42.         .Quit
    
43.     End With
    
44.     MsgBox "Ok"
    
45. End Sub

複製代碼

jewayy

謝謝joey以及GBKEE版大的回覆。
小弟有點疑問，為何一定要加shipCoCd這個條件才跑得出來(還不用給值)，不是二選一嗎？