SAS中文论坛

标题: 请教高手一个关于DDE的问题 [打印本页]

作者: shiyiming 时间: 2007-10-19 20:48
标题: 请教高手一个关于DDE的问题
如下程序可以实现DDE，但是有两个缺点：
第一：输出到EXCEL是SHEET不是从左到右依次为SHEET1,SHEET2,....
第二：在最后一个宏中不是实现SAS的宏变量。如put '[save.as("D:\tt")]'不能变成put '[save.as("D:\&YYMM\tt")]';

程序如下：

OPTION SYMBOLGEN;
DATA A;
INPUT X Y K;
LABEL X='XX' Y='YY' K='KK';
CARDS;
1 2 3
;
RUN;
DATA B;
INPUT X Y K;
LABEL X='XXX' Y='YYY' K='ZZZ';
CARDS;
4 5 6
;

RUN;

PROC SQL;
SELECT
   NAME,
   LABEL
INTO:MA1 SEPARATED BY ' &TAB ',
:MA2 SEPARATED BY "' &TAB '"
FROM DICTIONARY.COLUMNS
WHERE LIBNAME='WORK' AND MEMNAME='A'
;
QUIT;
PROC SQL;
SELECT
   NAME,
   LABEL
INTO:MB1 SEPARATED BY ' &TAB ',
:MB2 SEPARATED BY "' &TAB '"
FROM DICTIONARY.COLUMNS
WHERE LIBNAME='WORK' AND MEMNAME='B'
;
QUIT;

data _NULL;
K1="'"||symget('MA2')||"'";
K2="'"||symget('MB2')||"'";
CALL SYMPUT('MA22',K1);
CALL SYMPUT('MB22',K2);
run;
%PUT _USER_;

options noxsync noxwait xmin;
filename sas2xl dde 'excel|system';
%let tab='09'x;

%MACRO TIME;
data _null_;
length fid rc start stop time 8;
fid=fopen('sas2xl','s');
if (fid le 0) then do;
rc=system('start excel');
start=datetime();
stop=start+10;
do while (fid le 0);
fid=fopen('sas2xl','s');
time=datetime();
if (time ge stop) then fid=1;
end;
end;
rc=fclose(fid);
run;
%mend;

%MACRO SHEET(N);

filename recrange dde "excel|[tt.xls]sheet&N!r4c1:r65000c3" notab;

data _null_;
set &&D&N;
file recrange;
put &MA1
;
run;

filename recrange clear;

filename recrange dde "excel|[tt.xls]sheet&N!r3c1:r3c3" notab;

data _null_;
file recrange;
put &MA22
;
run;

filename recrange clear;

data _null_;
file sas2xl;
put '[workbook.insert(1)]';

;
run;

%MEND SHEET;

%MACRO DDE1(d1,d2);
%TIME
data _null_;
file sas2xl;
put '[file.close(false)]';
put '[new(1)]';
put '[error(false)]';
put '[save.as("D:\tt")]';
run;
%SHEET(1)
%SHEET(2)

data _null_;
file sas2xl;

put '[save]';
put '[file.close(false)]';
put '[quit]';
run;

%MEND DDE1;

%DDE1(A,B);

欢迎光临 SAS中文论坛 (https://mysas.net/forum/)