关于vba代码错误"91"?

Posted 2023-05-18

请教大神，我写了一个代码，老是弹出错误"91"提示，麻烦各位大神帮忙指导。Sub 自动写入()Dim 行号, 下一个二级行号, 最大行号最大行号 = Sheet5.Cells(Rows.Count, 3).End(xlUp).Row首行行号 = 8 For 行号 = 8 To 最大行号 下一个二级行号 = Sheet5.Range(Cells(行号 + 1, 11), Cells(最大行号, 11)).Find("二级").Row If Cells(行号, 3) = "二级" And Cells(行号 + 1, 3) = "三级" Then Cells(行号, 11).Value = Application.WorksheetFunction.Sum(Range(Cells(行号 + 1, 11), Cells(下一个二级行号 - 1, 11))) End If NextEnd Sub

参考技术A Sub 自动写入()
Dim 行号, 下一个二级行号, 最大行号, 首行行号, Rng As Range
最大行号 = Cells(Rows.Count, 3).End(xlUp).Row
首行行号 = 8
For 行号 = 首行行号 To 最大行号
Set Rng = Range(Cells(行号 + 1, 3), Cells(最大行号, 3)).Find("二级")
If Rng Is Nothing Then 下一个二级行号 = 最大行号 Else 下一个二级行号 = Rng.Row
If Cells(行号, 3) = "二级" And Cells(行号 + 1, 3) = "三级" Then
Cells(行号, 11).Value = Application.WorksheetFunction.Sum(Range(Cells(行号 + 1, 11), Cells(下一个二级行号 - 1, 11)))
End If
Next
End Sub
'主要是最后二级找不到下一个就没行号了。 参考技术B 这个报错，要么是漏了结束语，要么是对象没有的问题

关于MFC中调用外部程序

参考技术A 方法一，先调用CMD然后执行命令
ShellExecute(NULL,"open","cmd.exe",NULL,NULL,SW_SHOWNORMAL);
指定为桌面的代码也给你了
ShellExecute(NULL,"open","cmd.exe",NULL,"C://Documents
and
Settings//****//桌面",SW_SHOWNORMAL);
方法二，直接调用程序
ShellExecute(NULL,"open","c://Documents
and
Settings//****//桌面//daycount.exe",NULL,NULL,SW_SHOWNORMAL);
*****是我的计算机名，不好意思隐藏了~