如何用excel提取一个文件夹下的所有文件名
用excel提取一个文件夹下的所有文件名的方法主要有以下两个:1、在那个文件夹内新建一个.TXT文件(如wenjian.txt),用记事本单开输入dir>1.txt保存退出将刚才的.TXT(wenjian.txt)更名为.bat文件(wenjian.bat)双击wenjian.bat文件运行一次,在文件夹内多出一个1.txt文件打开1.txt文件,将其中的内容粘贴到Excel中,数据——分列处理就可以得到你要的文件名列表了!2、VBA(2003版)在那个文件夹下新建Excel文件,打开新建的Excel文件,右击工作表标签(如Sheet1),查看代码——在代码编辑器中输入以下代码Sub Test()Dim i As IntegerDim strPath As StringstrPath = ThisWorkbook.PathWith Application.FileSearch.LookIn = strPath.SearchSubFolders = True.Filename = "*.*"If .Execute >0 ThenFor i = 1 To .FoundFiles.CountRange("A" & i) = .FoundFiles(i)Next iEnd IfEnd WithEnd Sub回到Excel表格中,工具——宏——宏——选择Sheet1.Test——执行方法一简单的操作就可以,方法二需要对程序有一定的了解,方法二通用性比较强,需要的时候执行一下就可以,更快捷。
有什么软件可以将大量文件和文件夹的文件名一下子提取到记事本里, ...
使用批处理命令来实现批量提取文件夹内文件名.一个文件夹下面有很多文件,如果要批量提取文件夹内所有文件名,知道如何操作吗?比如,笔者电脑里面E盘文件夹下面有一个“4.2函数经典再现”的文件夹,想将这个文件夹下面的所有文件名批量提取到一个记事本文件里面。
如果你也想批量提取文件名(批量获取一个文件夹内所有文件的文件名),可以按下面的步骤进行。
第一步,新建一个txt格式的记事本文件。
第二步,在记事本文件中输入:DIR *.* /B >LIST.TXT第三步,将此记事本文件后辍名,由txt改为bat。
会弹出重命名对话框,单击“是”。
第四步,双击文件“新建文本文档.bat”即可生成list.txt文件。
打开txt文件就可以看到当前文件夹内的所有文件名列表。
(温馨提示:你也可以把文件“新建文本文档.bat”放在其他文件夹里运行,获取当前文件夹下面的所有文件名哦!)
亲。
你那个能提取文件名和文件大小的软件是什么
比如,这里如果想要把“7.21”这个文件夹里面的文件,要做个整理,把文件名称都汇总在一个excel表格了,常见的就是一个一个复制文件名称,然后新建excel表格,但这样效率很慢。
快速提取文件名称方法一:使用,打开Chrome 浏览器——把“7.21”整个文件夹拖到浏览器里面——自动生成目录——全选复制,然后粘贴到新的excel表格中——调整修改一下,做个美观度调整即可。
是不是很简单快速,但是好像只有部分的浏览器支持,除了Chrome 浏览器,也试了一下360浏览器也是可以的,但是百度浏览器就不支持,当然喜欢的话也可以多找几个去试试看,看看可否有目录产生。
快速提取文件名称方法二:在桌面新建一个文本文档——写入“DIR *.* /B >;文件名列表.CSV”这个代码——另存为另存为 .bat 格式——把保存的bat文件放到“7.21”这个文件夹里面——双击,就行了。
双击保存的bat文件,就会生成一个刚刚命名的“文件名列表.CSV”里面就包含了“7.21”这个文件夹所有的文件名称,又快又不会出遗留,就是会多出两个没有作用的文件名称,删去了就可以了。
当然,还有第三种方法,只是暂时先不提及一下,前面两种就可以选择了,为什么要批量提取文件夹中的文件名称,这个自然是有很大的用处的,后续会继续说到一个制作一份文档目录就需要用到了。
如何用excel宏提取文件名生成目录?如何用excel宏提取文件名生成目...
方法一:1、在那个文件夹内新建一个.TXT文件(如wenjian.txt),用记事本单开输入dir>1.txt保存退出将刚才的.TXT(wenjian.txt)更名为.bat文件(wenjian.bat)双击wenjian.bat文件运行一次,在文件夹内多出一个1.txt文件打开1.txt文件,将其中的内容粘贴到Excel中,数据——分列处理就可以得到你要的文件名列表了!方法二:在那个文件夹下新建Excel文件,打开新建的Excel文件,右击工作表标签(如Sheet1),查看代码——在代码编辑器中输入以下代码:Sub aaa()f = Dir("c:\*.*")han = 1Do While f >""Cells(han, 1).Value = fhan = han + 1f = DirLoopEnd Sub回到Excel表格中,工具——宏——宏——选择Sheet1.Test——执行看看效果吧!另外可以到http://www.excelhome.net/,看看有没有更适合你的。