[發問] 如何將從EXCEL內的資料貼入網站中(過程都由VBA自動執行)

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

23^#

發表於 2013-10-29 21:47 | 只看該作者

我用以下的程式碼出現以上圖的錯(之前不會有這問題) 另外奇怪的是只要我是手動貼入再手動點擊SUMBIT 網站都不會出錯呢不知如果改用FIREFOX 或GOOGLE的會好些?
有人能幫忙嗎?

Sub Test()
  Dim oIe, myData As DataObject, x

  Set myData = New DataObject  '需引用 MS Form Object Library

  With Sheets("自動計算表")
.Range(.[A4], .[F4].End(xlDown)).Copy
  End With
  myData.GetFromClipboard

  Set oIe = CreateObject("internetExplorer.Application")
  With oIe
'.Visible = False
.navigate "http://www.evepraisal.com"
Do While oIe.readystate <> 4: DoEvents: Loop

.document.getElementById("raw_textarea").innerText = myData.GetText '填入
.document.getElementById("result_submit").Click 'submit

Application.Wait Now + TimeValue("00:00:05")  '等待5秒完成

   Set x = .document.getElementById("results").tFoot.all.tags("span")
[L22].Value = x(0).innerText & " : " & x(3).innerText
[L23].Value = x(1).innerText & " : " & x(4).innerText
[L24].Value = x(2).innerText & " : " & x(5).innerText
.Quit
  End With

End Sub

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

22^#

發表於 2013-10-28 09:32 | 只看該作者

回復 21# icestormer

忘了說網站有時可以用有時又不行..不知是不是剛好很多人用在忙中

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

21^#

發表於 2013-10-28 08:44 | 只看該作者

原本都沒有題但昨天跟今左開始如上圖的錯誤然後錯行碼停在

Application.Wait Now + TimeValue("00:00:05") '等待5秒完成
Set x = .document.getElementById("results").tFoot.all.tags("span") 在這一行?

這種問題是網站來不及處理的問題對吧?? 能怎處理呢? 把5秒變10或更長可行??

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

20^#

發表於 2013-10-22 19:37 | 只看該作者

回復 17# stillfish00

感謝你及大家的幫忙!

handsometrowa

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

19^#

發表於 2013-10-22 09:09 | 只看該作者

回復 18# GBKEE
回復 16# stillfish00

先感謝兩位前輩回覆我的問題，(題外話，請問怎麼一口氣回復兩個人阿，我是用複製貼上每次的回覆連結的@@")

昨天查找了一天，有點做白工的感覺，好像無頭蒼蠅  沒有想到G大跟我講的關鍵字我單純搜尋就好，
(昨日用GOOGLE 瀏覽器打上了Document.getElementsByName 跑到原文網站去，怎麼看怎麼不解起因結果)

今天得知兩位，上網爬了一下文章，轉載一下網址，希望給各位分享
原來網站是由每個元素構成的，每個元素都有自己的ID且不重複，(但是這個ID還可以不存在....)
難怪G大每次在抓網站資料的時候，要利用類似陣列元素一個一個抓
以下的網址  轉載了2006年的男丁格爾網站
http://blog.xuite.net/abgne/diary1/5896789#message_header
的簡單解釋，看了一下，稍能略知一二

原始的getElementsByName
我先找到個網站http://blog.longwin.com.tw/2007/08/javascript_set_id_style_method_2007/
GetID 這個用法與stillfish00在16樓回我的依樣，是架設在JAVA 程式語言裡面的
沒有想到，碰個VBA，連其他軟體都要略知一二了

以上先跟各位分享，我慢慢再查找資料。

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兔年全勤獎章

18^#

發表於 2013-10-21 17:00 | 只看該作者

回復 14# handsometrowa
搜尋 CreateObject("InternetExplorer.APPLICATION") 或 getElementById 會有答案的

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

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

17^#

發表於 2013-10-21 16:51 | 只看該作者

回復 15# icestormer

Set x = .document.getElementById("results").tFoot.all.tags("span")
[L22].Value = x(0).innerText & " : " & x(3).innerText
[L23].Value = x(1).innerText & " : " & x(4).innerText
[L24].Value = x(2).innerText & " : " & x(5).innerText

複製代碼

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

16^#

發表於 2013-10-21 16:48 | 只看該作者

本帖最後由 stillfish00 於 2013-10-21 16:50 編輯

回復 14# handsometrowa
http://www.w3school.com.cn/html/index.asp 可以先看一下 HTML 的元素、標籤、屬性
http://www.w3school.com.cn/htmldom/index.asp 再看看節點、訪問方法(這是歸類在javascript下的，但都大同小異)

然後比對看過的範例，再對照原始碼可能會比較有收穫，其實就是在樹中根據特定屬性找節點。

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

15^#

發表於 2013-10-21 14:44 | 只看該作者

Sub Test()
  Dim oIe, myData As DataObject, x

  Set myData = New DataObject  '需引用 MS Form Object Library

  With Sheets("問題")
.Range(.[A4], .[F4].End(xlDown)).Copy
  End With
  myData.GetFromClipboard

  Set oIe = CreateObject("internetExplorer.Application")
  With oIe
'.Visible = False
.navigate "http://www.evepraisal.com"
Do While oIe.readystate <> 4: DoEvents: Loop

.document.getElementById("raw_textarea").innerText = myData.GetText '填入
.document.getElementById("result_submit").Click 'submit

Application.Wait Now + TimeValue("00:00:05")  '等待5秒完成

Set x = .document.getElementById("result_container")

如果想分別捉取紅圈處亖個 1 total sell value  2 total buy value 3 total volume 分別存入 L22 L23 L24 格中[/size]''

請問要怎改呢? 感謝~

MsgBox x.All.tags("h4")(0).innerText
.Quit
  End With

End Sub