当前所在位置: 首页 > 数码科技 > 正文

excel怎么获取文件夹中的文件名

2023-10-04 本站作者 【 字体:

如果你需要批量处理文件夹中的文件,那么获取文件名就是必需的一步。Excel可以用vba代码获取文件夹中的文件名,省去手工一个一个复制粘贴的繁琐操作。下面以获取文件夹中所有文件名为例,介绍具体方法。

Step1:新建工作簿

打开Excel,新建一个工作簿,按下Alt+F11,打开VBA编辑器。

Step2:编写VBA代码

在项目窗格中选择新建一个模块,输入以下VBA代码:

 Sub GetFilesName()
     Dim ObjFso As Object
     Dim ObjFolder As Object
     Dim ObjFile As Object
     Dim i As Integer
     
     Set ObjFso = CreateObject(\"Scripting.FileSystemObject\")
     Set ObjFolder = ObjFso.GetFolder(\"文件夹路径\")
     
     For Each ObjFile In ObjFolder.Files
         Cells(i + 1, 1) = ObjFile.Name
         i = i + 1
     Next
     Set ObjFso = Nothing
     Set ObjFolder = Nothing
     Set ObjFile = Nothing
 End Sub
 

Step3:修改文件夹路径

将代码中的“文件夹路径”替换成实际文件夹的路径。例如:“D\\pictures”。

Step4:运行VBA代码

返回Excel窗口,按下F5运行VBA代码。代码将会自动执行,将文件夹中所有文件名写入Excel工作表中。

Step5:优化操作

为了避免每次运行VBA代码,都需要手动修改文件夹路径,我们可以通过Excel宏编写功能,使得代码在需要获取文件夹中文件名的时候自动运行。具体步骤如下:

  1. 复制上述VBA代码。
  2. 按下Alt+F8,打开“宏”对话框,输入宏名,点击“创建”。
  3. 在“宏编辑器”窗口粘贴VBA代码,去掉“Sub”和“End Sub”,留下中间内容。
  4. 打开Excel工作簿,按下Alt+F11,打开VBA编辑器,选择“这台电脑”的项目,并右键选择“插入-模块”,将代码粘贴进去。
  5. 将文件夹路径改成动态变量:
  6. Sub Auto_Open()
        Dim MyFolderPath As String
        MyFolderPath = \"D\\pictures\"
        Call GetFilesName(MyFolderPath)
    End Sub
    Sub GetFilesName(MyFolderPath As String)
        Dim ObjFso As Object
        Dim ObjFolder As Object
        Dim ObjFile As Object
        Dim i As Integer
        
        Set ObjFso = CreateObject(\"Scripting.FileSystemObject\")
        Set ObjFolder = ObjFso.GetFolder(MyFolderPath)
        
        For Each ObjFile In ObjFolder.Files
            Cells(i + 1, 1) = ObjFile.Name
            i = i + 1
        Next
        Set ObjFso = Nothing
        Set ObjFolder = Nothing
        Set ObjFile = Nothing
    End Sub
    

总结

通过上述方法,我们可以用Excel轻松地获取文件夹中的文件名。VBA代码和宏可以帮助我们实现自动化处理,大大提高工作效率。这个技巧不仅适用于文件名的获取,也可以应用到其他需要批量处理的操作上。

阅读全文
相关推荐

太原市旅游攻略 太原最值得去的地方

太原市旅游攻略 太原最值得去的地方
太原经典1日游:太原第一站先游览山西省博物馆感受5000年的中华文明史,了解感受夏商踪迹、晋国霸业、佛风遗韵、明清晋商文化;然后可以去太原最大的的迎泽公园感受当地人民的生活气息,再去太原食品街寻找美食。

密云古北水镇旅游攻略 密云古北水镇一日游攻略

密云古北水镇旅游攻略 密云古北水镇一日游攻略
古北水镇位于密云东北侧,是一处在古村基础上改造重建的古镇景区。古镇依水而建,即有北方古镇的大气威严,也不失江南水乡的特色,可以泡温泉、品尝美食、爬司马台长城等,是京郊地区休闲度假不错的选择。古镇内不通车,非常适合步行游玩。

银川沙湖旅游攻略 银川沙湖几月份去最好

银川沙湖旅游攻略 银川沙湖几月份去最好
宁夏沙湖旅游景区地处贺兰山下、黄河金岸,20余平方公里沙漠与40余平方公里水域毗邻而居,拥有万亩水域、两千亩芦苇、千亩荷池、五千亩沙丘,这里栖居着白鹤、黑鹤、天鹅等十数种珍鸟奇禽,被誉为“世间少有”的文化旅游胜地。

黔东南旅游攻略 贵州黔东南旅游攻略自由行

黔东南旅游攻略 贵州黔东南旅游攻略自由行
黔东南苗族侗族自治州位于贵州省东南部,地处云贵高原东南边缘,东邻湖南,南接广西,境内居住着苗、侗、汉、布依、水等20多个民族,民族风情非常浓郁。这里有世界上最大的苗寨和最大的侗寨,有独特的吊脚楼、风雨桥、鼓楼。秋季是到黔东南旅行的最好时间,雨水不会像夏季般频繁,气温不会像冬季时寒冷,温度适宜。

青海湖旅游住宿攻略 青海湖环湖住宿攻略

青海湖旅游住宿攻略 青海湖环湖住宿攻略
由于青海湖距离西宁较远,所以建议在青海湖周边过夜,以便欣赏日出日落等美景。目前青海湖周边住宿的选择地方主要有以下几个:一、二郎剑景区附近:这里是青海湖唯一的官方景区,也是观看日出最佳的地点之一。这里有多家酒店和民宿可供选择,价格根据季节和设施不同而不同,旺季每晚约200-500元,淡季每晚约100-300元。

丽江大理洱海旅游攻略 丽江大理攻略最佳旅游攻略

丽江大理洱海旅游攻略 丽江大理攻略最佳旅游攻略
丽江古城一日游攻略:今日主要游览丽江古城,漫步在古城小巷,尽情享受古城慵懒的氛围,还可以在街头巷尾寻觅各式丽江特色小吃来填补肚子。之后前往狮子山,登上狮子山的制高点—万古楼,俯瞰整个丽江古城,运气足够好的话向北可以远眺到玉龙雪山。下了狮子山顺路去木府,近距离欣赏古城内这座仿紫禁城的纳西宫廷式建筑。傍晚回到古城,在四方街感受古城的夜生活,还可以去酒吧消遣一番,说不定会碰上美好的艳遇。古城西侧的狮子山公园是观赏古城全景的最佳去处,除了山顶的万古楼,公园有很多点都可以看到古城和雪山。

长春旅游攻略景点必去 长春市区旅游攻略必去景点

长春旅游攻略景点必去 长春市区旅游攻略必去景点
1、吉林省博物院:吉林省博物院,原名吉林省博物馆。吉林省博物院是一座历史与艺术博物馆,现有文物藏品12万余件,其中一级文物295件、二级文物3379件、三级文物14280件、其它文物近10万件,始自远古,及至现代,精华荟萃,内涵丰富。2、伪满皇宫博物院:伪满洲皇宫博物院建立在伪满皇宫旧址上,是末代皇帝爱新觉罗•溥仪充当伪满洲国傀儡皇帝时居住的宫殿,可见到御用汽车等文物。皇宫可分为进行政治活动的外廷和日常生活的内廷两部分,现分别辟为伪满皇宫陈列馆和伪满帝宫陈列馆,有缉熙楼、中和门、怀远楼、同德殿等建筑景观。

康定新都桥旅游攻略 新都桥必去的几个景点

康定新都桥旅游攻略 新都桥必去的几个景点
新都桥又称东俄罗,位于318国道川藏南北线的分叉路口,号称“摄影家的天堂”。在这可以拍摄到无垠的草甸,曲折的溪流,金黄的秋叶,山坡上大片在觅食的牛羊,散落着的藏族村寨,在金秋来临之际不失为赏秋的好去处,随便一按快门都能得出一张美丽的风景照。此外,国家地理推荐最佳欣赏蜀山之王——贡嘎山的观景点正是在新都桥,天气好可拍摄日照金山之景。

普陀山自驾旅游攻略 普陀山旅游自驾游攻略

普陀山自驾旅游攻略 普陀山旅游自驾游攻略
普陀山在浙江省舟山市普陀区,是舟山群岛1390个岛屿中的一个小岛,形似苍龙卧海,面积近13平方公里,与舟山群岛的沈家门隔海相望,素有“海天佛国”、“南海圣境”之称,是首批国家重点风景名胜区。

南昌旅游攻略景点必去 南昌必看的旅游点

南昌旅游攻略景点必去 南昌必看的旅游点
1、滕王阁:滕王阁临赣江而立,因王勃的《滕王阁序》而闻名,是“江南三大名楼”之一,也是南昌的地标。景区主要由滕王阁主阁,和南北两面的小园子组成,登楼望远是游人来此的主要目的。主阁从外面看是三层带回廊的建筑,其实它里面还有三个暗层和一个设备层,加上两层底座,一共有九层。2、八一广场:位于江西省南昌市的心脏,是江西政治、经济、文化、休闲、娱乐等活动的重要场所。由中心广场、主席台、东西二块游园组成,是江西省最大的城市中心广场。广场中心伫立着由元帅题写的“八一南昌起义纪念塔”,很多游客会在此合影。
本文Tag