excel批量提取文件名称
2023-08-07 23:10:49 来源:互联网
(资料图片)
了解Excel批量提取文件名称
如果你需要批量提取文件夹中的文件名称,那么Excel是一个非常好的工具。Excel可以通过VBA宏编程来做到这一点。VBA是一种编程语言,它可以让你自动化Excel,并按照你的需求执行各种操作。
步骤1 打开VBA编辑器
在Excel中按下 Alt+F11 键可以打开VBA编辑器。在VBA编辑器中,选择菜单栏的“插入”,然后选择“模块”,这将在项目中创建一个新的模块。
步骤2 批量提取文件名称
下面是一个简单的VBA宏代码,它可以让你快速批量提取文件夹中的文件名称:
Sub ListFiles() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer Dim ws As Worksheet Set objFSO = CreateObject(\"Scripting.FileSystemObject\") Set objFolder = objFSO.GetFolder(\"C\\Folder\\\") Set ws = ActiveWorkbook.Sheets.Add With ws .Cells(1, 1) = \"File Name\" .Cells(1, 2) = \"File Path\" i = 2 For Each objFile In objFolder.Files .Cells(i, 1) = objFile.Name .Cells(i, 2) = objFile.Path i = i + 1 Next objFile End With Set objFile = Nothing Set objFolder = Nothing Set objFSO = Nothing Set ws = NothingEnd Sub
步骤3 运行VBA宏代码
在上面的代码中,你需要将“C\\Folder\\”替换为你想要提取文件夹中文件名称的路径。然后,运行代码即可。运行后,Excel将在一个新的工作表中列出文件夹中的所有文件名称。
步骤4 保存Excel文件
一步是将文件保存在你的计算机上。选择“文件”菜单下的“另存为”,然后选择一个目录以保存文件。现在,你已经成功地批量提取文件夹中的所有文件名称,并将其保存在一个Excel工作表中。
通过这种方法,你可以节省大量时间和精力,在Excel中批量提取文件名称,并将其保存在一个Excel工作表中。希望上述步骤可以帮助你轻松完成这项任务。
关键词:
相关阅读
-
excel批量提取文件名称
了解Excel批量提取文件名称如果你需要批量提取文件夹中的文件名称,那 -
荣泰健康:业绩说明会定于8月15日举行
荣泰健康(SH603579,收盘价:元)8月7日晚间发布公告称,公司2023年半 -
山东超半数地震伤者出院 列车陆续恢复运行
央视网消息:8月6日凌晨2时33分,山东德州平原县发生5 5级地震。目前, -
长沙海关开展法治宣传教育基地公众开放...
新湖南客户端8月7日讯(记者刘尚文通讯员王珂)8月7日,长沙海关在位于 -
蚂蚁集团旗下融资担保公司增资至30亿,...
2023年8月7日,天眼查显示,近日,商诚融资担保有限公司发生工商变更, -
山东财欣公司开展党风廉政警示教育“5+1...
大众网记者张腾通讯员孙丰波报道为持续营造公司浓厚廉洁文化氛围,近日 -
腾邦控股(06880):叶志礼辞任执行董事
腾邦控股(06880)发布公告,董事会已接获叶志礼先生日期为2023年6月26日的 -
多名游客在兵马俑大厅群殴
8月7日,陕西西安,网传多名游客在秦兵马俑遗址大厅群殴。视频显示,一 -
西安市气象台2023年08月07日18时50分发...
8月7日07时至18时,我市南部区县普降中到大雨,鄠邑区、长安区局地出现 -
快时尚“大挪移”
几乎每次进商场,大学生王月(化名)都会看到H&M橱窗后立着的红底白字 -
海南8月自然灾害风险研判报告出炉
商报全媒体讯(椰网 海拔新闻记者李兴民实习生甘景轩吴秋林)近日,省 -
立华股份上半年净利润亏损近6亿,黄羽鸡...
新京报贝壳财经讯(记者阎侠)8月7日,立华股份发布2023半年度报告。20 -
声动中国丨“青春,充满能量!”
第31届世界大学生夏季运动会在“天府之国”成都召开。用体育架起文... -
中信银行:董事长方合英、行长刘成任职...
中信银行:董事长方合英、行长刘成任职资格获核准 -
八旬爹爹突发中风无法行动,消防员上门...
八旬爹爹突发中风无法行动,消防员上门护送老人就医极目新闻记者叶文波 -
拜尔斯道夫上半年销售额超49亿欧元,将...
新京报贝壳财经讯(记者于梦儿)8月7日,新京报贝壳财经记者注意到,妮 -
东风公司捐赠3000万元,驰援京津冀抗洪...
今日晚间,东风汽车发公告宣布携旗下东风风神、岚图汽车等自主事业单元 -
江苏鼓励支持外商投资设立和发展研发中心
江苏省政府近日批准实施《关于鼓励支持外商投资设立和发展研发中心的若 -
家门口办理赔、黑科技上场!看保险业如...
近日,华北、黄淮等地出现极端降雨,引发洪涝和地质灾害。 -
李冰洁夺得成都大运会女子400米自由泳金牌
成都大运会女子400米自由泳决赛,中国选手李冰洁夺得金牌