助航服務費iqy查詢

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

1^# 跳轉到 »

發表於 2014-1-14 11:00 | 顯示全部帖子

回復 1# jewayy

Option Explicit
Sub 助航服務費查詢_GC319()
Dim Element, 船舶呼號 As String, xi As Integer, i As Integer, k As Integer, j As Integer
船舶呼號 = InputBox("船舶呼號")
With CreateObject("InternetExplorer.Application")
' .Visible = True
'.Navigate "http://portal.sw.nat.gov.tw/APGQ/GC319?request_locale=zh_TW"
.Navigate "http://portal.sw.nat.gov.tw/APGQ/GC319"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
.Document.getelementbyid("queryType1").Click
.Document.getelementbyid("vslSign").Value = 船舶呼號 '"9VDB7"
For Each Element In .Document.getelementsbytagname("INPUT") ' 這個迴圈找到按鈕是第幾個輸入項
If Element.Type = "button" And Trim(Element.Value) = "查詢" Then
Element.Click
Exit For
End If
Next
.Document.getelementsbytagname("SELECT")(0).Value = 30 '資料數
.Document.getelementsbytagname("SELECT")(0).FireEvent ("onchange") '讀取
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
Application.Wait Time + #12:00:02 AM#
If .Document.getelementbyid("statusMsg").Value <> "[執行成功]" Then
MsgBox 船舶呼號 & vbLf & .Document.getelementbyid("statusMsg").Value
.Quit
Exit Sub
End If
Set Element = .Document.getelementsbytagname("TABLE") '
With ActiveSheet
.UsedRange.Clear
k = 1
For xi = 2 To 6
If xi <> 3 Then
For i = 0 To Element(xi).Rows.Length - 1
For j = 0 To Element(xi).Rows(i).Cells.Length - 1
.Cells(k, j + 1) = Element(xi).Rows(i).Cells(j).innertext
Next
k = k + 1
Next
End If
Next
End With
.Quit
End With
MsgBox "Ok"
End Sub

複製代碼

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

靜思自在 : 小事不做、大事難成。