jewayy

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-1-9 21:58 | 只看該作者

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

本帖最後由 jewayy 於 2014-1-9 22:00 編輯

Dear 各位先進,

想要查詢的網頁如下：

過去的iqy內容如下，即可查到資料：
------------------------------------------------------------------------------------------------------------------------------
WEB
1
http://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=79193332
&sel01=2&portcode=-&YYYY1=2013&MM1=12&DD1=01&YYYY2=2013&MM2=12&DD2=31&interval=Y

Selection=1
Formatting=None
------------------------------------------------------------------------------------------------------------------------------
但幾天前網站改版，經查詢只有網址更動http為https，於是更動上述內容為https，但都下載不了查詢結果，
細看網頁原始檔的各項參數也都沒有更動，想請問應該如何解決呢，謝謝。

樓主熱帖

Hi~

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兔年全勤獎章

13^#

發表於 2014-1-11 11:04 | 只看該作者

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

回復 2# jewayy
加上s就可以了

WEB
1
https://public-cpd.mtnet.gov.tw/pub_newquery/query_national.asp?sel=3&id=79193332&sel01=2&portcode=-&YYYY1=2013&MM1=12&DD1=01&YYYY2=2013&MM2=12&DD2=31&interval=Y
Selection=1
Formatting=None

複製代碼

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

TOP

jewayy

中學生 Rank: 2

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

12^#

發表於 2014-1-11 09:16 | 只看該作者

hi, 請問各位先進是否可以協助。
謝謝您的關注~

Hi~

TOP

jewayy

中學生 Rank: 2

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

11^#

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

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

Hi~

TOP

white5168

中學生 Rank: 2

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

10^#

發表於 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

white5168

中學生 Rank: 2

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

9^#

發表於 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

8^#

發表於 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

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兔年全勤獎章

7^#

發表於 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

lalalada

中學生 Rank: 2

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

6^#

發表於 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

jewayy

中學生 Rank: 2

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

5^#

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

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

Hi~

TOP