如果批量将excel 2007变成excel 2000，如何导入一个excel的多个sheet

并且每个datasets中增加一个变量，值为sheet的名字。

本文来自: 人大经济论坛 SAS专版 版，详细出处参考： https://bbs.pinggu.org/forum.php? ... amp;from^^uid=3523323
后面通过j这个loop j 中加上一小段merge代码,应该可以实现。
但以sheet名作为变量名，如果有大批sheets且名称无规律，不宜批量处理。

供参考。

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

新人2012 发表于 2013-2-26 15:45
尊敬的版主
您看下面的代码是不是您所需要的东西？从去年写过的一段代码摘录过来的(oop i for excel files ...

非常感谢，太长了，抽个时间看一下

bobguy 发表于 2013-3-3 10:56
Here is the VBS for open files of xlsx (2007) into xls (2003). Suppose you have
c:\temp\Book1.xl ...

抽个时间了解一下vba，太感谢了

Imasasor 发表于 2013-2-26 10:29
都没报错，但格式没转变啊
options noxwait xsync;
x "ren C:\Documents and Settings\chao\桌面\待整理 ...

我觉得你不应该放在桌面上，而且你的路径里面有中文。
我过去碰上几次这样的事情，后来尽量不放在桌面上，而且路径里面尽量不要有空格和中文。
我也不知道我的经验对你有没有用。