“运行时错误91”设置variables

我遇到了一个运行过去曾经工作过的VBA脚本的问题。 代码尝试从已经生成的数据库和Excel工作表中获取数据，然后运行更多计算来创build可用的统计信息。 这部分是错误的地方：

Dim strCat, strPlan, strCustodian As String Dim i, lAssets As Long Dim cn As ADODB.Connection, rs As ADODB.Recordset 'ms access connection Public Const cnnstr As String = "Provider=Microsoft.ACE.OLEDB.12.0; " & _ "Data Source=G:\OADBO.accdb;" Dim rngA, rngB As Range Option Explicit Private Sub MapExisting() Set rngA = wsEntry.Range("A1") For i = 1 To WorksheetFunction.CountIf(wsEntry.Columns(1), "*") - 1 Set rngB = wsMapping.Range("B1") Set rngA = wsEntry.Columns(1).Find(What:="*", After:=rngA, _ LookIn:=xlValues, LookAt:=xlWhole, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False) strCat = rngA.Offset(0, 2).Value lAssets = rngA.Offset(0, 1).Value Call UnprotectSheets Set rngB = wsMapping.Columns(2).Find(What:=strCat, After:=rngB, _ LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False) rngB.End(xlUp).Offset(1, 0).Value = rngA * <——ERROR IS HERE * rngB.End(xlUp).Offset(0, 3).Value = lAssets Jump: Next i 'finds all empty rows and keeps as range- then hides all in range 'Call Hiderows Call ProtectSheets Application.ScreenUpdating = True wsMapping.Activate End Sub 

Answer 1

如果第一次查找操作失败， rngA将被设置为Nothing。

如果发生这种情况，当你指定它（错误在这里的那一行）时你会得到一个错误。

你可以这样检查：

 If rngA Is Nothing Then