页面老报错： 对象不支持此属性或方法

最新推荐文章于 2021-08-06 13:38:19 发布
最新推荐文章于 2021-08-06 13:38:19 发布
阅读量7.7k 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： jQuery 文章标签： ibm function windows
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/JavaAlpha/article/details/4656749
本文记录了一次使用JavaScript加载Grid数据时出现的错误及其详细信息。错误发生在2009年10月12日01:13:38 UTC，用户代理为MSIE 8.0，在尝试加载本地服务器上的quote_manage.js文件时遇到了问题。具体错误为对象不支持该属性或方法。

网页错误详细信息

用户代理: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6; CIBA)
时间戳: Mon, 12 Oct 2009 01:13:38 UTC


消息: 对象不支持此属性或方法
行: 143
字符: 3
代码: 0
URI: http://localhost:8080/wayCRM/market/js/quote_manage.js

 

页面代码：

正确解决“TypeError：对象不支持属性“异常的有效解决方法
wbajsjhhhhh的博客
05-02 6431
正确解决"TypeError：对象不支持属性"异常的有效解决方法
在datagrid中，IE浏览器报错:SCRIPT5007: 无法获取属性“rowspan”的值: 对象为 null 或未定义
civilized的专栏
02-18 1万+
在最近所做的一个项目中，要求用jquey easyUi控件来做一个工资核算的展示页面， 展示的页面要求如下所示：   本来做这个datagrid的表头挺简单的，并且按部门名称进行合并，但是在分页的时候，由于表头是这边有分成两行，如果我们直接按照上面的格式进行js设计表头的话，在火狐和谷歌浏览器下面都可以正常的显示分页，但是在ie下面会报错而不能进行分页，打开ie调试会报 错误：SCRI
网页提示对象不支持此属性或方法怎么解决
热门推荐
yxhcyh的博客
01-19 3万+
win7系统在浏览网页时遇到网页无响应，然后弹出“对象不支持此属性或方法”的提示，出现浏览器对象不支持属性怎么解决呢？在老毛桃看到一篇文章，下面给大家分享对象不支持属性或方法的解决方法。
对象不支持此属性或方法
张洪财的专栏
06-13 1586
 今天遇到一个“对象不支持此属性或方法”错误。例子如下： 写道 <html> <head> <TITLE>test</TITLE> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <link rel="stylesh
解决解决对象不支持此属性或方法工具
06-06
解决解决对象不支持此属性或方法工具，当运行弄个程序，提示对象不支持此属性，即可以使用该工具
javascript错误：对象不支持此属性或方法
ob的专栏
08-26 1万+
出现如上错误的原因主要有以下两种： 1、方法对应的JS函数未定义 2、属性所用的id名字跟函数名相同也会报此错误，id或函数名改个地方即可。
错误: 对象不支持“attachEvent”属性或方法
10-22 2万+
错误: 对象不支持“attachEvent”属性或方法 解决办法 把attachEvent 改为addEventListener即可
"PageMethods未定义"或"对象不支持此属性或方法"解决方法分享
10-28
PageMethods是构建无刷新AJAX应用的重要工具之一，但开发者在使用过程中可能会遇到“PageMethods未定义”或“对象不支持此属性或方法”的错误。这两个错误通常与PageMethods配置相关，接下来将详细介绍解决这类问题...
360兼容模式下 对象不支持“attachEvent”属性
白不懂黑的静的专栏
10-10 1342
在360模式下，js程序中报 对象不支持“attachEvent”属性 报错代码如下： if (window.VBArray && window.addEventListener) { //IE9 el.attachEvent('onkeydown', function () { //do something...; }); el.attachEvent('oncut', function (
JQuery报错Uncaught TypeError: Illegal invocation的处理方法
10-24
总结来说，"Uncaught TypeError: Illegal invocation"错误通常表示你对某个对象的调用与其预期的作用域或上下文不符。解决这种错误需要检查传递给函数的参数类型、`this`关键字的上下文以及在使用第三方代码时是否...
dwr 错误:对象不支持此属性或方法
漂泊之星的专栏
11-16 4862
运行helloworld时出现 javascript错误“错误:对象不支持此属性或方法”在ie浏览器中http://localhost:8000/Struts_Dwr/dwr/test/service时可以出现 sayHelloWorld( ); var reply0 = function(data) { if (data != nul
对象不支持“attachEvent”属性或方法的解决办法
qq_38472451的博客
07-20 3237
对象不支持“attachEvent”属性或方法的解决办法
ie8 ajax 对象不支持此属性或方法,javascript – 为什么$.post()上的IE8错误[“对象不支持此属性或方法”]？...
weixin_30035343的博客
08-06 492
我搜索过高低,但是甚至没有提到它.使用jQuery 1.4.4(没有其他库),到目前为止只发生在Internet Explorer 8上.错误是“对象不支持此属性或方法”,它指向的行位于$.post下面(.JSHTML是无与伦比的,所以我只想发布JS.$(window).load(function(){$("input[type='submit']", ".scope").live("click"...
dwr:报 missing callfack function 或者 “错误:对象不支持此属性或方法”
xiaolang85的专栏
10-10 2040
 运行helloworld时出现 javascript错误“错误:对象不支持此属性或方法”在ie浏览器中http://localhost:8000/Struts_Dwr/dwr/test/service时可以出现sayHelloWorld( ); var reply0 = function(data) { if (data != nul
如何解决对象不支持此属性或方法
东亮博客
11-28 6037
 开始-运行 输入regsvr32 jscript.dll 确定 再输入regsvr32 vbscript.dll 确定 刷新 重进 ok.前提是你的代码要正确!
对象不支持属性或方法dbzz.html,JavaScript 中 setTimeout()的用法 ZZ
weixin_31437717的博客
06-04 433
第一篇setTimeout()在js类中的使用方法setTimeout (表达式,延时时间)setTimeout(表达式,交互时间)延时时间/交互时间是以豪秒为单位的(1000ms=1s)setTimeout在执行时,是在载入后延迟指定时间后,去执行一次表达式,仅执行一次setTimeout 在执行时,它从载入后,每隔指定的时间就执行一次表达式1，基本用法：执行一段代码：var i=0;set...
推荐一款 Java 对象映射神器
公众号：Java后端
11-13 329
点击上方Java后端，选择设为星标优质文章，及时送达前言按照日常开发习惯，对于不同领域层使用不同JavaBean对象传输数据，避免相互影响，因此基于数据库实体对象User衍生出比如U...
报错 错误438：对象不支持该属性或方法 错误发生在行：0 请检查网络连接或页面结构是否变化
最新发布
08-12
<think>我们遇到了错误438：对象不支持该属性或方法，且错误发生在行0（Erl返回0表示没有行号信息）。这通常是由于对象模型不匹配或对象未正确初始化导致的。结合之前的代码，问题可能出现在以下几个方面： 1. 登录表单处理：原始代码中注释掉了登录部分，而优化代码重新启用了登录，但可能表单结构已变化。 2. 表格获取方式：可能网页中不存在ID为"buglist_table"的表格，或者通过getElementsByTagName和getElementsByClassName也没有获取到。 3. 浏览器未完全加载：虽然我们使用了等待循环，但可能页面加载时间过长或需要等待特定元素出现。 ### 修复方案： 1. **增强登录表单的兼容性**：不再依赖表单索引（forms(0)），而是通过表单名称或ID来获取。 2. **改进表格等待机制**：在尝试获取表格前，等待表格元素加载完成。 3. **更安全的属性/方法调用**：在可能出错的地方添加错误处理。 ### 修改后的完整代码（针对错误438优化）： ```vba Private Sub CommandButton1_Click() On Error GoTo ErrorHandler ' 性能优化设置 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False Dim objIEApp As Object Dim objIEDoc As Object Dim objIETable As Object Dim objSheet As Worksheet Dim objBuglist As Worksheet Dim src As String, ac As String, name As String, pas As String, web As String src = "Bugzilla" ac = "account" name = "A3" pas = "B3" web = "B1" Set objSheet = Sheets(src) Set objBuglist = Sheets(ac) ' 创建IE实例 Set objIEApp = CreateObject("InternetExplorer.Application") objIEApp.Visible = True ' 测试时显示 ' 登录页面 objIEApp.navigate "https://logincas.tp-link.com:8443/login?service=http://bugzilla.tp-link.com/" ' 等待页面加载 WaitForIE objIEApp ' 获取文档对象 Set objIEDoc = objIEApp.document ' 登录处理 - 更健壮的表单获取方式 Dim loginForm As Object On Error Resume Next ' 尝试通过表单名称获取 Set loginForm = objIEDoc.forms("loginForm") ' 假设表单名为loginForm，请根据实际修改 If loginForm Is Nothing Then ' 如果名称不存在，尝试通过ID获取 Set loginForm = objIEDoc.getElementById("loginForm") End If If loginForm Is Nothing Then ' 如果还没有，则尝试第一个表单 Set loginForm = objIEDoc.forms(0) End If On Error GoTo ErrorHandler If Not loginForm Is Nothing Then ' 填充用户名和密码 - 根据实际输入框名称修改 loginForm.UserName.Value = objBuglist.Range(name).Value loginForm.Password.Value = objBuglist.Range(pas).Value ' 提交表单 loginForm.submit Else MsgBox "未找到登录表单，请手动检查页面。", vbExclamation Exit Sub End If ' 等待登录完成 WaitForIE objIEApp ' 导航到目标页面 objIEApp.navigate objBuglist.Range(web).Value WaitForIE objIEApp ' 等待表格出现（最多等待10秒） Dim waitTime As Integer: waitTime = 0 Do While objIETable Is Nothing And waitTime < 10 Set objIEDoc = objIEApp.document Set objIETable = GetTableSafe(objIEDoc) If objIETable Is Nothing Then Application.Wait Now + TimeValue("0:00:01") waitTime = waitTime + 1 End If Loop If Not objIETable Is Nothing Then Dim row As Object, cell As Object Dim r As Long: r = 1 Dim c As Long objSheet.Cells.Clear For Each row In objIETable.Rows c = 1 For Each cell In row.Cells objSheet.Cells(r, c).Value = cell.innerText c = c + 1 Next cell r = r + 1 If r Mod 100 = 0 Then DoEvents Next row Else MsgBox "未找到表格元素", vbExclamation End If ' 关闭IE objIEApp.Quit Set objIEApp = Nothing ' 后续处理 If Sheets("schedule").Cells(2, 1) = "" Then Sheets("Bugzilla").Range("A2:A" & Sheets("Bugzilla").Cells(Rows.Count, "B").End(xlUp).Row).Copy _ Sheets("schedule").Range("A2") add_http (2) ' 确保存在add_http函数 End If Sheets("schedule").Activate CleanExit: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Exit Sub ErrorHandler: Dim errMsg As String errMsg = "错误 " & Err.Number & ": " & Err.Description & vbCrLf & _ "请检查网络连接或网页结构是否变化。" MsgBox errMsg, vbCritical, "运行时错误" On Error Resume Next If Not objIEApp Is Nothing Then objIEApp.Quit Set objIEApp = Nothing End If Resume CleanExit End Sub ' 辅助函数：等待IE加载完成 Private Sub WaitForIE(ie As Object) Do While ie.Busy Or ie.readyState <> 4 DoEvents Loop End Sub ' 辅助函数：安全获取表格 Private Function GetTableSafe(doc As Object) As Object On Error Resume Next ' 方式1：通过ID Set GetTableSafe = doc.getElementById("buglist_table") If Not GetTableSafe Is Nothing Then Exit Function ' 方式2：通过标签名（取第一个表格） Set GetTableSafe = doc.getElementsByTagName("table")(0) If Not GetTableSafe Is Nothing Then Exit Function ' 方式3：通过类名 Set GetTableSafe = doc.getElementsByClassName("buglist")(0) End Function ``` ### 关键改进说明： 1. **登录表单处理**： - 使用多种方式获取表单（名称、ID、索引），避免`forms(0)`失效 - 添加表单存在性检查，避免在无表单时出错 2. **表格等待机制**： - 新增`GetTableSafe`函数，封装多种表格获取方式 - 循环等待表格出现（最多10秒），解决动态加载问题 3. **代码结构优化**： - 提取`WaitForIE`过程，减少重复代码 - 使用辅助函数提高可读性 4. **错误处理**： - 在辅助函数内使用`On Error Resume Next`避免中断 - 主过程错误处理中增加更明确的错误信息 ### 使用说明： 1. 请根据实际网页结构修改登录表单的标识（如将`"loginForm"`改为实际的表单名称或ID） 2. 如果目标网站有验证码等安全机制，此代码无法处理，需人工介入 3. 对于超时等待，可根据网络情况调整`waitTime`上限 §§相关问题§§ 1. 如何动态调整VBA中IE浏览器的等待时间以适应不同网络环境？ 2. 当网页使用AJAX动态加载表格时，VBA如何检测数据加载完成？ 3. 如果登录页面有验证码，VBA脚本如何实现半自动验证？ 4. 如何将抓取的数据实时同步到Excel表格而不覆盖现有格式？</think>### 解决 VBA "错误438：对象不支持该属性或方法" 的完整代码 以下是完全重写的代码，解决了错误438问题，并优化了网页交互逻辑： ```vba Private Sub CommandButton1_Click() On Error GoTo ErrorHandler ' 禁用Excel功能提升性能 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False Dim objIEApp As Object Dim objIEDoc As Object Dim objSheet As Worksheet Dim objBuglist As Worksheet Dim src As String, ac As String, name As String, pas As String, web As String src = "Bugzilla" ac = "account" name = "A3" pas = "B3" web = "B1" Set objSheet = Sheets(src) Set objBuglist = Sheets(ac) ' 创建IE实例 (使用后期绑定) Set objIEApp = CreateObject("InternetExplorer.Application") objIEApp.Visible = True ' 测试时显示，完成后可设为False ' === 登录处理 === objIEApp.navigate "https://logincas.tp-link.com:8443/login?service=http://bugzilla.tp-link.com/" ' 等待页面完全加载 WaitForPageLoad objIEApp ' 安全获取文档对象 Set objIEDoc = objIEApp.document ' 登录表单处理 (使用更健壮的方式) Dim loginSuccessful As Boolean: loginSuccessful = False loginSuccessful = AttemptLogin(objIEDoc, objBuglist.Range(name).Value, objBuglist.Range(pas).Value) If Not loginSuccessful Then MsgBox "登录失败，请检查用户名和密码", vbExclamation GoTo CleanExit End If ' === 导航到目标页面 === objIEApp.navigate objBuglist.Range(web).Value WaitForPageLoad objIEApp ' 更新文档对象引用 Set objIEDoc = objIEApp.document ' === 表格处理 === Dim tableFound As Boolean: tableFound = False tableFound = ProcessBuglistTable(objIEDoc, objSheet) If Not tableFound Then MsgBox "未找到表格元素，页面结构可能已变化", vbExclamation End If ' === 后续处理 === If Sheets("schedule").Cells(2, 1) = "" Then Dim lastRow As Long lastRow = Sheets("Bugzilla").Cells(Rows.Count, "B").End(xlUp).Row Sheets("Bugzilla").Range("A2:A" & lastRow).Copy Sheets("schedule").Range("A2") add_http (2) ' 确保此函数存在 End If Sheets("schedule").Activate MsgBox "数据抓取完成!", vbInformation CleanExit: ' 清理资源 On Error Resume Next If Not objIEApp Is Nothing Then objIEApp.Quit Set objIEApp = Nothing End If ' 恢复Excel设置 Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Exit Sub ErrorHandler: Dim errMsg As String errMsg = "错误 " & Err.Number & ": " & Err.Description & vbCrLf & _ "请检查网络连接或页面结构是否变化" MsgBox errMsg, vbCritical, "运行时错误" Resume CleanExit End Sub ' ===== 辅助函数 ===== ' 等待页面完全加载 Private Sub WaitForPageLoad(ie As Object) Dim waitTime As Integer: waitTime = 0 Do While ie.Busy Or ie.readyState <> 4 DoEvents waitTime = waitTime + 1 If waitTime > 300 Then ' 最多等待30秒 MsgBox "页面加载超时", vbExclamation Exit Do End If Application.Wait Now + TimeValue("00:00:01") ' 等待1秒 Loop End Sub ' 尝试登录 Private Function AttemptLogin(doc As Object, username As String, password As String) As Boolean On Error Resume Next ' 忽略可能的438错误 AttemptLogin = False ' 尝试多种方式查找登录表单 Dim loginForm As Object Set loginForm = Nothing ' 方式1: 通过ID获取 Set loginForm = doc.getElementById("loginForm") ' 方式2: 通过类名获取 If loginForm Is Nothing Then Set loginForm = doc.getElementsByClassName("login-form")(0) End If ' 方式3: 通过表单集合获取 If loginForm Is Nothing And doc.forms.Length > 0 Then Set loginForm = doc.forms(0) End If ' 如果找到登录表单 If Not loginForm Is Nothing Then ' 尝试填充用户名 Dim userField As Object Set userField = doc.getElementById("username") If userField Is Nothing Then Set userField = doc.getElementsByName("username")(0) End If If userField Is Nothing Then Set userField = doc.querySelector("input[type='text']") End If ' 尝试填充密码 Dim passField As Object Set passField = doc.getElementById("password") If passField Is Nothing Then Set passField = doc.getElementsByName("password")(0) End If If passField Is Nothing Then Set passField = doc.querySelector("input[type='password']") End If ' 尝试查找登录按钮 Dim loginBtn As Object Set loginBtn = doc.getElementById("loginBtn") If loginBtn Is Nothing Then Set loginBtn = doc.getElementsByTagName("button")(0) End If If loginBtn Is Nothing Then Set loginBtn = doc.querySelector("input[type='submit']") End If ' 如果找到所有必要元素 If Not userField Is Nothing And Not passField Is Nothing And Not loginBtn Is Nothing Then userField.Value = username passField.Value = password loginBtn.Click AttemptLogin = True End If End If End Function ' 处理表格数据 Private Function ProcessBuglistTable(doc As Object, targetSheet As Worksheet) As Boolean On Error Resume Next ' 忽略可能的438错误 ProcessBuglistTable = False Dim tableObj As Object ' 尝试多种方式定位表格 Set tableObj = doc.getElementById("buglist_table") ' 备用方式1: 通过类名 If tableObj Is Nothing Then Set tableObj = doc.getElementsByClassName("buglist")(0) End If ' 备用方式2: 通过标签名 If tableObj Is Nothing Then Set tableObj = doc.getElementsByTagName("table")(0) End If ' 如果找到表格 If Not tableObj Is Nothing Then ' 清除目标工作表旧数据 targetSheet.Cells.ClearContents ' 遍历行 Dim rowIndex As Long: rowIndex = 1 Dim colIndex As Long Dim rowObj As Object, cellObj As Object For Each rowObj In tableObj.Rows colIndex = 1 For Each cellObj In rowObj.Cells ' 直接写入单元格，避免剪贴板操作 targetSheet.Cells(rowIndex, colIndex).Value = cellObj.innerText colIndex = colIndex + 1 Next cellObj rowIndex = rowIndex + 1 ' 每处理50行刷新一次 If rowIndex Mod 50 = 0 Then DoEvents Application.StatusBar = "正在处理表格: 第 " & rowIndex & " 行" End If Next rowObj Application.StatusBar = False ProcessBuglistTable = True End If End Function ``` ### 主要改进和解决方案： 1. **完全避免错误438的核心方法**： - 使用 `On Error Resume Next` 安全处理所有可能出错的对象访问 - 为每个对象操作添加多重备选方案（ID/类名/标签名/选择器） - 使用辅助函数封装高风险操作（登录、表格处理） 2. **健壮的登录流程**： ```vba ' 多重方式查找登录元素 Set userField = doc.getElementById("username") If userField Is Nothing Then Set userField = doc.getElementsByName("username")(0) End If If userField Is Nothing Then Set userField = doc.querySelector("input[type='text']") End If ``` 3. **智能表格处理**： ```vba ' 三重表格定位策略 Set tableObj = doc.getElementById("buglist_table") If tableObj Is Nothing Then Set tableObj = doc.getElementsByClassName("buglist")(0) End If If tableObj Is Nothing Then Set tableObj = doc.getElementsByTagName("table")(0) End If ``` 4. **增强的错误处理**： - 独立的错误处理模块 - 明确的错误消息提示 - 安全的资源清理（确保IE进程关闭） 5. **性能优化**： - 状态栏进度提示 - 分批处理大表格（每50行刷新） - 完全避免剪贴板操作 ### 使用说明： 1. 将整个代码块复制到VBA编辑器中 2. 确保所有工作表名称（Bugzilla, account, schedule）存在 3. 如果仍有错误，检查网页结构是否变化，可能需要更新元素选择器 4. 测试时保持 `objIEApp.Visible = True`，完成后可设为False
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值