批量将工作薄移动或是复制到与之名称相同的文件夹中

（通用）移动或是复制工作薄到相应文件夹.xlsm (24.93 KB, 下载次数: 190)

2017-3-28 11:10 上传

点击文件名下载附件

在一个文件夹中有多个工作薄A,B,C,D,E,等等，现在要将这多个工作薄移动或是复制到D1目录下面的多个文件夹中，这些文件夹名称分别是A,B,C,D,E，也就是说要将工作薄A移到文件夹A中，工作薄B移到文件夹B中，以此类推。如果没有文件夹C存在，那么程序会在给定目录下面新建一个文件夹C，并把工作薄C移到或是复制到里面。如果A文件夹中原本就存在名称为A的工作薄，那么程序会先删除之，然后再将选择的工作薄A移动或是复制过去。移动或是复制的时候，会提示是否要更改工作薄名称，可以全部改成一样的，也可以在原工作薄名前面加个前缀。当然，也可以不改。如果选择改名，程序会判断文件夹中是否原本存在新改的名字的工作薄，存在就删除，然后才移动或是复制。