Excel│VBA实用小代码 提取文件夹内文件名干支论坛,人界重生,女生赶考路上被轧,美酒节特使 古拉加斯,伯爵与妖精结局,普宁新闻,乐清红磨坊酒吧,重生之铁血战将,谢雨欣近况,邵仲衡老婆是谁,三国群侠传武将,男子假冒军官行骗,基泰英,二位由木人,哈登最难防球员奖,极限街区365滚球违法吗_365滚球盘打不开_bet365滚球开户,1895淘金国度,李奇盎,乐分惠,都市进化眼,赵本山大徒弟去世!内幕太惊人,www.344844.com,天涯明月刀答题器,我男人是马尔福,克拉玛依南湖小学,银河文明3,痴情醉 妖孽在侧,黑铁之堡 醉虎 小说,红旅网,小秘大奔,重生之意外人生,血色圣光联盟,枯萎之壤 雷克顿,世家六月浩雪,梦梦奈,9c8598,个性头像网,斗破苍穹之淫靡肆虐,解静聆,大侦探福尔摩斯1qvod,静海一中投毒案,贵族笔记txt全集下载,厉鬼制造者,smartdeblur,低碳经济考试网址,魔鬼都市,fc冒险岛3,左威威,淮安男子行凶伤人,霜寒之翼,3u8794,星际海盗王,尊酷网365滚球违法吗_365滚球盘打不开_bet365滚球开户,仙尘引,一人的无限恐怖,momcen,e03008,真正的男人131013,陈良涛,两男子盗抢首饰,头号警花 王菲,穿越之福星高照,赵茂辰,翁宇君,今日美丽网,宠物森林先遣队,嗨茶网365滚球违法吗_365滚球盘打不开_bet365滚球开户,集物特李凌霄,英雄无敌之最强驯兽师,诏安何伟,冷宫失宠妃,吴天永,邮票价格查询网,忍者神龟之王者归来,宠物连连看3.1下载,凸眼猪,tintsetp,上海梦琴会所,云墙,uutxt,www.xxooyy.tk,嫌上班累宅家昏睡,周若岚,董佩永,贵宠艳妻,曾强保,小松菜奈,旷仁山,武月 梦立方,料理妈妈3,新漫堂,刘德华官方,冻伤男孩,花花邪少,非主流女生闪动头像,谷歌浏览器外贸版,春情只到梨花薄,亲梅逐马,8l9884,iptd-793, 365滚球违法吗_365滚球盘打不开_bet365滚球开户
首页 / 新闻 / 正文

Excel│VBA实用小代码 提取文件夹内文件名

KNgkdxnmp

大家好,我是涂涂

今天涂涂给大家分享的是使用VBA代码提取文件夹内文件名。

步骤1

◆选择【开发工具】选项卡,点击【Visual Baisc】选项,打开VBE窗口

或者按

也可以打开

◆在VBE窗口左侧工程资源管理器中,右键新建模块,然后双击模块

◆在VBE窗口右侧代码区写入代码,保存,关闭VBE窗口

代码:

Sub 提取文件夹内名称()

Dim FilePath As String

Dim FileName As String

Dim i As Integer

Rows("2:100000").ClearContents

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "请选择要查找的文件夹"

.InitialFileName = ThisWorkbook.Path

If .Show = 0 Then Exit Sub

FilePath = .SelectedItems(1) & "\"

End With

i = 2

FileName = Dir(FilePath)

Do While FileName <> ""

Cells(i, 1) = FileName

i = i + 1

FileName = Dir

Loop

End Sub

步骤2

◆选择【开发工具】选项卡,点击【插入】选项的下拉箭头,选择“按钮”控件

◆在工作表任意地方插入按钮控件,在指定宏对话框中,选择宏名,确定

步骤3


干支论坛,人界重生,女生赶考路上被轧,美酒节特使 古拉加斯,伯爵与妖精结局,普宁新闻,乐清红磨坊酒吧,重生之铁血战将,谢雨欣近况,邵仲衡老婆是谁,三国群侠传武将,男子假冒军官行骗,基泰英,二位由木人,哈登最难防球员奖,极限街区365滚球违法吗_365滚球盘打不开_bet365滚球开户,1895淘金国度,李奇盎,乐分惠,都市进化眼,赵本山大徒弟去世!内幕太惊人,www.344844.com,天涯明月刀答题器,我男人是马尔福,克拉玛依南湖小学,银河文明3,痴情醉 妖孽在侧,黑铁之堡 醉虎 小说,红旅网,小秘大奔,重生之意外人生,血色圣光联盟,枯萎之壤 雷克顿,世家六月浩雪,梦梦奈,9c8598,个性头像网,斗破苍穹之淫靡肆虐,解静聆,大侦探福尔摩斯1qvod,静海一中投毒案,贵族笔记txt全集下载,厉鬼制造者,smartdeblur,低碳经济考试网址,魔鬼都市,fc冒险岛3,左威威,淮安男子行凶伤人,霜寒之翼,3u8794,星际海盗王,尊酷网365滚球违法吗_365滚球盘打不开_bet365滚球开户,仙尘引,一人的无限恐怖,momcen,e03008,真正的男人131013,陈良涛,两男子盗抢首饰,头号警花 王菲,穿越之福星高照,赵茂辰,翁宇君,今日美丽网,宠物森林先遣队,嗨茶网365滚球违法吗_365滚球盘打不开_bet365滚球开户,集物特李凌霄,英雄无敌之最强驯兽师,诏安何伟,冷宫失宠妃,吴天永,邮票价格查询网,忍者神龟之王者归来,宠物连连看3.1下载,凸眼猪,tintsetp,上海梦琴会所,云墙,uutxt,www.xxooyy.tk,嫌上班累宅家昏睡,周若岚,董佩永,贵宠艳妻,曾强保,小松菜奈,旷仁山,武月 梦立方,料理妈妈3,新漫堂,刘德华官方,冻伤男孩,花花邪少,非主流女生闪动头像,谷歌浏览器外贸版,春情只到梨花薄,亲梅逐马,8l9884,iptd-793,

生辰八字起名字 http://www.bbqmw.net/qm_scbzqmz/
今日要闻