使用Set但出现错误'Application-defined or object-defined error‘
使用Set时出现错误'Application-defined or object-defined error'是指在VBA代码中使用Set语句时出现的错误。这个错误通常发生在以下几种情况下：
- 对象未正确声明或初始化：在使用Set语句之前，必须先声明并初始化对象。如果对象未正确声明或初始化，就会出现该错误。可以通过使用New关键字来创建对象实例，或者使用已存在的对象进行赋值。
- 对象名称错误：确保使用Set语句时，对象的名称正确无误。如果对象名称拼写错误或者与其他变量名冲突，就会出现该错误。
- 对象类型不匹配：在使用Set语句时，要确保将对象赋值给正确的对象类型。如果对象类型不匹配，就会出现该错误。可以通过查看对象的定义或文档来确定正确的对象类型。
- 对象不存在：在使用Set语句之前，要确保对象已经存在。如果对象不存在，就会出现该错误。可以通过检查对象是否正确创建或者是否在正确的作用域内来解决该问题。
针对这个错误，可以按照以下步骤进行排查和解决：
- 检查代码中的Set语句，确保对象的声明和初始化正确无误。
- 确保对象的名称拼写正确，并且与其他变量名没有冲突。
- 确保将对象赋值给正确的对象类型。
- 确保对象已经存在，并且在正确的作用域内。
如果以上步骤都没有解决问题，可以尝试使用调试工具逐行调试代码，查看具体出错的位置和原因。另外，也可以搜索相关错误信息，查找其他开发者遇到类似问题的解决方案。
腾讯云相关产品和产品介绍链接地址：
腾讯云函数（云原生、后端开发）：https://cloud.tencent.com/product/scf
腾讯云数据库（数据库）：https://cloud.tencent.com/product/cdb
腾讯云服务器（服务器运维）：https://cloud.tencent.com/product/cvm
腾讯云音视频处理（音视频、多媒体处理）：https://cloud.tencent.com/product/mps
腾讯云人工智能（人工智能）：https://cloud.tencent.com/product/ai
腾讯云物联网（物联网）：https://cloud.tencent.com/product/iotexplorer
腾讯云移动开发（移动开发）：https://cloud.tencent.com/product/mab
腾讯云对象存储（存储）：https://cloud.tencent.com/product/cos
腾讯云区块链（区块链）：https://cloud.tencent.com/product/baas
腾讯云元宇宙（元宇宙）：https://cloud.tencent.com/product/mu
相关·内容
3回答
or object-defined error29 Application-defined or object-defined error384 Application-defined or object-defined error3
浏览 7提问于2021-09-29得票数 5
我曾尝试使用Set来帮助我填充质量控制表，但出现了错误10o4。它对我来说似乎是正确的，所以我不知道如何纠正它。所以请看一看，如果你有什么想法，请留下评论。谢谢!TargetCell = .Cells(i, TargetColumn) <==== Here comes the error Set TargetType = .Cells(i, 17)
浏览 5提问于2016-07-06得票数 0
回答已采纳
2回答
Set rng = ws.Range("A1", ws.Range("A1").End(xlDown))获取运行时错误“1004”：**Set rng = ws.Range("A1", ws.Range("A1").End(xlDown))**
请帮帮忙
浏览 5提问于2014-09-10得票数 2
回答已采纳
我正在尝试使用以下代码从电子表格中删除下拉列表：For Each objShape In ActiveSheet.Shapes但是objShape返回Application-Defined or Object-Defined Error
Debug.Print objShape.FormControlType返回xlDropDownDebug.Print objShape.Name *返回"Drop Down 250&
浏览 2提问于2009-10-01得票数 0
回答已采纳
1回答
Set WorkRng = Sheets(1).Range(Cells(9, 4), Cells(39, colNum))Run-time error: 1004只有当第一页未被选中时如何修复此错误？
浏览 0提问于2014-05-12得票数 0
回答已采纳
我尝试使用excel VBA vlookup，但是在第4行得到了这个错误"application-defined or object-defined“。Dim SearchRange As RangeSet SearchRange = Sheet2.Range("A4", Sheet2.Range("A65536").End(xlUp))
Set FindRow = SearchRange.F
浏览 4提问于2020-07-15得票数 0
1回答
我有一个字符串变量，赋值如下：我想将这个变量分配给一个范围，如下所示：Set xlRange = xlApp.Sheets("Sheet1").Range(Answer)我还尝试使用范围的变量来粘贴值，并得到相同的<e
浏览 0提问于2016-12-09得票数 0
changeDay(day As Integer) Dim lo As ListObject Set lo = ws.ListObjects(1)End Su
浏览 0提问于2018-05-07得票数 1
回答已采纳
1回答
我想用下面的代码将单元格的范围赋给我的范围变量Dim wbSource As Workbook
SetwbSource = Workbooks.Open(strSourceFile)Application-def
浏览 3提问于2016-07-29得票数 0
回答已采纳
我试图使用这段代码来搜索一个工作表中的某个内容，并将其移动到另一个工作表中。下面是我的密码。我一直在犯这个错误： Application-defined or object-defined errorPrivateChr(10) & "value greater than 6 in cell C3 ", vbInformation, "Not Fo
浏览 2提问于2017-03-18得票数 0
回答已采纳
当我打开工作簿时，我希望出现一个msg框，并清除其中一个工作表中表中特定列的内容。我一直收到“应用程序定义的错误或对象定义的错误”。此时会出现消息框，但不会运行Sheet1代码。如何调用此表单代码？
编辑: Sheet1代码也不再有效。
浏览 0提问于2020-11-16得票数 0
1回答
但是编译器给出了一个错误消息，名为Application-defined or object-defined error。当我去掉括号时，就不再有错误了。如何使用VBA字符串中的括号？我还尝试使用Chr(40)替换(，但它不起作用。
经过进一步的调试，我发现如果我将IF更改为任意字符串，它就能工作。但是，如果我将它更改为另一个函数名，如左，则会出现错误。这一切为什么要发生？
浏览 2提问于2014-07-23得票数 0
1回答
使用Excel 2010，我正在尝试添加一个代码，它将打开文件选择窗口，供用户选择他想要打开的CSV文件。虽然目前，当VBA读取第二行时，它会打开文件选择窗口，但只要我选择一个CSV文件并点击打开，它就会给出错误Application-Defined or Object-Defined Error
浏览 3提问于2016-06-03得票数 0
如果我从结构化引用创建区域，并且确实尝试运行find函数，则Excel会抛出50290 Error Application-defined or object-defined error。根据谷歌的说法，这个错误似乎与一个缺失的引用有关。通过查看工具/引用，并不能明显看出缺失的引用是什么。Set colRange = Range("TABLE[COLUMN]")
Set r = colRange.Find(id, LookIn:=xlVa
浏览 5提问于2014-03-10得票数 0
1回答
new GL Accounts", "GL Picker")Sheets.Add.Name = glnew & dummy & count这给了我以下错误：Application-defined or object-defined error
请帮我解决这个问题。谢谢!
浏览 1提问于2022-06-05得票数 0
回答已采纳
我正在使用QueryTables将Excel工作表链接到数据源，这很好。我想引入逻辑来检查给定的单元格，并确定该单元格是否是现有QueryTable的左上角。如果我试图检查与QueryTable相关的单元格的任何属性，就会得到一个错误。也就是说，如果rng.querytable不链接到QueryTable，则rng抛出错误1004。结果表明，如果单元格是一个表，那么即使该表不是一个rng.ListObject，也可以使用QueryTable。所以这里没有骰子。
那么，如何测试目标单元格是否包含QueryTable？IsRa
浏览 7提问于2016-11-07得票数 3
回答已采纳
1回答
我尝试了以下方法，但仍然得到相同的Application-defined or object-defined error错误 Dim curr_ws As Worksheet
Set curr_ws =
浏览 8提问于2019-04-30得票数 1
1回答
我尝试过在出错时使用Goto，但即使发生错误，它似乎也会跳过这一步，或者即使没有发生错误，也会跳过这一步，这取决于我将它放在脚本中的哪个位置。运行时错误出现在以下代码行中：
Range(Worksheets("Search Engine").Cells(9, 1), Worksheets("Search Engine").Cells(Endcolumn
浏览 3提问于2012-07-23得票数 0
回答已采纳
2回答
我似乎不能获得如下语法更正：我正在尝试从A3到AE365对电子表格进行排序SetStSrtRnge = Range("A3")
Set NdSrtRnge = Range("EndSrtRnge")
Set SortRnge = Range(StSrtRnge:NdSrtRnge)**
浏览 0提问于2017-03-17得票数 2
1回答
Err.Raise支持大量错误，显然与VBA无关：这些错误号码是在哪里定义的？如何注册错误，以使运行Err.Raise my_number时具有全局指定的描述。OutputSheet.UsedRange.Clear Set rng = OutputSheet.Range("A1", "B1") Case "Application-defined o
浏览 8提问于2022-05-27得票数 2
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
