vba获取文件夹下所有文件名_VBA分享--从文本中提取固定字母开头的款号

前几天领导安排了同事一项任务，因为任务量非常大，基本上整个部门都去支援了。这项任务就是将图片文件名中的款号单独复制黏贴到EXCEL表中，如下图：

将图片文件名中的款号如红色框框圈中的F293232029，复制到Excel表中，如果1个文件名中有多个款号都要复制到Excel表中，如果款号一样就不要复制黏贴了。因为图片太多，所以每个同事包括我都分到了200张左右的图片。。。。T_T

手动复制黏贴是不可能的，这辈子都不可能的，机械的工作当然是用机器去做~~~

—— —— —— —— ——手动分割—— —— —— —— —— ——

思路：①批量获取每个图片的文件名，②批量获取每个文件名中的款号复制黏贴

第一步批量获取文件名：思路我懂但方法我不懂啊，于是遵循着有不懂就百度的原则，很幸运成功搜到了方法。

1、首先打开要提取文件名的文件夹，新建一个txt文本文件。

2、编辑txt文本，输入以下批处理命令，保存文本文件。