Status 属性

       

指示传送名单的状态。XlRoutingSlipStatus 类型,只读。

expression.Status

expression   必需。该表达式返回“应用于”列表中的对象之一。

示例

如果工作簿 Book1.xls 的传送过程已完成,本示例将重新设置传送名单。

With Workbooks("BOOK1.XLS").RoutingSlip
    If .Status = xlRoutingComplete Then
        .Reset
    Else
        MsgBox "Cannot reset routing; not yet complete."
    End If
End With