[VBA]为社么这样可以那样却不行呢？

天龙八部

  Dim FilterType(0) As Integer
    Dim FilterData(0) As Variant
   
    FilterType(0) = 0
    FilterData(0) = "3DSolid"
    sset.SelectOnScreen FilterType, FilterData

改成

Dim FilterType As Integer
    Dim FilterData As Variant
   
    FilterType = 0
    FilterData = "3DSolid"
    sset.SelectOnScreen FilterType, FilterData

运行就不行了，同样申明了啊！

流星蔡园

人家SelectOnScreen只对数组感兴趣嘛

^_^