提取文件名+复制+改名+批量创建文件程序（Excel VBA版）

用Excel VBA做了个文件处理小工具，集合了文件名提取、文件复制、改名及批量创建文件、搜索复制文件的功能。

（注：如果是规则改名，建议使用 拖把更名器，使用起来更直观，下载链接中附拖把更名器程序）

程序界面截图

部分代码截图（600余条）

主要功能介绍：

1，提取文件名

1.1 批量提取选中文件的文件名

1.2 提取选中的文件夹下，所有的文件的文件名，层层穿透所有文件夹。

1.3 显示文件名完整路径

1.4 显示文件名及后缀

1.5 只显示文件名，去除后缀

1.6 显示文件名及路径，去除后缀

1.7 完整文件名路径，文件名及后缀，只显示文件名，显示文件名及路径但去除后缀；四者可实时切换显示。

2，复制文件

2.1 对选择的文件进行批量复制，复制的文件在【文件处理小工具】所在文件夹下的【1.复制的文件】夹中。

3，复制并重命名文件

3.1 对选择的文件进行批量复制并重命名，复制并重命名的文件在【文件处理小工具】所在文件夹下的【2.复制并改名的文件】夹中。【注：可以改文件名后缀】

4，批量创建文件

4.1 批量创建文件，即将一个文件批量复制并重命名。批量创建是文件在【文件处理小工具】所在文件夹下的【3.批量创建的文件】夹中。【注：可以改文件名后缀】

5，改名并移动文件

5.1 对选择的文件进行重命名，会将原文件重命名并移动到【文件处理小工具】所在文件夹下的【4.改名及移动的文件】夹中。如果文件不进行重命名的话，则会将文件进行移动。注意：重命名后不可撤销，建议将需要重命名的文件先复制一份再进行重命名。如需撤销，请将提取的原始文件名，复制到重命名栏，再次执行程序，以恢复原文件名。【注：可以改文件名后缀】

6，搜索复制文件

6.1 对选定文件夹，进行文件搜索并复制出来，搜索复制出来的文件在【文件处理小工具】所在文件夹下的【5.搜索复制的文件】夹中。

功能演示短视频

1，提取文件名【注：点击选择文件按钮，可选文件或文件夹；特别注意事项：1，后续所有功能均依赖文件按钮选择的文件；2，若B列用手动输入文件名，则后续功能不可用；3，B列文件名只可整行删除，若删除时使用单元格上移或左移，则后续功能受影响；4，B列或C列单元格数据用Delete键删除，后续功能不受影响】

https://mp.weixin.qq.com/cgi-bin/readtemplate?t=tmpl/video_tmpl&vid=wxv_2825352099818536962

https://mp.weixin.qq.com/cgi-bin/readtemplate?t=tmpl/video_tmpl&vid=wxv_2825355097806372865

2，复制文件【注：单独勾选复制，即为复制文件；文件必须一致，不能修改后缀；后缀及路径是否勾选不影响程序执行】

https://mp.weixin.qq.com/cgi-bin/readtemplate?t=tmpl/video_tmpl&vid=wxv_2825385193313304581

3，复制并改名文件【注：勾选复制及改名，即为复制并改名文件；可以修改文件后缀；后缀及路径是否勾选不影响程序执行，默认不改后缀】

https://mp.weixin.qq.com/cgi-bin/readtemplate?t=tmpl/video_tmpl&vid=wxv_2825405882002997249

3.1 改文件名后缀【技巧：先分离后缀，修改后缀之后，再合并后缀；修改后缀，必须勾选后缀】

https://mp.weixin.qq.com/cgi-bin/readtemplate?t=tmpl/video_tmpl&vid=wxv_2825407242517774337

4，批量创建文件【注：勾选批量创建，即为批量创建文件；默认使用B5单元格文件批量创建文件，务必保证B5单元格有文件；可以修改文件后缀，方法技巧参照3.1；后缀及路径是否勾选不影响程序执行，默认不改后缀】

https://mp.weixin.qq.com/cgi-bin/readtemplate?t=tmpl/video_tmpl&vid=wxv_2825474820707614720

5，改名及移动文件【注：单独勾选改名，即为改名及移动文件；如不改文件名，则移动文件；可以修改文件后缀，方法技巧参照3.1；后缀及路径是否勾选不影响程序执行，默认不改后缀】

https://mp.weixin.qq.com/cgi-bin/readtemplate?t=tmpl/video_tmpl&vid=wxv_2825477580173770754

6，搜索复制文件【注：单独勾选复制，同时保证B3单元格有路径，且B列B5及下方所有单元格无数据，即为搜索复制文件；如不改名，则移动文件；可以修改文件后缀，方法技巧参照3.1；后缀及路径是否勾选不影响程序执行，默认不改后缀】

https://mp.weixin.qq.com/cgi-bin/readtemplate?t=tmpl/video_tmpl&vid=wxv_2825478633564831745

7，其他，文件需要在关闭的状态下复制或改名。短视频无法一一展示所有功能，其余隐藏功能，欢迎大家探索。

结尾

以下为程序下载链接获取方式：

公众号：为赶路人干杯

公众号回复：VBA小工具

（后续如有制作VBA小工具都会放在共享这个文件夹中）