当前位置：文江博客话题详情

借助 sas 仅复制文件夹中 Excel 文件的文件名

发布于 2024-10-26 17:48:45 字数 48 浏览 0 评论 0原文

您好，我需要从一个文件夹复制 xls 文件的文件名。

请帮助如何做

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

您的好友蓝忘机已上羡 2024-11-02 17:48:45

仅使用 SAS 代码，这将打印到日志中具有以“.xls”开头的扩展名的所有文件 - 其中包括具有扩展名 .xlsx 的新版本

您可以轻松修改它以将列表保存到数据集- 或对每个文件执行一些操作。

%macro list_excel(location);
filename _dir_ "%bquote(&location.)";
data _null_;
  handle=dopen( '_dir_' );
  if handle > 0 then do;
    count=dnum(handle);
    do i=1 to count;
      memname=dread(handle,i);
      if index(memname,'.xls') then  put memname;
    end;
  end;
  rc=dclose(handle);
run;
filename _dir_ clear;
%mend;

/* example usage */
%list_excel(C:\temp\);

Using just SAS code, this will print out to the log all files that have an extension that starts with ".xls" - which includes the new versions that have extension .xlsx

You can easily modify this to save the list to a data set instead - or execute some action on each file.

%macro list_excel(location);
filename _dir_ "%bquote(&location.)";
data _null_;
  handle=dopen( '_dir_' );
  if handle > 0 then do;
    count=dnum(handle);
    do i=1 to count;
      memname=dread(handle,i);
      if index(memname,'.xls') then  put memname;
    end;
  end;
  rc=dclose(handle);
run;
filename _dir_ clear;
%mend;

/* example usage */
%list_excel(C:\temp\);

回复收藏 0 原文