如何将表名列表作为SAS宏参数传入并实现正确解析？

首先得指出你现有代码里的两个小问题：一是宏调用的语法不对，二是PROC SQL的execute语句可能缺了数据库连接的指定（比如连接Oracle的话需要by oracle;）。下面一步步给你修正：

问题分析 #

你想传入多个带引号的表名，但原调用写法%Marco_Name ( Table_Name = 'table1', 'table2', 'table3')是错误的——SAS宏参数默认只能接收单个值，逗号会被当成参数分隔符，导致宏识别到多余的参数而报错。

方案1：直接传入带引号的完整列表 #

这种方法最简单，只需要调整宏调用的写法，让整个表名列表作为单个参数值传递：

修正后的宏代码 #

%MACRO Marco_Name ( Table_Name ) ;
PROC SQL;
  execute ( 
    select (owner ||'.'||table_name) as table_name 
    from dba_tables 
    where table_name in (&Table_Name.) 
  ) by oracle; /* 根据你的数据库类型调整，比如Oracle就写by oracle */
QUIT;
%MEND Marco_Name ;

正确调用方式 #

把所有表名用逗号分隔后作为一个参数值传入，注意不要在Table_Name=后面加多余的空格或者换行：

%Marco_Name(Table_Name='table1','table2','table3')

如果担心SAS解析逗号出问题，还可以用%str宏函数包裹列表：

%Marco_Name(Table_Name=%str('table1','table2','table3'))

方案2：传入不带引号的表名（更友好） #

如果不想每次调用都手动加引号，可以让宏自动给表名添加引号，这样调用时只需要传入空格分隔的表名即可：

改进后的宏代码 #

%MACRO Marco_Name ( Table_Names ) ;
  /* 把空格分隔的表名转换成带引号的逗号分隔列表 */
  %let quoted_tables = %sysfunc(tranwrd(&Table_Names., %str( ), %str(', ')));
  %let quoted_tables = "&quoted_tables.";

PROC SQL;
  execute ( 
    select (owner ||'.'||table_name) as table_name 
    from dba_tables 
    where table_name in (&quoted_tables.) 
  ) by oracle;
QUIT;
%MEND Marco_Name ;

调用方式 #

直接传入空格分隔的表名，不用加引号：

%Marco_Name(Table_Names=table1 table2 table3)

这样两种方案都能让你的SQL正确解析成：

select (owner ||'.'||table_name) as table_name from dba_tables where table_name in ('table1', 'table2', 'table3')

内容的提问来源于stack exchange，提问作者janez_007