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

靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。