VB中设置EXCEL单元格有效性出错

stx1980710

请教一下，在用其他语言设置EXCEL单元格有效性时，怎么操作呢？
如：用VB写的设置EXCEL单元格有效性，总是出错
        Dim v As Excel.Validation
        Set v = xlWs.Range("E2:J2").Validation
        v.Delete
        v.Add xlValidateList, xlValidAlertWarning, xlBetween, "2011,2012,2013,2014,2015"
出错提示：
     方法‘~’作用于对象‘~’失败
请高手指点一下，多谢！

未忘初心

把常量改成代替常量的数字试试

stx1980710

未忘初心 发表于 2017-6-8 09:32
把常量改成代替常量的数字试试

v.Add 3, 2, 1, "2011,2012,2013,2014,2015"
多谢关注，改成上面的，还是出现相同的提示

today0427

Set v = xlWs.Range("E2:J2").Validation这一句的xlws是什么？定义了吗

stx1980710

today0427 发表于 2017-6-8 09:44
Set v = xlWs.Range("E2:J2").Validation这一句的xlws是什么？定义了吗

   Set xlApp = GetObject(, "Excel.Application")
    Set xlWs = xlApp.Worksheets("自定义报表")

定义了的

未忘初心

你不知道你能确定是哪行报错不  

stx1980710

未忘初心 发表于 2017-6-8 09:49
你不知道你能确定是哪行报错不

v.Add xlValidateList, xlValidAlertWarning, xlBetween, "2011,2012,2013,2014,2015"
这里报错

today0427

我刚才按你主楼的代码运行了，因为不知道xlWs是什么，把他去掉了，运行正确，所以我感觉应该是那个工作表对象的问题。

未忘初心

代码前一句加个  msgbox typename(v)

stx1980710

未忘初心 发表于 2017-6-8 10:00
代码前一句加个  msgbox typename(v)

显示Validation