(纯代码)Excel VBA-WE011 【子目录文件名获取】-文件名提取

(纯代码)Excel VBA-WE011 【子目录文件名获取】

Sub ListFile()
fpath = [A1]
If Right(fpath, 1) <> "\" Then fpath = fpath & "\"
Set d = CreateObject("Scripting.Dictionary")
d.Add fpath, ""
Zi = 1
i = 0
Do While Zi = 1 And i < d.Count
dpath = d.keys
fname = Dir(dpath(i), vbDirectory)
Do While fname <> ""
If fname <> "." And fname <> ".." Then
If GetAttr(dpath(i) & fname) = vbDirectory Then
d.Add (dpath(i) & fname & "\"), ""
End If
End If
fname = Dir
Loop
i = i + 1
Loop
leixing = InputBox(prompt:="Please输入查找文件后缀", Default:="xls")
leixing = "*." & leixing & "*"
For Each x In d.keys
fname = Dir(x & leixing)
Do While fname <> ""
ms1 = ms1 & fname & ","
ms2 = ms2 & x & fname & ","
fname = Dir
Loop
Next
If ms = "" Then ms = "没有符合要求的文件,"
Dim Jieguo
result1 = Application.Transpose(Split(ms1, ","))
result2 = Application.Transpose(Split(ms2, ","))
If UBound(d.keys) <> -1 Then
[A3].Resize(UBound(result1), 1) = result1
[B3].Resize(UBound(result2), 1) = result2
End If
Set d = Nothing
End Sub

代码分析,请查阅:

零基础学Excel VBA-WE011 【子目录文件名获取】

推荐阅读

    excel怎么用乘法函数

    excel怎么用乘法函数,乘法,函数,哪个,excel乘法函数怎么用?1、首先用鼠标选中要计算的单元格。2、然后选中单元格后点击左上方工具栏的fx公

    excel中乘法函数是什么?

    excel中乘法函数是什么?,乘法,函数,什么,打开表格,在C1单元格中输入“=A1*B1”乘法公式。以此类推到多个单元。1、A1*B1=C1的Excel乘法公式

    如何把老版本的excel更新换代?

    如何把老版本的excel更新换代?,更新换代,版本,如何,对于Excel来说,老版本的Excel更新换代要从软件工具更换、知识准备、应用环境配套3个角度

    标准差excel用什么函数?

    标准差excel用什么函数?,函数,标准,什么,在数据单元格的下方输入l标准差公式函数公式“=STDEVPA(C2:C6)”。按下回车,求出标准公差值。详细

    EXCEL如何统计个数?

    EXCEL如何统计个数?,个数,统计,如何,关于计数,最常用的就是Cout系列函数和Sumproduct函数。一、Count。功能:统计指定范围中数值类型值的个数

    EXCEL数据透视表怎么用?是干什么的

    EXCEL数据透视表怎么用?是干什么的,透视,干什么,怎么,excel透视表:数据透视表(Pivot Table)是一种交互式的表,可以进行某些计算,如求和与计数等

    pb获取电脑硬盘号|一pb硬盘

    pb获取电脑硬盘号|一pb硬盘,,一pb硬盘1PB是等于1024TB,等于1024*1024G硬盘pbr一般情况下,电脑系统运行变得缓慢、系统出现卡顿、系统中毒或