[已解决]哪路大侠可以帮忙写一个根据表单批量新建文件夹和另存文件的宏？

walksss · 发表于 2013-12-12 07:45

哪路大侠可以帮忙写一个根据表单批量新建文件夹和另存文件的宏？
说白了就是列名称，拷贝，粘贴，另存为. 只不过加了新建文件夹的步骤。（如果新建文件夹过于复杂，那么拷贝粘贴，另存为文件即可，忽略新建文件夹的步骤可以忽略）
具体说来就是：
根据表二中的类别（A列) 新建文件夹（如图一所示），然后将表二中的人名，考入表一中的单元格B13，并另存一个文件在相应的文件夹中
例如：
1. 根据表二"部门"中A列的"类别"，先在文件所在文件夹新建文件夹: 路人，皇帝，国外企业家，国内
2. 将表二中B列的名称张三，拷贝粘贴在表一B13单元格中，将此文件存在刚才新建的”路人“文件夹，命名为 ”data-张三“
3. 再把李四考入B13单元格，文件名称为"data-李四"，也存在路人文件夹中。依次类推，
4. 然后到”秦始皇“的时候，新建文件夹皇帝，然后把文件也存入相应文件夹。
以此类推

另存为文件.zip (37.4 KB, 下载次数: 4)

walksss · 发表于 2013-12-12 11:21

哎，无人问津啊

zjdh · 发表于 2013-12-12 20:35

SaveAs.rar (17.56 KB, 下载次数: 68)

walksss · 发表于 2013-12-16 06:13

zjdh 发表于 2013-12-12 20:35

多谢！不过好像没有成功。提示这句语句有问题：

MkDir ThisWorkbook.Path & "\" & S(I)

能否帮忙看看？

zjdh · 发表于 2013-12-16 10:38

我这很正常啊！

zjdh · 发表于 2013-12-16 10:42

检查一下你的控件引用
未命名.JPG

walksss · 发表于 2013-12-18 06:43

查了，没问题，哎，太笨了，没办法，没成功

billyzhang0609 · 发表于 2014-4-12 10:44

zjdh 发表于 2013-12-16 10:38
我这很正常啊！

我运行了也正常。

不过为什么我看很多老师提供代码的模板都是“XLSM”格式的呢？

zjdh · 发表于 2014-4-12 10:58

billyzhang0609 发表于 2014-4-12 10:44
我运行了也正常。

不过为什么我看很多老师提供代码的模板都是“XLSM”格式的呢？

那是2007版及以上版本的文件，需要2003版的，只要另存为2003工作簿即可。

		自动登录	找回密码
密码			注册