您正在使用IPV4(35.153.166.111)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年74元       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
虚位以待
2021年 冬至节 14
2021年 圣诞节 18
2022年 元 旦 25
2022年 春 节 56
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> 办公软件 >> 内容
    快速提取文件夹内的文件名
    内容摘要: 接下来咱们以Excel2016为例,说说具体的操作方法:1、依次单击【数据】→【获取数据】→【自文件】→【自文件夹】2、点击【浏览】按钮,找到文件夹位置。3、在数据查询编辑器中,右键单击Name字段,删除其他列。4、最后单击【关闭并上载】。使用此方法,可以快速提取出包含子文件夹在内的所有文件列表,如果在文件夹中增加了子文件夹或是新增了文件,只要在汇总表中单击......
    接下来咱们以Excel2016为例,说说具体的操作方法:

    1、依次单击【数据】→【获取数据】→【自文件】→【自文件夹】

    2、点击【浏览】按钮,找到文件夹位置。

    3、在数据查询编辑器中,右键单击Name字段,删除其他列。

    4、最后单击【关闭并上载】。

    使用此方法,可以快速提取出包含子文件夹在内的所有文件列表,如果在文件夹中增加了子文件夹或是新增了文件,只要在汇总表中单击右键→刷新。就可以可获取最新的文件名列表。

    如果是低版本的Excel,还可以使用VBA代码的方法来提取:

    SubFileDir()

    Dimp$,f$,k&

    '获取用户选择文件夹的路径

    WithApplication.FileDialog(msoFileDialogFolderPicker)

    '选择文件夹

    If.ShowThen

    p=.SelectedItems(1)

    '选择的文件路径赋值变量P

    Else

    ExitSub

    '如果没有选择保存路径,则退出程序

    EndIf

    EndWith

    IfRight(p,1)<>"\"Thenp=p&"\"

    f=Dir(p&"*.*")

    '返回变量P指定路径下带任意扩展名的文件名

    '如果有超过一个文件存在,将返回第一个找到的文件名

    '如果一个文件都没有,则返回空

    [a:a].ClearContents'清空A列数据

    [a1]="目录"

    k=1

    DoWhilef<>""

    '如果文件名不为空,则……

    k=k+1

    '累加文件个数

    Cells(k,1)=f

    f=Dir

    '第二次调用Dir函数,但不带任何参数,则将返回同一目录下的下一个文件。

    Loop

    MsgBox"OK"

    EndSub

    上一篇:wps绿色条纹边框的做法 下一篇:在Word文档中添加Logo
    发布日期:2021/11/10
    手机扫二维码直达本页
    发布时间:14:31:17
    点击:272
    录入:壹家怡园
    相关文章
    Baidu
    YiJiaCMS 6.0.9.10888 Build 21.11.30(MSSQL) 闽ICP备05000814号-1
    本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
    ©2000-2021