請問這個網頁如何用WEB查詢輸入excel

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

41^# 跳轉到 »

發表於 2013-11-20 11:49 | 只看該作者

回復 35# GBKEE

小弟又換了一個網站
這個網站我會用好幾種方法抓了，只不過這次換成這種方式時，如果直接run結果，會出現如下圖，卡在那一句話
表格("table")(7)是對的，因為有成功過
.document.body.innerHTML = .document.getelementsbytagname("table")(7).outerHTML

如果按F8一步步執行時，有時候會成功，有時候會失敗

Sub test1()
Dim URL As String
ActiveSheet.Cells.Clear
URL = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
With CreateObject("InternetExplorer.Application")
.Visible = True ' 是否顯示 IE
.Navigate URL
Do While .readyState <> 4: DoEvents: Loop
.document.All.tags("option")(7).Selected = True
.document.getelementsbytagname("input")(1).Value = "2330"
.document.getelementsbytagname("input")(4).Click
Do While .readyState <> 4: DoEvents: Loop
.document.body.innerHTML = .document.getelementsbytagname("table")(7).outerHTML
.execwb 17, 2 ' Select All
.execwb 12, 2 ' Copy selection
With ActiveSheet
.Cells.Clear
.[A1].Select
.PasteSpecial Format:="HTML", NoHTMLFormatting:=True
.Cells.EntireColumn.AutoFit ' 自動調整欄寬
End With
.Quit
End With
End Sub

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

42^#

發表於 2013-11-20 11:56 | 只看該作者

回復 40# joey0415
了解！但只是無法明確地看出 Table 的單元，
即 (0)、(1)、(2)、 . . . .等等。
謝謝！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

43^#

發表於 2013-11-20 12:37 | 只看該作者

回復 41# joey0415

Do While .readyState <> 4: DoEvents: Loop

複製代碼

改成

Do While .readyState <> 4 Or .Busy: DoEvents: Loop

複製代碼

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

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

44^#

發表於 2013-11-20 13:13 | 只看該作者

回復 42# c_c_lai

點擊innertext的該單元格，就看到內容呀！

[CA4]那格就知道了，真的清楚，往左一看就知道是指TABLE 1

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

45^#

發表於 2013-11-20 13:19 | 只看該作者

本帖最後由 joey0415 於 2013-11-20 13:27 編輯

回復 43# GBKEE

請問超版，平常都要加載完成，才做下一步！若不完成，可能要找的資料沒有找到會出錯

而BUSY 與完全的差異又在哪呢？請指教一下

如果主的方法是正確的，那以後只有下載有關的語法都要改成這樣，還是只有這網站才要特別如此呢？

謝謝超版
==========================
請問超版：
如果已查詢一個網址後，已將網站內容改成下句
.document.body.innerHTML = .document.getElementsBytagname("table")
，如果貼上後，還要回到當初的畫面再往下查另一個資料，而我又不想再CREAT另一個IE，只想用目前的IE，在不重啟的方式下，如何再轉回當初的畫面，再往下查呢？
謝謝

TOP

c_c_lai