下載期貨資料至工作表 QueryTable出錯

3^# 跳轉到 »

發表於 2015-6-7 06:56 | 只看該作者

回復 2# GBKEE
GBKEE 版大，許久未予請教。
當我使用 With New InternetExplorer
在執行時會產生 ---
" 編譯錯誤：使用者自訂型態尚未定義 "
是否我在設定引用項目中少加入了哪一項？

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2015-6-2 17:10 | 只看該作者

本帖最後由 GBKEE 於 2015-6-2 17:11 編輯

回復 1# cat9350621
WebAddress 沒給
WebAddress = "http://www.taifex.com.tw/chinese/3/3_1_1.asp" 就沒有錯誤
但不傳回指定的契約

試試看

Option Explicit
Sub text()
Dim myItems As Object, myItem As Object
With New InternetExplorer
.Visible = True
.Navigate "http://www.taifex.com.tw/chinese/3/3_1_1.asp"
Do Until .readyState = READYSTATE_COMPLETE: Loop
With .Document.myform
.COMMODITY_IDt.Value = "T5F" '設定契約
End With
Set myItems = .Document.getElementsByTagName("Input")
For Each myItem In myItems
If myItem.Value = "送出查詢" Then
myItem.Click '按下送出查詢按鈕
End If
Next
Do Until .readyState = READYSTATE_COMPLETE: DoEvents: Loop
Application.Wait Now + #12:00:01 AM#
Set myItems = .Document.getElementsByTagName("table")
.Document.body.innerHTML = myItems(2).outerHTML
.ExecWB 17, 2 ' Select All
.ExecWB 12, 2 ' Copy selection
.Quit
End With
With Worksheets("臨時資料2")
.Cells.Clear
.Range("A1").Select
.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
End With
End Sub

複製代碼

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

靜思自在 : 甘願做、歡喜受。