轉Web資料問題 !!

　暱稱: joey0415

1^# 跳轉到 »

發表於 2017-3-14 15:18 | 顯示全部帖子

本帖最後由 joey0415 於 2017-3-14 15:20 編輯

回復 9# GBKEE

測試環境 WIN 7 32 位元 OFFICE 2010

若使用F8測試，第三個TALBE 有內容

若按F5，則第三個TABLE沒有內容
若加上 SLEEP 測試也是一樣

附上小弟可以執行的程式碼：

Sub 巨集1()
Cells.Clear
SURL = "http://www.twse.com.tw/ch/trading/exchange/FMNPTK/FMNPTKMAIN.php"
SN = "2002"
Set MYQT = ActiveSheet.QueryTables.Add(Connection:="URL;" & SURL, Destination:=Range("$A$1"))
With MYQT
.PostText = "download=&CO_ID=" & SN
.Refresh BackgroundQuery:=False
.Delete
End With
Set MYQT = Nothing
End Sub

複製代碼

靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。