返回列表 上一主題 發帖

VBA查詢網頁匯入

jewayy

帖子
36 
主題
9 
精華
0 
積分
51 
點名
0  
作業系統
Win7 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-10-30 
最後登錄
2015-1-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-12-20 12:51 | 只看該作者

VBA查詢網頁匯入

本帖最後由 jewayy 於 2014-12-20 12:53 編輯

各位先進,

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


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

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2014-12-20 14:41 | 只看該作者
紅色的字設成你的變數就行
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

TOP

jewayy

帖子
36 
主題
9 
精華
0 
積分
51 
點名
0  
作業系統
Win7 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-10-30 
最後登錄
2015-1-31 
3#
發表於 2014-12-21 11:53 | 只看該作者
謝謝指導！！
原來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，這樣才方便寫程式自動帶入，謝謝，感激不盡！！
Hi~

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題