返回列表 上一主題 發帖

Sendkey問題

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-3 17:10 | 顯示全部帖子

Sendkey問題

利用VBA開啓Internet Explorer, 想Copy and Paste 至某worksheet
  1. Sub callraceresult()
  2. Dim myIE As Object
  3. Dim mydate, myrace, myvenue

  5. mydate = Sheet1.Cells(4, 1)
  6. myrace = Sheet1.Cells(4, 2)
  7. myvenue = Sheet1.Cells(4, 3)

  9. Set myIE = CreateObject("InternetExplorer.application")
  10. myIE.Visible = True
  11. myIE.navigate xxxxxxxx

  13. While myIE.busy
  14. DoEvents
  15. Wend

  17. myIE.SendKeys "^A" <=這裡出錯了 Error 438, 物件不支援此方法
  18. myIE.SendKeys "^C"

  20. End Sub
複製代碼
不論輸入什麼指令, sendkey部份都是出錯, 還有應該怎樣把資料抄出特定worksheet?
謝謝
收藏 分享
80 字節以內
不支持自定義 Discuz! 代碼

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
2#
發表於 2011-10-3 20:05 | 顯示全部帖子
G老師的sendkey,只能在VBA介面使用, 我希望在新開的Internet Explorer用, copy and paste 網頁中的所有資料
謝謝
80 字節以內
不支持自定義 Discuz! 代碼

TOP

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
3#
發表於 2011-10-3 20:53 | 顯示全部帖子
我在網上找到這個
myIE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
myIE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT

再找worksheet paste
測試暫時有效
80 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題