返回列表 上一主題 發帖

轉Web資料問題 !!

回復 10# oliwa

有請高於2003版者幫忙除錯
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

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

回復 9# GBKEE

測試環境  WIN 7 32  位元  OFFICE 2010

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

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

附上小弟可以執行的程式碼:
  1. Sub 巨集1()
  2.    
  3.     Cells.Clear
  4.     SURL = "http://www.twse.com.tw/ch/trading/exchange/FMNPTK/FMNPTKMAIN.php"
  5.     SN = "2002"
  6.     Set MYQT = ActiveSheet.QueryTables.Add(Connection:="URL;" & SURL, Destination:=Range("$A$1"))
  7.     With MYQT
  8.         .PostText = "download=&CO_ID=" & SN
  9.         .Refresh BackgroundQuery:=False
  10.         .Delete
  11.     End With
  12.     Set MYQT = Nothing
  13. End Sub
複製代碼

TOP

回復 12# joey0415

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

TOP

採用 joey0415 的方法 , 資料可以轉出來了 ,
感謝二位的協助 .......

TOP

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題