对象变量或 With 块变量没有设置

WorkSheet工作表对象(一)如何引用工作表？通过Sheets(index)或Worksheets(index)可返回一个WorkSheet对象（工作簿中如果包含图表工作表，那Sheets(index)有可能返回的是图表对象）。

Index是工作表索引号或者工作表名称。

索引号表示该工作表在工作簿的标签栏上的位置。

所有工作表均包含在索引计数中，即便是隐藏的工作表也是如此。

Worksheets(1)是工作表中第一个（最左边）工作表，而Worksheets（worksheets.count）则是最后一个。

Worksheet.Application 属性如果不使用对象识别符，则该属性返回一个Application 对象，该对象表示Microsoft Excel 应用程序。

如果使用对象识别符，则该属性返回一个表示指定对象（可对一个OLE 自动操作对象使用本属性来返回该对象的应用程序）创建者的Application 对象。

这个属性在之前的工作簿，工作簿集合，工作表集合都包含有，以后再介绍Application 对象。

Worksheet.Cells 属性返回一个Range 对象，它代表工作表中的所有单元格（不仅仅是当前使用的单元格）。

因为Item 属性是Range 对象的默认属性（默认属性：可以为控件设置的属性，以使每次创建该类型的新控件时，这个属性的值都相同），所以可以在Cells 关键字后面紧接着指定行和列索引。

示例：ActiveSheet.Cells(5, 3).Value = "VBA零基础入门"'修改C5单元格的值'5代表行号，3是列号Worksheet.CircularReference 属性返回一个Range 对象，该对象表示工作表上包含第一个循环引用的区域，或返回Nothing（如果工作表上没有循环引用）。

在继续执行计算之前，必须删除循环引用。

示例：Dim rg As RangeSet rg = ActiveSheet.CircularReferenceIf Not rg Is Nothing ThenMsgBox "当前工作表中第一个循环引用的单元格地址为：" & rg.AddressEnd IfWorksheet.CodeName 属性返回对象的代码名，String类型，只读。

对象变量或With 块变量没有设置（错误91）创建对象变量有两个步骤。

第一，必须先声明对象变量。

然后必须用Set语句将一个正确的引用赋值给对象变量。

同样地，With...End With块必须先用With语句进入点来执行初始化。

此错误有以下的原因和解决方法：试图使用的对象变量，还没有用一个正确对象的引用来赋值。

给对象变量指定或再指定一个引用。

例如，如果在下列的代码中省略Set语句的话，那么引用MyObject将会产生错误：Dim MyObject As Object '创建对象变量。

Set MyObject = Sheets(1) '创建一个正确的对象引用。

MyCount = MyObject.Count '计数值赋给MyCount。

试图用的对象变量已经被设为Nothing。

Set MyObject = Nothing '释放此对象。

MyCount = MyObject.Count '引用了已释放的对象。

再指定引用给对象变量。

例如，使用新的Set语句给对象设置新的引用。

此对象是正确的对象，但没有被设置，因为在对象库中，在“引用”对话框中没有被选取。

在“添加引用”对话框选择对象库。

在With块内GoTo语句的去向。

不要跳进With块。

确保块使用With语句进入点以执行初始化。

当选了“设置下一条语句”命令时，在With块内指定了一行。

With块必须用With语句执行初始化。

详细信息，可选取有问题的项目，并按下F1 （在Windows中）或HELP（在Macintosh中）键。

CPC客户端和中国专利电子申请官网常见问题CPC客户端申请文件模版CPC客户端和中国专利电子申请官网常见问题列表：1 无法接收通知书2 客户端无法卸载3 数字证书无法导入4 无法升级程序5 官网可否在线提交申请6 无法登陆中国专利电子申请网对外服务7 中国专利电子申请网对外服务哪些功能？8 数字证书安装找不到指定文件夹？9 CPC证书管理中显示证书不存在10 Framework提示无法获取“AxforApplicatiom”控件的窗口句柄。

不支持无窗口ActiveX 控件11 电子申请编辑器提示无法获取“AxforApplicatiom”控件的窗口句柄。

不支持无窗口ActiveX 控件12 "运行时错误‘91’：对象变量或with块变量未设置"13 发明专利说明书附图提示“业务规则限定插图尺寸不能超过165mm245mm,请插入尺寸适当的图片”14 收到通知书短信但CPC客户端无法下载通知书15 接收通知书的时候要求输入密码，但是没有输入框16 CPC升级出错，提示“Execting SqlScript occured a error”17 CPC客户端提示未在本地计算机上注册“Microsoft.Jet.OLEDB.4.0"提供程序18 登陆在线平台时IE无法访问？19 CPC客户端数字证书不存在20 CPC官网登陆时一直都提示验证码错误21 CPC客户端提示配置系统未能初始化22 CPC客户端电子申请编辑文件复制粘贴公式化学式等出现乱码23 "CPC客户端报错：没有注册类别(异常来自HRESULT:0x80040154 (REGDB_E_CLASSNOTREG))"24 登陆CPC官网时提示时IE已停止工作25 如何申请纸件通知书26 如何申请重复下载通知书27 登陆CPC官网对外服务后网页显示空白28 登陆CPC官网在线平台或对外服务总是提示验证码错误29 您的帐户已被锁定，请向超级管理员申请解锁后重新登录30 专利电子申请账户找回密码忘记邮箱31 登陆CPC官网时提示签名失败CPC客户端申请文件模版列表：100001权利要求书100002说明书100003说明书附图100004说明书摘要100005摘要附图100006补正书100007专利代理委托书100008费用减缴请求书100009延长期限请求书100010恢复权利请求书100011意见陈述书（关于费用）100012意见陈述书100013撤回专利申请申明100015更正错误请求书100016著录项目变更请求书100017中止程序请求书100018撤回优先权申明100019强制许可请求书100020强制许可使用费数额裁决请求书100021专利代理委托书（中英文）100023遗传资源来源披露登记表100027向外国申请专利保密审查请求书100030办理证明文件请求书100031办理文件副本请求书100032专利文档查询复制请求书100033重新获取查询密码请求书100037电子申请通知书复制请求书100039纸件申请转电子申请请求书100040优先权文件数字接入服务（DAS）请求书100042修改对照页100044批量著录项目变更申报书（电子申请交互式适用）100045生物材料样品保藏及存活证明中文题录100046著录项目变更理由证明题录100047在先申请文件副本中文题录100048优先权转让证明中文题录100049专利权评价报告证明100102申请文件副本100103不丧失新颖性证明100104著录项目变更理由证明100105专利管理机关处理决定100106人民法院判决书100107信函100108其他证明文件100110费用减缓证明100111生物材料存活证明100112优先权转让证明100113优先权转让证明中文本100114经证明的在先申请文件副本100115经证明的在先申请文件副本首页译文100118原案申请副本100119原案申请副本100120生物材料保藏证明100121实质审查参考资料100122申请权转让证明100128提交共同申请格式（CAF）申请文件的申明100601放弃专利权申明100701专利权评价报告请求书100702专利权评价报告证明中文题录100901复审请求书100902复审无效宣告程序意见陈述书100903复审请求口头申请通知书回执100904复审无效宣告程序补正书100905复审程序恢复权利请求书100906复审程序延长期限请求书100907复审程序授权委托书101001专利无效宣告请求书101002无效宣告请求口头申请通知书回执101003专利权无效宣告程序授权委托书101004无效宣告案件加快审查请求书101222外观设计图片或照片110101发明专利请求书110301发明专利请求提前公开申明110401实质审查请求书110402参与专利审查高速路（PPH）试点项目请求书110403PPH请求补正书110404权利要求对应表110405对应申请权利要求副本110406对应申请审查意见通知书副本110407对应申请审查意见引用文件副本110408对应申请权利要求副本译文110409对应申请审查意见通知书副本译文111111参与专利审查高速路（PPH）项目请求表120101实用新型专利请求书120701实用新型专利检索报告请求书130001外观设计图片或照片130002外观设计简要说明130101外观设计专利请求书130701外观设计专利检索报告请求书150101国际申请进入中国国家阶段申明（发明）150102国际申请进入中国国家阶段申明（实用新型）150103补交修改文件的译文或修改文件150104改正优先权要求请求书150105改正译文错文请求书150106关于微生物保藏的说明150107恢复优先权要求请求书150109优先权转让证明中文题录150110生物材料保藏及存活证明题录（PCT）150111申请权转让证明中文题录150112在先申请文件副本中文题录（PCT）150120原案申请副本150123按照条约第19条修改的声明或说明150125按照条约第34条修改的声明或说明150127按照条约第19条修改的权利要求书150128按照条约第34条修改的说明书摘要150129按照条约第34条修改的说明书摘要附图150130按照条约第34条修改的权利要求书150131按照条约第34条修改的说明书150132按照条约第34条修改的说明书附图150133按照条约第34条修改的核苷酸或氨基酸序列表150134按照条约第28条或41条修改的声明或说明150135按照条约第28条或41条修改的说明书摘要150136按照条约第28条或41条修改的说明书摘要附图150137按照条约第28条或41条修改的权利要求书150138按照条约第28条或41条修改的说明书150139按照条约第28条或41条修改的说明书附图150140按照条约第28条或41条修改的核苷酸或氨基酸序列表150141说明书150142权利要求书150143说明书附图150145说明书核苷酸和氨基酸序列表150147权利要求书150148说明书附图200105电子申请回执200109复审、无效宣告程序中电子文件提交回执200112电子申请待处理回执200113电子申请拒收回执200603专利电子申请审查信息提示900000生物材料样品保藏及存活证明中文题录疑问900001专利权评价报告证明题录信息900002生物材料样品保藏存活证明题录信息表（PCT）900003中止程序证明题录信息900004申请权转让证明文件题录信息表（PCT）900005优先权转让证明题录信息表tb证明文件题录信息。

版本：1.0Ver作者：郭栋Blog：/wolfand11目录1、单元格空格问题Sub Test_B_Item2()Dim rng As RangeDim lRows As LongDim sValue As StringSet rng = Range("B1")For lRows = 1 To Cells(Rows.Count, "B").End(xlUp).RowsValue = rng.ValueIf IsEmpty(rng) ThenMsgBox lRowsrng.EntireRow.Interior.ColorIndex = 3End IfIf Trim(sValue) = "" ThenMsgBox lRowsrng.EntireRow.Interior.ColorIndex = 3End IfSet rng = rng.Offset(1, 0)Next lRowsEnd Sub上面的代码可以测出，B列中所有单元格中只含有空格、Tab符、回车换行符的所有行。

注意：IsEmpty(rng)可以检测单元格是否为空白，含有换行符的单元格也为空白；但是，含有空格和Tab符的单元格不为空白。

2、VBA中的SQL语句格式mandText = "INSERT INTO 学生" & _"(ID,[姓氏],[名字],[电子邮件地址],[年级])" & _"VALUES('3','李','四','1@','幼儿园')"'注意："(ID,姓氏,名字,电子邮件地址,年级)" & _ 是错误的，必须加上中括号3、Error："标准表达式中数据类型不匹配"mandText = "UPDATE 学生SET [学生ID]='000003' WHERE ID=CStr(3);"'注意：不要忘记UPDATE语句后面的分号（；）'特别注意WHERE ID=CStr(3)不能为WHERE ID='3'4、Error:对象变量或With块变量未设置注意：可能是为Excel对象模型中的变量赋值时，没有用Set关键字。

未将对象引用设置最简单处理在编程的世界里，难免会遇到一些让人抓狂的错误。

今天咱们聊聊一个经常让人抓狂的错误：`未将对象引用设置到实例对象`。

听起来有点拗口，其实就是指你的代码中某个对象没有被正确地初始化。

这问题就像你去商店买了东西，却发现自己忘带钱包了——你有需要的东西，但却没办法用。

咱们接下来就来看看怎么解决这个问题，让它不再成为你编程路上的绊脚石。

1. 错误的原因1.1 对象未初始化最常见的情况是，你在代码中使用了一个对象，但在使用之前没有给它赋值。

比如说，你定义了一个`Person`类，但是却没有创建一个`Person`的实例。

当你试图访问这个对象的属性或方法时，系统就会抛出这个错误。

这就像你告诉别人你能去参加聚会，但结果却发现自己连车都没有。

1.2 对象被赋值为null另一种情况是，虽然你创建了对象，但不小心把它的引用设置为`null`。

这就好比你买了一个苹果，却把它丢在了冰箱里，结果当你需要吃的时候，发现冰箱里什么都没有。

代码中的`null`引用就相当于空空如也的冰箱。

2. 解决方案2.1 确保对象被初始化首先，你要确保所有对象在使用之前都已经被正确初始化。

这就像你去参加一个派对之前，确认好你带的每一样东西都准备齐全。

以`Person`类为例，你需要在使用之前先创建一个`Person`对象：```csharpPerson person = new Person();。

= "John";。

```这样做可以确保在你访问`person`对象的属性或方法时，不会因为它是`null`而出错。

2.2 检查对象是否为null有时候，虽然你已经初始化了对象，但在某些情况下它可能会被设置为`null`。

为了防止这种情况，你可以在使用对象之前进行检查：```csharpif (person != null){Console.WriteLine();。

}else{Console.WriteLine("对象未初始化！");。

vb操作WORD大全很多人都知道，用vb操作excel的表格非常简单，但是偏偏项目中碰到了VB操作word表格的部分，google、baidu搜爆了，都没有找到我需要的东西。

到是搜索到了很多问这个问题的记录。

没办法，索性只有自己去尝试了。

下面把一些代码发上来，给需要的朋友一点提示。

打开一个已经存在的wrod文件（这个文件包含了表格）Dim WordAppDim WordSet WordApp = CreateObject("Word.Application")WordApp.Vi s ible = TrueSet Word = WordApp.Documents.Open("c:\record.dot")知道了就很简单了，下面是选定某一个表格的一个单元格，并修改其内容Word.Tables(1).cell(1, 2)="内容"VBA中的这些数组元素下标都是从1开始的，比如excel的第一行一列也是ExSheet.Cells(1,1),而不是ExSheet.Cells（0,0）,WORD的表格也是这样，不信自己试一下就知道了。

所以上面那句话的意思就是对整个word文档中的第一个表格的第一行第二列的内容改变为“内容”。

很简单吧？网上有些人在问是不是Word.Tables(1).cell(1, 2).range.text或者Word.Tables(1).cell(1, 2).text。

试一下就发现这2种都不对。

插入图片其实也很简单，代码如下：说到这，肯定又有人会问怎么在一个word里插入一个表格。

其实很简单：如果你的程序里涉及到合并及拆分单元格，那么你可能试一下这段代码：dim Tableset Table = w dApp.ActiveDocument.Tables.Add(wdApp.Application.Selection.Range, NumRow s:=27, NumColumn s _:=7, DefaultTableBehavior:=w dWord9TableBehavior, AutoFitBehavior:= _wdAutoFitFixed)Set mySelection = w dApp.Documents.Application.SelectionmySelection.Cells.Borders(-7).LineStyle = 1'选中表格的第2行第3列table.Cell(2, 3).Select'向下移动6格，第1个参数和第3个是常数Call w dBook.Application.Selection.MoveDow n(5, 6, 1)'合并wdBook.Application.Selection.Cells.Merge'拆分成7行2列Call w dBook.Application.Selection.Cells.Split(7, 2, True)如果大家碰到了更复杂的程序，用程序生成起来比较麻烦，那么你就可以用模板来实现了？你可以先用word做一个模板，把表格什么的全都先写好，然后保存成模板文件。

打开EXCEL表时，出现“运行时错误91 ，未设置对象变量或with block变量”该怎么处理？
第一种：刚试过，有效！！打开EXCEL表，会出现"运行时错误91’，未设置对象变量或with block变量”的解决方法是：1. 打开注册表编辑器。

（开始->运行->regedit）2. 找到[HKEY_CURRENT_USERSoftwareMicrosoftOfficeEXCELAddins]删除全部子项。

3. 再打开EXCEL文档，没有那出现错误了。

第二种：
打开注册表编辑器。

（开始->运行->regedit）
找到[HKEY_CURRENT_USER--Software--Microsoft--Office--EXCEL--Addins]将TheClassicMenuForExcel2007.Connect子项中的LoadBehavior值改为0（16进制）。

3. 再打开EXCEL文档看看已经没有提示错误91。

第三种：
“运行时错误91 ”问题，在这个打开的EXCEL表里插入菜单点“工作表”插入个空白Sheet表后保存该文件。

最后再重新打开该EXCEL文件时，应该就不会出现这无个提示了。

vba错误编号所对应的错误信息（备查）vba错误编号所对应的错误信息（备查）可捕获的错误可捕获的错误通常发生在应用程序运行时，但也有一些会发生在开发期间或编译时间。

可使用 On Error 语句与 Err 对象来探测并回应可捕获的错误。

1 –1000 之间未使用的错误号都是保留给Visual Basic 以后使用的。

3没有返回的GoSub5无效的过程调用6溢出7内存不足9数组索引超出范围10此数组为固定的或暂时锁定11除以零13类型不符合14字符串空间不足16表达式太复杂17不能完成所要求的操作18发生用户中断20没有恢复的错误28堆栈空间不足35没有定义子程序、函数，或属性47DLL 应用程序的客户端过多48装入 DLL 时发生错误49DLL 调用规格错误51内部错误52错误的文件名或数目53文件找不到54错误的文件方式55文件已打开57 I/O 设备错误58文件已经存在59记录的长度错误61磁盘已满62输入已超过文件结尾63记录的个数错误67文件过多68设备不可用70没有访问权限71磁盘尚未就绪74不能用其他磁盘机重命名75路径/文件访问错误76找不到路径91尚未设置对象变量或 With 区块变量92For循环没有被初始化93无效的模式字符串94Null 的使用无效97不能在对象上调用 Friend 过程，该对象不是定义类的实例298系统 DLL 不能被加载320在指定的文件中不能使用字符设备名321无效的文件格式322不能建立必要的临时文件325源文件中有无效的格式327未找到命名的数据值328非法参数，不能写入数组335不能访问系统注册表336ActiveX 部件不能正确注册337未找到 ActiveX 部件338ActiveX 部件不能正确运行360对象已经加载361不能加载或卸载该对象363未找到指定的 ActiveX 控件364对象未卸载365在该上下文中不能卸载368指定文件过时。

金蝶 K3 提示“未设置对象变量或with block 变量”解决方法方法一，1.运行 dcomcnfg 在出现在界面：组件服务--计算机--我的电脑，然后选择我的电脑用右件关闭DTC，再重启DTC。

2。

运行 CMD命令，输入：msdtc-uninstall 回车后，再输入： msdtc-install.如重启MSDTC后还是提示以上错误的话，请用kdmaindbg.exe,跟踪操作提示，文件在安装目录下面，C:\Program Files\Kingdee\K3ERP\下面，跟踪文件如果看到有红色记录，就得查看红色记录组件运行情况，或者重新注册组件，如查提示k3definebill.dll,组件错误，按方法二、操作；方法二，如果是录入单据时或打开物流单据时提示“未设置对象变量或with block 变量”如果有打过补丁 PT024026、PT024840 的以请重新御掉重新安装，中层间层服务器，升级SQL账套。

金蝶K3提示连接中间层加密服务失败解决方法如果打开帐套管理KdActMgr.exe,帐套正常并能正常看到授权站点数。

中间层重新注册也无效。

最终确认是由于kdsvrmgrServices服务没有正常启动。

解决方法：1、打开-开始-运行，在K3安装目录中搜索kdsvrmgrservices程序，找到后，托到运行处，空格/service或者直接在运行输入“C:\ProgramFiles\Kingdee\K3ERP\KDCOM\KDSvrMgrService.exe /unregserver －卸载命令/service -加载命令然后再启用2、点确定，进行我的电脑右键，管理，找到服务，看是否有此服务，然后将其启动。

打开K3，正常启动如果能正常登陆，在某些模块，不能正常使用提示中间层加密服务失败或者使作BOS数据交换平台导出数据时提示中间层加密服务失败。

解决方法：查看服务KDSvrMgrService.exe是否是自动并且已启动，没有启动的话，右击启动如果启动不了，右击-属性-登陆-信任-添加中间层注册时添加的本地账户，启动Remote Procedure Call (RPC)服务服务KDSVRMGRSERVICE 服务与remote procedure call(RPC)服务输入相对应的登陆账号密码重新启动。

错误ID错误描述查看关于此错误的帮助主题1应用程序定义或对象定义错误详细说明 >>>3无 GoSub 返回详细说明 >>>4应用程序定义或对象定义错误详细说明 >>>5无效的过程调用或参数详细说明 >>>6溢出详细说明 >>>7内存溢出详细说明 >>>8应用程序定义或对象定义错误详细说明 >>>9下标越界详细说明 >>>10该数组被固定或暂时锁定详细说明 >>>11除数为零详细说明 >>>12应用程序定义或对象定义错误详细说明 >>>13类型不匹配详细说明 >>>14溢出串空间详细说明 >>>15应用程序定义或对象定义错误详细说明 >>>16表达式太复杂详细说明 >>>17不能执行所需的操作详细说明 >>>18出现用户中断详细说明 >>>19应用程序定义或对象定义错误详细说明 >>>20无错误恢复详细说明 >>>21应用程序定义或对象定义错误详细说明 >>>28溢出堆栈空间详细说明 >>>29应用程序定义或对象定义错误详细说明 >>>35子过程或函数未定义详细说明 >>>36应用程序定义或对象定义错误详细说明 >>>47DLL 应用程序客户太多详细说明 >>>48加载 DLL 错误详细说明 >>>49DLL 调用约定错误详细说明 >>>50应用程序定义或对象定义错误详细说明 >>>51内部错误详细说明 >>>52文件名或文件号错误详细说明 >>>53文件未找到详细说明 >>>54文件模式错误详细说明 >>>55文件已打开详细说明 >>>56应用程序定义或对象定义错误详细说明 >>>57设备 I/O 错误详细说明 >>>58文件已存在详细说明 >>>59记录长度错误详细说明 >>>60应用程序定义或对象定义错误详细说明 >>>61磁盘已满详细说明 >>>62输入超出文件尾详细说明 >>>63记录号错误详细说明 >>>64应用程序定义或对象定义错误详细说明 >>>67文件太多详细说明 >>>68设备不可用详细说明 >>>69应用程序定义或对象定义错误详细说明 >>>70拒绝的权限71磁盘未准备好详细说明 >>> 72应用程序定义或对象定义错误详细说明 >>> 74不能更名为不同的驱动器详细说明 >>> 75路径/文件访问错误详细说明 >>> 76路径未找到详细说明 >>> 77应用程序定义或对象定义错误详细说明 >>> 91对象变量或 With 块变量未设置详细说明 >>> 92For 循环未初始化详细说明 >>> 93无效的模式串详细说明 >>> 94无效使用 Null详细说明 >>> 95应用程序定义或对象定义错误详细说明 >>> 96由于对象已经激活了事件接受器支持的最大数目的详细说明 >>> 97不能调用对象的友元函数，该对象不是所定义类的详细说明 >>> 98属性或方法调用不能包括对私有对象的引用，不论详细说明 >>> 99应用程序定义或对象定义错误详细说明 >>> 321无效文件格式详细说明 >>> 322不能创建必要的临时文件详细说明 >>> 323应用程序定义或对象定义错误详细说明 >>> 325资源文件中格式无效详细说明 >>> 326应用程序定义或对象定义错误详细说明 >>> 380无效属性值详细说明 >>> 381无效的属性数组索引详细说明 >>> 382运行时不支持 Set详细说明 >>> 383(只读属性)不支持 Set详细说明 >>> 384应用程序定义或对象定义错误详细说明 >>> 385需要属性数组索引详细说明 >>> 386应用程序定义或对象定义错误详细说明 >>> 387Set 不允许详细说明 >>> 388应用程序定义或对象定义错误详细说明 >>> 393运行时不支持 Get详细说明 >>> 394(只写属性)不支持 Get详细说明 >>> 395应用程序定义或对象定义错误详细说明 >>> 422属性没有找到详细说明 >>> 423属性或方法未找到详细说明 >>> 424要求对象详细说明 >>> 425应用程序定义或对象定义错误详细说明 >>> 429ActiveX 部件不能创建对象详细说明 >>> 430类不支持自动化 (Automation) 或不支持期待的接详细说明 >>> 431应用程序定义或对象定义错误详细说明 >>> 432自动化 (Automation) 操作时文件名或类名未找到详细说明 >>> 433应用程序定义或对象定义错误详细说明 >>> 438对象不支持该属性或方法详细说明 >>> 439应用程序定义或对象定义错误详细说明 >>> 440自动化 (Automation) 错误详细说明 >>> 441应用程序定义或对象定义错误详细说明 >>> 442远程进程到类型库或对象库的连接丢失。