如何使用excel提取文件夹中的所有文件名称?

如何使用excel提取文件夹中的所有文件名称?,第1张

使用excel提取文件夹中的所有文件名尺雀携称的方法主要有以下两个:\x0d\x0a1、在那个文件夹内新建一个.TXT文件(如wenjian.txt),用记事本单开输入\x0d\x0adir>1.txt\x0d\x0a保存退出\x0d\x0a将刚才的.TXT(wenjian.txt)更名为.bat文件陵伏(wenjian.bat)\x0d\x0a双击wenjian.bat文件运行一次,在文件夹内多出一个1.txt文件\x0d\x0a打开1.txt文件,将其中的内容粘贴到Excel中,数据——分列处理就可以得到你要的文件名列表了!\x0d\x0a2、VBA(2003版)\x0d\x0a在那个文件夹下新建Excel文件,打开新建的Excel文件,右击工作表标签(如Sheet1),查看代码——在代码编辑器中输入以下代码\x0d\x0aSub Test()\x0d\x0aDim i As Integer\x0d\x0aDim strPath As String\x0d\x0astrPath = ThisWorkbook.Path\x0d\x0aWith Application.FileSearch\x0d\x0a .LookIn = strPath\x0d\x0a .SearchSubFolders = True\x0d\x0a .Filename = "*.*"\x0d\x0a If .Execute >0 Then\x0d\x0a For i = 1 To .FoundFiles.Count\x0d\x0a Range("A" &i) = .FoundFiles(i)\x0d\x0a Next i\x0d\x0a End If\x0d\x0aEnd With\x0d\x0aEnd Sub\x0d\x0a回到Excel表岁衡格中,工具——宏——宏——选择Sheet1.Test——执行\x0d\x0a\x0d\x0a方法一简单的 *** 作就可以,方法二需要对程序有一定的了解,方法二通用性比较强,需要的时候执行一下就可以,更快捷。

题意理解:希望批量提取所有文件(注:特定某类文件),并批量建立超链接,当发给对方时,对方可以直接打开文件(注:双方对于文件路径均有共享权)

解法(该解法针对批量提取某类特定文件或所有文件,并批量建立超链接):

一. 批量提取文件

方法一. 微软WIN 8或者WIN 10 *** 作系统,可以借助自带功能实现批量获取文件夹内文件路径:选择全部文件或某类文件,同时按住shift和鼠标右键,会出现“复制为路径”的选项。

WIN 8或者WIN 10 *** 作系统获取文件路径

然后将路径粘贴到Excel中:

路径粘贴到Excel中

方法二. 没有“复制至路径”功能的微软电脑 *** 作系统,可以通过文件内容为“dir *.xlsx/s/on/b>文件路径dirxlsxsonb.txt”的.bat文件" highlight="true">bat文件获得,步骤如下:

1. 在欲得到宏乎文件路径的文件夹内新建一个txt文件

2. 在该文件内输入内容为“dir /s/on/b>获取路径.txt”

3. 该文件保存后改后缀为“.bat”

4. 运行该 bat 文件

5. 在“xlsx文件路径.txt”中复制所有内容

6. 粘贴在 Excel 文件中

7. 以“简历表”所有文件为例(若是“dir”改成“dir *.xlsx”则提取所判绝历有 xlsx文件的路径)

● 在“简历表”文件夹内新建一个TXT文档;

● 输入内容:“dir /s/on/b>获取路径.txt”;

● 保存后关闭,将txt文档后缀名改为.bat

● 双击生成的bat文件运行,将得到一个命名为“获取路径.txt”文件,打开后,可看到文件列表路径,复制到Excel中即可。

“简历表”文件夹内所有文件

二. 批量超链接

1. 在粘贴了文件路径的 Excel 文件内,在含文件路径的文件名单元格的相邻单元格内键入公式“=Hyperlink(Link-location,[Friendly-name])”

2. 以“简历表”的路径为例(注:公式中的“[Friendly-name]”即“A2”可以省去)

批量超链接公式

三. 针对题述要求的解法

1. 从图片上看,题述文件所在电脑 *** 作系统应该是 win7,所以可以用上述“批量提取文件”的“方法一”,即:

2. 在“A0101板材类”文件夹下,选取所有 .xlsx 文件,同时按住shift和鼠标右键,当出现“复制为路径”的选项时,鼠标左键点击该选项掘搜。

3. 在 Excel 文件内粘贴后,在其右边相邻的单元格内,键入公式“=Hyperlink(Link-location,[Friendly-name])”并下拉


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/12198517.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-21
下一篇 2023-05-21

发表评论

登录后才能评论

评论列表(0条)

保存