求助！运行代码提示对象变量或With变量未设置 请老师指点

excelltaaaaa

运行代码提示对象变量或With变量未设置

excelltaaaaa

求老师，帮忙指点

gdljqi

Sub 保存()
    Dim m%, r%
    Dim shtDB As Worksheet, shtInput As Worksheet, rng As Range, orderNo As String, idx As Integer, fndRng As Range
    Set shtDB = Sheets("数据库")
    Set shtInput = Sheets("输入")
    idx = ActiveCell.Row
    If idx >= 3 And ActiveSheet.Name = shtInput.Name Then
        orderNo = shtInput.Cells(idx, 1)
        Set fndRng = shtDB.Range("A:A").Find(orderNo)
        If fndRng Is Nothing Then
            If [B3] = "" Or [I3] = "" Or [J3] = "" Then MsgBox "信息没有填写完整，不能保存！": End
            m = Sheets("数据库").[A65536].End(xlUp).Row + 1
            r = [a9999].End(3).Row
            Range("a" + CStr(idx) + ":j" & r).Copy Sheets("数据库").Range("a" & m)
            MsgBox "保存成功！"
        Else
            MsgBox "此单已经保存过了！"
            Exit Sub
        End If
    ActiveWorkbook.Save
    End If
End Sub

excelltaaaaa

gdljqi 发表于 2019-3-7 09:13
Sub 保存()
    Dim m%, r%
    Dim shtDB As Worksheet, shtInput As Worksheet, rng As Range, orderNo ...

非常感谢！已经得到解决了。