bobguy 发表于 2013-2-25 22:59 
1) The first one can be done in a excel vba.
2) The second one can be done by using libname engin ...
Here is the VBS for open files of xlsx (2007) into xls (2003). Suppose you have
c:\temp\Book1.xlsx
c:\temp\Book2.xlsx
and want to save them as
c:\temp\_Book1.xls
c:\temp\_Book2.xls
The following vbs can be easily generated by a simple sas macro or by a data step dynamicly.
Then issues a x command in SAS or goes dos window to execute it.
data _null_;
x 'c:\temp\openxlsx.vbs';
run;
-----------------------------------------------------------------------
Const xlDelimited = 1
Const xlWorkbookNormal = -4143
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False
objExcel.Workbooks.Open("c:\temp\Book1.xlsx")
objExcel.Workbooks.Open("c:\temp\Book2.xlsx")
objExcel.Workbooks("Book1.xlsx").SaveAs _
"c:\temp\_Book1.xls", xlWorkbookNormal
objExcel.Workbooks("Book2.xlsx").SaveAs _
"c:\temp\_Book2.xls", xlWorkbookNormal
objExcel.Workbooks("_Book1.xls").Close
objExcel.Workbooks("_Book2.xls").Close
objExcel.Quit