Function getFiles(path As String) As Variant Dim fileNames() As String i = 1 Filename = Dir(path & "\*.xls?") Do While Filename <> "" ReDim Preserve fileNames(1 To, 视频播放量 2229、弹幕量 0、点赞数 44、投硬币枚数 11、收藏人数 138、转发人数 8, 视频作者 刀菜, 作者简介 分享excel小技巧,相关视频:【vba技巧】只需20行代码就能实现多表汇总,【2024