excel批量生成n个文件夹

⑴ 如何批量处理以下操作！批量更改n个指定文件名，批量移动n个文件到n各文件夹，excel批量超级链接！

用Excel编宏,先取所有的照片文件名填入Excel表中
将取出来的文件名与学员名对应,写成如下格式(可在一个单元格写,也可在三个单元格写)
REN d:\YP0252.jpg 张三.jpg
将内容复制到BAT文件中运行一遍即可改掉所有的照片文件名
至于超接链接,编一个宏运行一下就行,宏很简单

⑵ 如何用Excel做文件夹

1、打开员工信息表，要将员工姓名这一列排列整齐，可以设置为居中、左对齐、右对齐等。

⑶ 怎样批量建立文件夹下面N个子文件夹

答1：可以不反复进出各子目录，只是写bat文件的时候，需要把子目录名字重复几遍而已。

答2：首先，md这个命令可以批量创建，但是相邻两个文件夹的创建地址和名称都是由空格隔开的，所以如果文件夹名称里带有空格的话，这个文件夹名字还得用双引号括起来。

根据你的描述，你希望的结果是：md20175月20176月

另外，你有提到希望批量建立子文件夹。

我常用的方法是，用excel结合cmd。批量建立有规律的子文件夹的话，比如漫画目录“第XX话”这种的，直接在Excel里面利用自动填充+简单的字符串拼接，就可以把md语句写好，然后直接复制做成bat，还是挺简单的。 如果子文件夹命名不太规律，那可能还是得手动输入。或者使用一些excel里跟字符串有关的公式啥的。 这里不展开说了。

至于多层层级，就是继续往后加斜杠，比如“md 20175月上旬20175月下旬” 就是在“2017”文件夹中的“5月”文件夹内，再建立两个文件夹：“上旬”和“下旬”。（这个如果批量数量很多的话，也可以利用excel完成。）

⑷ 如何将含多个sheet的excel按照一列拆分成N个含多个sheet的excel文件

将含多个工作表的Excel文件按照每个工作表的一列拆分成多个Excel文件，有两种方法：
第一种方法：利用编程工具，自己编写代码处理；
第二种方法：利用WPS表格的拆分功能将每个工作表拆分成多个Excel文件后，再利用合并表格功能将拆分后的Sheet1、Sheet2、Sheet3、Sheet4进行多次合并操作。

⑸ 怎么快速批量创建文件夹

网上快速批量创建文件夹的办法多如牛毛。职场小白带你简单、快捷批量创建文件夹。

工具/材料

台式电脑一台

在电脑主界面或者在在文件夹里面，依顺序同时按快捷键“Ctrl+Shift+N”或者点击鼠标右键选择新建文件夹。

选中新建好的文件夹，按“Ctrl+C”复制，再按“Ctrl+V”粘贴。

根据自己对文件夹需求的个数，重复上述步骤即可。

选中文件夹，按“F2”重命名搞定。

特别提示

1.记几个快捷键，一劳永逸。

2.此方法建议新建文件夹数量在20个及以下。因为你一时半会还用不了那么多文件夹。

⑹ 有n个xls的表格，怎样一次批量添加n个文件

启动Excel程序，单击工具-宏-宏...，在宏对话框中，在宏名中输入 add，单击创建，在打开的宏编辑器中，直接复制粘贴如下代码：
Dim App, Xls As Object
Set App = CreateObject("Excel.Application")
App.Visible = 0
App.DisplayAlerts = 0
For i = 1 To 1000 '这里的1000，自己根据该文件夹中需要处理的实际工作簿的数量来定，不需要处理的工作簿，请移走
On Error Resume Next
Set Xls = App.Workbooks.Open("D:\test\公司" + Trim(Str(i)) + ".xls") 'D:\text，自己修改为该文件夹的实际路径，后面的原样不动，默认为97-2003版本的表
On Error Resume Next
If Xls Is Nothing Then Set Xls = App.Workbooks.Open("D:\test\公司" + Trim(Str(i)) + ".xlsx") '如果不是97-2003版本的表，则为2007及以上版本的表
On Error Resume Next
If Xls Is Nothing Then Set Xls = App.Workbooks.Open("D:\test\公司" + Trim(Str(i)) + ".xla") '如果不是2007版本的表，判断是否为97-2003加载宏的表
On Error Resume Next
If Xls Is Nothing Then Set Xls = App.Workbooks.Open("D:\test\公司" + Trim(Str(i)) + ".csv") '如果不是97-2003版本加载宏的表，判断是否为97-2003或2007及以上版本的csv表
On Error Resume Next
If Xls Is Nothing Then Set Xls = App.Workbooks.Open("D:\test\公司" + Trim(Str(i)) + ".xlsm") '如果不是csv表，判断是否为2007及以上版本的加载宏的表
If Xls Is Nothing Then GoTo nextsheet '如果都不是以上这几种类型版本的表，则跳过不处理了
App.Sheets(1).Activate '只操作每个工作簿中的表1，如果要操作其他表，得需要用到循环
App.Range("A18").Select
App.ActiveCell.FormulaR1C1 = Trim(Str(i))
App.ActiveWorkbook.Save
App.ActiveWorkbook.Close
Set Xls = Nothing
nextsheet:
Next i
MsgBox "处理完毕", vbInformation, "消息"
App.DisplayAlerts = -1
App.Quit

代码粘贴好之后，先修改你的这1千个工作表所在的文件夹的具体路径，然后按F5运行即可，本宏后台运行Excel，看不到所打开的电子表格，处理完毕后自动给出消息。