Excel VBA运行时错误91对象变量未设置
太阳花
我不知道尚未设置什么变量。
Option Explicit
Option Base 1
Sub ReverseOrder()
Dim ReverseOrder As Variant
Dim nEmployee As String
Dim nEmployees As Integer
Dim ssn As Variant
Dim wsData As Range
Dim i As Integer
With wsData.Range("A1")
nEmployees = Range(.Offset(1, 0), .End(xlDown)).Rows.Count
ReDim Employees(1 To nEmployees)
ReDim ssn(1 To nEmployees)
For i = 1 To nEmployees
Employees(i) = .Offset(i, 0).Value
ssn(i) = .Offset(i, 0).Value
Next
For i = nEmployees To 1 Step -1
.Offset(nEmployees - i + 1, 3).Value = Employees(i)
.Offset(nEmployees - i + 1, 4).Value = ssn(i)
Next i
End With
End Sub
显示名称
您变暗wsData但未将其设置为任何对象（例如Set wsData = Range("A1:A10")
但我觉得wsData应该成为一个Worksheet对象
所以
Dim wsData As Worksheet
Set wsData = Worksheets("myWorksheetName") ' change "myWorksheetName" to wanted actual sheet name
然后你的代码
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
检查 excel vba 中是否存在 getelementsbyclassname。运行时错误 91 对象变量或块变量未设置
- 2
运行时错误91：未在Excel 2013中设置对象变量或带有块变量
- 3
在Excel中未设置对象变量或With块变量（错误91）
- 4
在Excel中未设置对象变量或With块变量（错误91）
- 5
VBA错误91：未设置对象变量或含块变量（Excel 2013）
- 6
VBA错误91：未设置对象变量或With块变量（Excel 2013）
- 7
运行时错误91对象变量或未设置带块变量-使用公共变量
- 8
运行时错误91对象变量或带块变量的数据库未设置
- 9
Excel VBA，Http.ResponseText运行时错误91
- 10
Excel VBA，Http.ResponseText运行时错误91
- 11
运行时错误91- Excel VBA
- 12
Excel VBA：.find函数返回运行时错误91
- 13
运行时错误91：未设置对象变量或With块
- 14
VBA：运行时错误 91：未设置对象变量或块变量
- 15
运行时错误 91 - 对象变量或未设置块变量 - VBA
- 16
VBA中的构造方法-运行时错误91“未设置对象变量”
- 17
Excel vba对象变量或With块变量未设置错误
- 18
Excel vba对象变量或With块变量未设置错误
- 19
来自excel vba的对象变量和块未设置错误
- 20
Excel VBA：运行时错误424，需要对象
- 21
需要运行时错误“424”对象：Excel VBA
- 22
Excel VBA获取4位数字的运行时错误91
- 23
VBA Excel中的ADODB.Recordset运行时错误91
- 24
如何解决VBA Excel代码运行时错误91
- 25
Excel VBA：运行时错误（对象“范围”的方法“值”失败），但仅在连续运行时
- 26
Excel VBA：运行时错误（对象“范围”的方法“值”失败），但仅在连续运行时
- 27
获取运行时错误“ 91”：对象变量或未设置块变量
- 28
运行时错误'91'; 未设置对象变量或带块变量
- 29
Excel VBA运行时错误1004
我来说两句