converting xls files to xlsx files

Reply
Occasional Contributor
Posts: 12

converting xls files to xlsx files

I have around 300 xls reports getting created through ODS, how can i convert them to xlsx files  !

Super User
Posts: 1,115

Re: converting xls files to xlsx files

While you are creating the xls files through ODS using the file extension of xls, you coud also create the excel files with extension xlsx

could you please let us know the program you are using to create the xls files
Thanks,
Jag
Occasional Contributor
Posts: 12

Re: converting xls files to xlsx files

These are legacy reports created long back , just dont want to touch the code which the report created in xls  as there are 300 scripts to go through , i just want to take already created xls file and convert them to xlsx file as is ...

Super User
Posts: 1,115

Re: converting xls files to xlsx files

I hope this link will help you

http://support.sas.com/kb/43/496.html

please try the macro in the link
Thanks,
Jag
Super User
Super User
Posts: 6,351

Re: converting xls files to xlsx files

That is definitely what is needed. As long as SAS is running on a Windows machine then it should work.

The program posted by SAS on that link seems to have some bugs. 

Here is a cleaned up version with the unneede extra complexity of wrapping it in a macro removed.

%let dir=c:\downloads ;
%let ext=xls ;

* Generate Visual Basic program ;
data _null_;
file "'&dir\temp.vbs'";
put "set xlapp = CreateObject(""Excel.Application"")";
put "set fso = CreateObject(""scripting.filesystemobject"")";
put "set myfolder = fso.GetFolder(""&dir"")";
put "set myfiles = myfolder.Files";
put "xlapp.DisplayAlerts = False";
put "for each f in myfiles";
put "  ExtName = fso.GetExtensionName(f)";
put "  Filename= fso.GetBaseName(f)";
put "  If ExtName=""&ext"" then";
put "    set mybook = xlapp.Workbooks.Open(f.Path)"; 
put "    xlapp.Visible = false";
put "    mybook.SaveAs ""&dir.\"" & Filename & "".xlsx"", 51";
put "    mybook.Close";
put "  End If";
put "Next";
put "xlapp.DisplayAlerts = True";
put "xlapp.Quit";
put "Set xlapp = Nothing";
put "strScript = Wscript.ScriptFullName";
put "FSO.DeleteFile(strScript)"; 
run; 
 
* Show the generated program ;
data _null_;
  infile "'&dir\temp.vbs'";
  input;
  put _n_ 4. +1 _infile_;
run;

* Run the generated program ;
data _null_;
  infile "cscript ""&dir\temp.vbs""" pipe;
  input;
  put _infile_;
run;
Grand Advisor
Posts: 10,211

Re: converting xls files to xlsx files

Excel VB programming is your best bet.

Or go back to the SAS process that created them and change things to create XLSX instead of XLS.

Occasional Contributor
Posts: 12

Re: converting xls files to xlsx files

there are 300 scripts to go through and ithese are old legacy scripts created in sas ods.

Esteemed Advisor
Posts: 7,294

Re: converting xls files to xlsx files

If you're using the ODS EXCEL statement on 9.4 then the files should (I think) actually be XLSX files, but you gave them an xls extension. See: http://support.sas.com/documentation/cdl/en/odsug/69832/HTML/default/viewer.htm#p09n5pw9ol0897n1qe04...

 

Art, CEO, AnalystFinder.com

 

Occasional Contributor
Posts: 12

Re: converting xls files to xlsx files

these reports are legacy and have been created long back in sas !

Grand Advisor
Posts: 10,211

Re: converting xls files to xlsx files


Deepti44 wrote:

these reports are legacy and have been created long back in sas !


Use EXCEL VB script to modify existing files.

 

In 3 hours I know that I could have manually opened and done a file save as to xlsx for at least 150 files.

This is really an Excel problem since you say you do not want to change SAS code and recreate the files from scratch.

Ask a Question
Discussion stats
  • 9 replies
  • 135 views
  • 2 likes
  • 5 in conversation