VBA查詢網頁匯入

jewayy

各位先進,

小弟在做網頁查詢時遇到困難，如下網頁想用船名航次查詢
網址：http://csct.nbport.com.cn/csct/business/cqcx.jsp
點選英文船名航次，查詢：UNICHART/222E

下載 (141.42 KB)
網頁查詢結果

2014-12-20 12:50

我做的iqy如下，查詢不出結果，請各位先進指點要如何更改，感激不盡！！！
--------------
WEB
1
http://csct.nbport.com.cn/csct/business/cqcx.jsp
check_mode=1&e_voyage=UNICHART/222E
--------------

joey0415

紅色的字設成你的變數就行
Sub 巨集1()

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://csct.nbport.com.cn/csct/business/cqcx.jsp?start_date=&end_date=&check_mode=1&e_voyage=UNICHART%2F222E&vRef=UNICH121&holdFlag=display&imageField32.x=26&imageField32.y=11" _
        , Destination:=Range("$A$1"))
'        .WebFormatting = xlWebFormattingNone
        .WebTables = "25"
        .Refresh BackgroundQuery:=False
        .Delete
    End With
End Sub

jewayy

謝謝指導！！
原來vRef與holdFlag是必須的，帶這兩個就可以查出來結果！(如下)
------------------------------------
WEB
1
http://csct.nbport.com.cn/csct/business/cqcx.jsp?check_mode=1&vRef=UNICH121&holdFlag=display
Selection=1
Formatting=None
------------------------------------
可以再請教一個問題，因為要查詢的項目是變動的，例如UNICHART是固定的，但222E是變動的，
可能要查223E、224E，請問有沒有辦法利用e_voyage撈出相對應的vRef，這樣才方便寫程式自動帶入，謝謝，感激不盡！！