小编Fin*_*ist的帖子

我编写了一个R脚本,其中包含一个检索外部(Web)数据的循环.数据的格式大部分时间都是相同的,但有时格式会以不可预测的方式发生变化,而我的循环会崩溃(停止运行).

有没有办法继续执行代码而不管错误？我正在寻找类似于VBA中的"On error Resume Next"的内容.

先感谢您.

我想评估一个Cell的语句列表(例如,有顶部边框,有底部边框等),并将结果传递给一个集合对象.但是,如果/ elseif在找到第一个真实语句时将停止计算,则Select Case也是如此.

有没有其他方法可以用来做到这一点？

Dim BorderColl As Collection
Set BorderColl = New Collection 

If RngCell.Borders(xlDiagonalDown).LineStyle <> xlNone Then

  BorderColl.Add "xlDiagonalDown", LCase("xlDiagonalDown")

ElseIf RngCell.Borders(xlDiagonalUp).LineStyle <> xlNone Then

  BorderColl.Add "xlDiagonalUp", LCase("xlDiagonalUp")

ElseIf RngCell.Borders(xlEdgeBottom).LineStyle <> xlNone Then

  BorderColl.Add "xlEdgeBottom", LCase("xlEdgeBottom")

ElseIf RngCell.Borders(xlEdgeLeft).LineStyle <> xlNone Then

  BorderColl.Add "xlEdgeLeft", LCase("xlEdgeLeft")

ElseIf RngCell.Borders(xlEdgeRight).LineStyle <> xlNone Then

  BorderColl.Add "xlEdgeRight", LCase("xlEdgeRight")

ElseIf RngCell.Borders(xlEdgeTop).LineStyle <> xlNone Then

  BorderColl.Add "xlEdgeTop", LCase("xlEdgeTop")

End If