% @language="vbscript" %>
| 欢迎光临 | ![]() |
![]() |
![]() |
|
|
|
|
|
%macro
readfl(j);
%do i=1 %to &j;proc import out= work.yourdata&i datafile= "c:\yourdata.xls" /*your excel data*/dbms=excel2000 replace; range= "sheet&i$";getnames=yes; %if &i>1 %then %do;proc append base=yourdata1 DATA=yourdata&i force; /*append to yourdata1 database*/%end ;%end; %mend readfl;%readfl( 10);/*If there are 10 worksheets in the Excel file */run ;
|
|
MOST
PROGRAMS WERE WRITTEN BY MYSELF, IF NOT, SOURCE WILL BE CITED.
All RIGHT RESERVED. FREE WEB HOST PROVIDED BY
BRINKSTER.COM
|