excev vba 如何更改工作薄名

来源：百度知道 编辑：UC知道 时间：2024/05/29 23:54:06
我某一文件夹下又分成了几十个文件夹,分别存放集团下面不同行业的数据,由于各单位上报的工作薄名称除了包含单位简称,还包含其他文字,有什么办法改成我设定的单位简称
谢谢各位大虾
如果一步不行,分成几步也行

如果你的这一个文件夹是A,下面设了30个子文件位,文件夹名称分别是各公司代码,而这些子文件夹下就是各公司报送的名称各异的工作簿,用vba有是方法:
1.调用dir,查找文件夹A下面的第一个有效文件夹(非.或..),记录其名称(变量s1),再次调用dir,查找子文件夹s1下的工作薄,记录文件名称(s2),然后: name s1 as s2(记得要在s1和s2前面加上完整的路径)
2. 调用dir,直到查找结束