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

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

1^# 跳轉到 »

發表於 2012-8-8 16:15 | 顯示全部帖子

回復 1# jewayy

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

2^#

發表於 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有什麼不一樣的話
就是"?"了^.<

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。