Question

第二次执行代码时出现上述运行时错误。第一次成功执行。我已经附加了它在进入调试模式时指向的代码。请帮助解决此问题。代码： -

    wbExcel.Worksheets("No of risks per user").Activate
    wbExcel.ActiveSheet.UnProtect Password:="pwd1"
    wbExcel.ActiveSheet.Columns("M:M").Select     
    Selection.EntireColumn.Hidden = False  ' It points to this line in debug mode 
    Selection.RemoveDuplicates Columns:=1, Header:=xlYes
    Selection.EntireColumn.Hidden = True

Answer 1

除了参考问题，我看不到任何异常。您可能想在下面尝试并查看它是否会产生相同的错误。

With wbExcel.Worksheets("No of risks per user")
    .UnProtect Password:="pwd1"
    .Columns("M").Hidden = False
    .Columns("M").RemoveDuplicates Columns:=1, Header:=xlYes
    .Columns("M").Hidden = True
End With

运行时错误91对象变量或未设置块

1 个答案: