Excel VBA错误代码91,对象变量或with块变量未设置

发布网友 发布时间：2022-04-28 23:10

我来回答

共5个回答

热心网友 时间：2022-06-25 00:34

解决办法：

rng = Range(Cells(2, 1), Cells(2, 13)).Offset(j - 1, 0)
改为如下即可：
SET rng = Range(Cells(2, 1), Cells(2, 13)).Offset(j - 1, 0)

Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。

热心网友 时间：2022-06-25 00:34

Set s = opening'(opening为打开文件的一个自定义函数)
If s = "False" Then Exit Sub
With s.Worksheets(1)
或
Set s = opening'(opening为打开文件的一个自定义函数)
on error goto 100
With s.Worksheets(1)
.Cells.Replace " ", ""
r = .Cells(65536, 1).End(xlUp).Row
arr = .Range("a2:Z" & r).Value
End With
s.Saved = True
s.Close
Set s = Nothing
...............
............
100:
end sub

热心网友 时间：2022-06-25 00:35

付费内容限时免费查看回答Excel用宏做查找动作，如果查找不到，就出这个错误。

修改代码前面部分如下：

Dim frow As Integer

If txt1.Value = "" Then '先判断用户名是否为空

MsgBox "用户名不能为空！", vbInformation, "系统提示"

Exit Sub

End If

Dim xRng As Range

Set xRng = Sheets("用户表").Range("A3:A53") '再判断用户名是否不存在

If Application.WorksheetFunction.CountIf(xRng, txt1) = 0 Then

MsgBox "无此用户名！", vbInformation, "系统提示"

Exit Sub

End If

With Sheets("用户表") '最后判断用户名与密码是否一致

frow = .Range("A3:A53").Find(what:=txt1).Row

If .Cells(frow, 2) > CStr(txt2.Text) Then

MsgBox ("密码错误")

txt1.Text = ""

txt2.Text = ""

Exit Sub

End If

希望可以帮到您哦亲

热心网友 时间：2022-06-25 00:35

判断一下是否到了rs.eof
如果没到的话 执行rs.close 如果到了就不要执行rs.close
rs有时候不需要关闭
比如delete运行的时候

热心网友 时间：2022-06-25 00:36

range 没有value的属性吧