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

123 下一頁

返回列表下一主題上一主題發帖

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

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

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

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

14^#

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

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

回復 13# GBKEE

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

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

附上原始檔

jsp網頁.rar (600 Bytes)

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

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

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

10^#

發表於 2014-8-19 14:54 | 只看該作者

回復 8# GBKEE

請問版主如果會跳出網頁訊息，我該如何自動關閉呢？

TOP

av8d

大學生 Rank: 4

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

9^#

發表於 2014-8-19 14:05 | 只看該作者

本帖最後由 av8d 於 2014-8-19 14:25 編輯

回復 8# GBKEE

可能是已經登入了~但是在按一次~他會找不到輸入帳號和密碼的地方，
他會直接前往帳號密碼正確的頁面，所以他會出現找不到帳號欄位的錯誤，
因此我使用忽略On Error Resume Next解決可否？謝謝版主！

TOP

GBKEE