FC2ブログ

Combining multiple Excel files into a single Excel file Using PC-SAS

Memorial
10 /18 2018

You can combine more than two Excel files into a single Excel file.

*---Multiple-Files-Storage-Folder(PATH);

%let _inpath=.;

*---Single-File-Storage-Folder(PATH);

%let _outpath=.;

*---Combined-FileName(Also fill the extension);

%let _outfile=All.xlsx;

 

option noxwait xsync;

filename _inpath "&_inpath.";

filename _outpath "&_outpath.";

data _null_;

  inpath=pathname("_inpath");

  outpath=pathname("_outpath");

  call symputx("inpath",inpath);

  call symputx("outpath",outpath);

  xcommand="'"||tranwrd(strip(outpath)||"\PileUp.vbs",'','" "')||"'";

  call symputx("xcommand",xcommand);

  del="'del "||tranwrd(strip(outpath)||"\PileUp.vbs",'','" "')||"'";

  call symputx("del",del);

run;

filename vbs "&_outpath.\PileUp.vbs";

proc stream outfile=vbs resetdelim="goto"; begin

Set ex=CreateObject("Excel.Application") goto newline;

ex.Visible=True goto newline;

Set ex1=ex.Workbooks.Add goto newline;

ex.DisplayAlerts=False goto newline;

cont = ex1.Sheets.Count goto newline;

if cont>1 then goto newline;

  for i = cont to 2 step -1 goto newline;

  On Error Resume Next goto newline;

  ex1.Sheets(i).Delete goto newline;

  next goto newline;

end if goto newline;

ex1.Sheets(1).Name="@-@-@" goto newline;

%macro AddBook(_infile=);

Set ex2=ex.Workbooks.Open("&inpath.\&_infile.") goto newline;

cont2 = ex2.Sheets.Count goto newline;

For j=1 To cont2 goto newline;

  max = ex1.Sheets.Count goto newline;

  ex2.Sheets(j).Copy ,ex1.Sheets(max) goto newline;

Next goto newline;

%mend AddBook;

%AddBook(_infile=File1.xlsx) /*Do not use semicolons.*/

%AddBook(_infile=File2.xlsx)

 

ex1.Sheets(1).Delete goto newline;

ex1.Sheets(1).Select goto newline;

ex.ActiveWorkbook.RemoveDocumentInformation(8) goto newline;

ex.ActiveWorkbook.SaveAs "&outpath.\&_outfile" goto newline;

ex.Quit

;;;;

x &xcommand.;

x &del.;

option noxsync;
20181018_記事200

!!200記事達成記念!

いちびって英語記事にしました。

 

↓拍手をポチッと押して頂けると、励みになります。

スポンサーサイト

コメント

非公開コメント

sasone


にほんブログ村 にほんブログ村 IT技術ブログ ソフトウェアへ
にほんブログ村 にほんブログ村 IT技術ブログへ
にほんブログ村