執行階段錯誤 '438': 物件不支援此屬性或方法 - Excel程式區

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

11^# 跳轉到 »

發表於 2014-8-19 15:13 | 只看該作者

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

如果會跳出網頁訊息
試試看

.Document.Focus
Application.SendKeys ("~") '按下 Enter 鍵

複製代碼

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

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

12^#

發表於 2014-8-19 16:20 | 只看該作者

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

回復 11# GBKEE

沒有作用~

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

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

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

13^#

發表於 2014-8-19 21:10 | 只看該作者

回復 12# av8d

.Document.Focus

複製代碼

網頁文件主體的選定

JavaScript 徹底剖析電子書(全書下載)
的3-17.htm的原始檔用小作家存檔(3-17.htm)

<HTML>
<HEAD>
<TITLE>計算體重</TITLE>
</HEAD>
<BODY>
<SCRIPT Language="JavaScript">
//彈出輸入視窗
height=prompt("請問您的身高？",170)
if(height) //判斷是否有回傳資料
{
//呼叫計算體重的函式
weight=test(height)
//彈出標準體重視窗
alert("您的標準體重"+weight+"公斤")
}
//計算體重函式
function test(height)
{
var weight=height-110
//傳回函式的運算結果
return weight
}
</SCRIPT>

複製代碼

3-17.htm的原始檔, 存檔(3-17.htm),執行試試看

Option Explicit
Sub EX()
Dim URL As String
' Set_FormDLL
URL = "D:\3-17.htm" '
With CreateObject("InternetExplorer.Application")
.Navigate URL
.Visible = True
Application.Wait Time + #12:00:01 AM# '等候一秒
Application.SendKeys "{DEL}", True '按下 DEL 鍵
Application.SendKeys "ABC", True '輸入 ABC 鍵
Application.Wait Time + #12:00:01 AM# '等候一秒
Application.SendKeys ("~") '按下 Enter 鍵
'.Quit
End With
End Sub

複製代碼

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

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

14^#

發表於 2014-8-20 08:41 | 只看該作者

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

回復 13# GBKEE

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

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

附上原始檔

jsp網頁.rar (600 Bytes)

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

15^#

發表於 2014-8-20 09:14 | 只看該作者

回復 13# GBKEE

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

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

16^#

發表於 2014-8-20 11:23 | 只看該作者

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

回復 13# GBKEE

找到了~帳號密碼是從這裡登入
可是帳號密碼和確定按鈕的名稱有點怪怪的
附上原始檔

jsp網頁2.rar (2.34 KB)

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

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

17^#

發表於 2014-8-20 14:28 | 只看該作者

回復 11# GBKEE

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

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

18^#

發表於 2014-8-20 15:11 | 只看該作者

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

回復 17# av8d

如何讓開啟網頁後~讓網頁為最上層

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

如機關內部人事業務系統-登入完成 (登入要記住一天以上),

With IE
.Navigate URL 'login
.Visible = True
Do While .Busy Or .readyState <> 4: Loop
.Document.getElementsByTagName("OPTION")(2).Selected = True '記住一天
'或是
'.Document.getElementsByTagName("SELECT")(0).Value = "week" '記住一個月

複製代碼

程式碼直接進入機關內部人事業務系統的iIE ,不必由登入網頁進入
機關內部人事業務系統的URL
可如圖 : 在IE主體上,按下右鍵, 選取內容,內容的視窗,滑鼠複製URL

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

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

19^#

發表於 2014-8-21 08:41 | 只看該作者

回復 18# GBKEE

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

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

20^#

發表於 2014-8-21 08:59 | 只看該作者

回復 19# av8d
這是內部網頁.幫不上忙.

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

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]