http更改成https，網站抓不到資料 - Excel程式區

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

1^# 跳轉到 »

發表於 2012-8-8 15:26 | 只看該作者

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

http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp

統一編號：16834268
選取方式：所有繳納單
港口：高雄港
日期：2012年6月1日~~2012年7月1日

小弟已經做了一個iqy,如下所示，但還是無法顯示，請各位先進幫忙，感激不盡！
------------------
WEB
1
http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp
sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&YYYY2=2012&MM1=06&MM2=07&DD1=01&DD2=01
Selection=2
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False
------------------

Hi~

TOP

lalalada

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

2^#

發表於 2012-8-8 16:15 | 只看該作者

回復 1# jewayy

可以給我一組真實存在的單號嗎?
不然我沒辦法測試@@"

TOP

jewayy

中學生 Rank: 2

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

3^#

發表於 2012-8-8 22:06 | 只看該作者

您好，謝謝您的回覆。
底下這個為真實的查詢條件：
-----------------------------
統一編號：16834268
選取方式：所有繳納單
港口：高雄港
日期：2012年6月1日~~2012年7月1日
-----------------------------
附上查詢後的網頁結果供您參考。

Hi~

TOP

jewayy

中學生 Rank: 2

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

4^#

發表於 2012-8-10 13:41 | 只看該作者

請問有人可以幫忙嗎？小弟感激不盡！

Hi~

TOP

lalalada

中學生 Rank: 2

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

5^#

發表於 2012-8-10 15:36 | 只看該作者

本帖最後由 lalalada 於 2012-8-10 15:38 編輯

試試這個~

Sub TryIt()
webURL = "URL;http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&interval=Y&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01"
With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))
.PreserveFormatting = True
.Refresh BackgroundQuery:=False
End With
End Sub

複製代碼

是有抓到資料這是你要的嗎?
抱歉因為這篇被洗下去了現在才看到@@
真要說跟你原本的code有什麼不一樣的話
就是"?"了^.<

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

6^#

發表於 2012-8-10 16:31 | 只看該作者

本帖最後由 GBKEE 於 2014-1-11 11:19 編輯

回復 1# jewayy
iqy 檔的網址有參數須加上 ? 且不可分兩行
修正你的網址如下: 還要加上參數 interval=Y 搜尋日期範圍,為指定的區間, 不然會下載很久的!!
https://public-cpd.mtnet.gov.tw/p ... M2=07&DD1=01&DD2=01
'http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&interval=Y&YYYY1=2012&YYYY2=2012&MM1=06&MM2=07&DD1=01&DD2=01

用表單也可查詢

國際查詢.rar (22.45 KB)

TOP

white5168

中學生 Rank: 2

帖子: 90
主題: 16
精華: 0
積分: 114
點名: 0
作業系統: XP
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-10-7

7^#

發表於 2012-8-10 16:39 | 只看該作者

最近忙了一些事,到今天再回來,你可以參考看看以下的code,是不是你要的

Sub Ex()
Const StockIDURL As String = "http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01&interval=Y"
Dim xlSheet As Excel.Worksheet
Set xlSheet = Sheets("Sheet1")
With xlSheet.QueryTables.Add("URL;" & StockIDURL, xlSheet.Cells(1, 1))
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.Refresh 0
.Delete
End With
Set xlSheet = Nothing
End Sub

複製代碼

TOP

white5168

中學生 Rank: 2

帖子: 90
主題: 16
精華: 0
積分: 114
點名: 0
作業系統: XP
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-10-7

8^#

發表於 2012-8-10 16:57 | 只看該作者

回太快,搞錯了,你再參考看看

WEB
1
http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01&interval=Y
Selection=AllTables
Formatting=All
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False

複製代碼

TOP

white5168

中學生 Rank: 2

帖子: 90
主題: 16
精華: 0
積分: 114
點名: 0
作業系統: XP
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-10-7

9^#

發表於 2012-8-10 17:01 | 只看該作者

回太快,搞錯了,你再參考看看
white5168 發表於 2012-8-10 16:57

更精簡的作法

WEB
1
http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=16834268&sel01=2&portcode=TWKHH&YYYY1=2012&MM1=06&DD1=01&YYYY2=2012&MM2=07&DD2=01&interval=Y
Selection=1
Formatting=None

複製代碼

TOP

jewayy

中學生 Rank: 2

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

10^#

發表於 2012-8-11 15:06 | 只看該作者

謝謝各位先進的熱心回覆及幫忙，問題已解決，也學習到很多！

Hi~

TOP

[發問] http更改成https，網站抓不到資料

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]