数据过滤器 SAS VBA

Question

data.Filter = "(Dec = 'Okay' AND no = '001' AND date >=" &
Sheets("parameter").range("A1") & ")" & _"or (Dec = 'Okay' AND 
(criteria = 'TOM1' OR criteria = 'TOM2' OR criteria = 'TOM3') AND 
date >=" & Sheets("parameter").range("A1") & ")"

为什么会显示运行时错误？我相信问题从包含“标准”的过滤器开始。我该如何做对？

注意：不再允许添加额外的行，因为最大行数为 24，我已经超过了。

Answer 1

这可能是因为您从Sheets("parameter").range("A1") 传入的日期值。

例如，假设您从 A1 中传入 20JAN2015 的值，您可以尝试以下方式：

data.Filter = "(Dec = 'Okay' AND no = '001' AND date >='" &
Sheets("parameter").range("A1") & "'d)" & "or (Dec = 'Okay' AND 
(criteria = 'TOM1' OR criteria = 'TOM2' OR criteria = 'TOM3') AND 
date >='" & Sheets("parameter").range("A1") & "'d)"

这将给出：

(Dec = 'Okay' AND no = '001' AND date >='20JAN2015'd) or (Dec = 'Okay' AND 
(criteria = 'TOM1' OR criteria = 'TOM2' OR criteria = 'TOM3') AND 
date >='20JAN2015'd)

比较一下：

data _null_ ;
  datetxt='20JAN2015' ;
  datenum='20JAN2015'd ;
  put "Date as text " datetxt= ;
  put "Date as SAS date " datenum= ;
run ;