返回列表 上一主題 發帖

[發問] 執行階段錯誤 '438': 物件不支援此屬性或方法

回復 10# av8d
因是內部網頁,無法為你測試.
你自行試試使用On Error Resume Next 忽略錯誤.可否成功.

如果會跳出網頁訊息
試試看
  1. .Document.Focus
  2. Application.SendKeys ("~") '按下 Enter 鍵
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

本帖最後由 av8d 於 2014-8-19 16:30 編輯

回復 11# GBKEE


    沒有作用~

我在想會不會是因為
Private Sub CommandButton1_Click()
的關係~

請教版主~這段的意思  .Document.Focus

TOP

回復 12# av8d
  1. .Document.Focus
複製代碼
網頁文件主體的選定

JavaScript 徹底剖析 電子書(全書下載)
的3-17.htm的原始檔 用小作家存檔(3-17.htm)
  1. <HTML>
  2. <HEAD>
  3. <TITLE>計算體重</TITLE>
  4. </HEAD>
  5. <BODY>
  6. <SCRIPT Language="JavaScript">
  7. //彈出輸入視窗
  8. height=prompt("請問您的身高?",170)
  9. if(height) //判斷是否有回傳資料
  10. {
  11. //呼叫計算體重的函式
  12. weight=test(height)
  13. //彈出標準體重視窗
  14. alert("您的標準體重"+weight+"公斤")
  15. }
  16. //計算體重函式
  17. function test(height)
  18. {
  19. var weight=height-110
  20. //傳回函式的運算結果
  21. return weight
  22. }
  23. </SCRIPT>
複製代碼
3-17.htm的原始檔, 存檔(3-17.htm),執行試試看
  1. Option Explicit
  2. Sub EX()
  3.     Dim URL As String
  4.   ' Set_FormDLL
  5.     URL = "D:\3-17.htm"  '
  6.     With CreateObject("InternetExplorer.Application")
  7.         .Navigate URL
  8.         .Visible = True
  9.         
  10.         Application.Wait Time + #12:00:01 AM# '等候一秒
  11.         Application.SendKeys "{DEL}", True '按下 DEL 鍵
  12.         Application.SendKeys "ABC", True   '輸入 ABC 鍵
  13.         Application.Wait Time + #12:00:01 AM# '等候一秒
  14.         
  15.         Application.SendKeys ("~") '按下 Enter 鍵

  16.         '.Quit
  17.     End With
  18. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

本帖最後由 av8d 於 2014-8-20 09:11 編輯

回復 13# GBKEE

%
    謝謝版主百忙之中抽空的詳細的jsp解答,完成了90%,我會努力的!

最近發現一個疑問
進入後,讓他自動導入一個超連結,但是他的超連結不是網址
卻是 javascript:;

附上原始檔
jsp網頁.rar (600 Bytes)

TOP

回復 13# GBKEE


    我想應該和ch4 事件處理器有關~努力學習中!

TOP

本帖最後由 av8d 於 2014-8-20 11:40 編輯

回復 13# GBKEE


    找到了~帳號密碼是從這裡登入
可是帳號密碼和確定按鈕的名稱有點怪怪的
附上原始檔
jsp網頁2.rar (2.34 KB)

帳號密碼都丟不上去,確認按鈕找不到name
--------------------
帳號好像是userNameTD
密碼好像是passwordTD
但是找不到確定按鈕

TOP

回復 11# GBKEE


    目前只剩這個問題~如何讓開啟網頁後~讓網頁為最上層
我按照大大使用.Document.Focus
但是EXCEL卻還是在最上層~然後接下來按ENTER的動作就無法繼續執行.
再次謝謝版主.

TOP

本帖最後由 GBKEE 於 2014-8-20 15:46 編輯

回復 17# av8d
如何讓開啟網頁後~讓網頁為最上層

你的問題是 login 成功 -> 開啟一新的IE的視窗,無法取得(新的IE)的資料(元素)



如 機關內部人事業務系統-登入 完成 (登入要 記住一天 以上),
  1. With IE
  2.         .Navigate URL 'login
  3.         .Visible = True
  4.         Do While .Busy Or .readyState <> 4:         Loop
  5.         .Document.getElementsByTagName("OPTION")(2).Selected = True '記住一天
  6.         '或是
  7.         '.Document.getElementsByTagName("SELECT")(0).Value = "week" '記住一個月
  8.    
複製代碼
程式碼直接進入 機關內部人事業務系統的iIE ,不必由登入網頁進入
機關內部人事業務系統的URL
可如圖 : 在IE主體上,按下右鍵, 選取內容,內容的視窗,滑鼠複製URL
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 18# GBKEE


    謝謝版大~
目前剩下唯一問題~
每次開啟後網頁總是在EXCEL下層~
導致訊息視窗會存在的問題
(有使用.Document.Focus)
每個位子也測試過,皆無效

TOP

回復 19# av8d
這是內部網頁.幫不上忙.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題