主题：[求助]打开excel异常

    With Ws1.Range("C1").Validation

        .Delete

        .Add(MSExcel.XlDVType.xlValidateList, MSExcel.XlDVAlertStyle.xlValidAlertStop, MSExcel.XlFormatConditionOperator.xlNotBetween, s1)

    End With

        Ws1.Range("C1").Validation.IgnoreBlank = True

    With Ws1.Range("E1").Validation

        .Delete

        .Add(MSExcel.XlDVType.xlValidateList, MSExcel.XlDVAlertStyle.xlValidAlertStop, MSExcel.XlFormatConditionOperator.xlNotBetween, s2)

    End With

Ws1.Range("E1").Validation.IgnoreBlank = True