关于读取文件夹中文件名的问题

ailvlv

请教各位老师，如何用VBA实现附件效果，需要读取文件夹“数据”里面的文件名，只保留姓名，保存到excel表的A列中，请老师指导一下学生，谢谢了！

测试数据.rar (7.37 KB, 下载次数: 8)

2023-3-16 09:49 上传

点击文件名下载附件

ailvlv

请老师指导一下学生，感谢

高个子

高个子

。。。。。。。。

cjc209

Sub 过程名()
    Dim k, arr()
    路径 = ThisWorkbook.Path & "\数据\"
    For Each 全路径文件名 In CreateObject("Scripting.FileSystemObject").GetFolder(路径).Files
    k = k + 1
     ReDim Preserve arr(1 To k)
       arr(k) = 正则替换(全路径文件名.Name, "[^\u4e00-\u9fa5]+", "")
    Next
    [b2].Resize(UBound(arr), 1) = Application.Transpose(arr)
End Sub
Function 正则替换(源字符串, 正则表达式, 新字符串, Optional 区分大小写 = False)       '正则替换
    Static regex As Object
    Dim temp
    If regex Is Nothing Then Set regex = CreateObject("VBScript.RegExp")
    With regex
        .Global = True
        .IgnoreCase = Not 区分大小写
        .Pattern = 正则表达式
        temp = .Replace(源字符串, 新字符串)
    End With
    正则替换 = temp
End Function

ailvlv

高个子 发表于 2023-3-16 16:04
。。。。。。。。

感谢老师的指导，学习了