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

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

2^#

發表於 2013-10-18 23:32 | 顯示全部帖子

回復 2# stillfish00

你好我不太懂問題出在那但我才跑第一行就出現上圖的問題請問我要怎做呢??

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

3^#

發表於 2013-10-19 07:53 | 顯示全部帖子

回復 4# c_c_lai

你好我是用2003的但我找不到你說的開發人員選項呢

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

4^#

發表於 2013-10-19 08:17 | 顯示全部帖子

回復 icestormer
我手頭上並沒有 2003 的版本，有關這方面
你可能要去請教 GBKEE 版大了，因為他也是
...
c_c_lai 發表於 2013-10-19 08:04

那請問我要怎找他呢? 是寫信給他? (我還沒用過這類的功能~~)

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

5^#

發表於 2013-10-19 21:23 | 顯示全部帖子

本帖最後由 icestormer 於 2013-10-19 21:26 編輯

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")
  MsgBox x.All.tags("h4")(0).innerText

請問一下 MSGBOX這行如果要把結果寫入 L22格內要怎寫呢?(不要顯示在MSGBOX上) 感謝
.Quit
  End With

End Sub

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

6^#

發表於 2013-10-20 09:08 | 顯示全部帖子

回復 12# c_c_lai

問題都解決了感謝各位!

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

7^#

發表於 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

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

8^#

發表於 2013-10-22 19:37 | 顯示全部帖子

回復 17# stillfish00

感謝你及大家的幫忙!

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

9^#

發表於 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

10^#

發表於 2013-10-28 09:32 | 顯示全部帖子

回復 21# icestormer

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