如何解决Excel VBA:如何提取名称中包含特定年份的子文件夹从“ 2020”开始的子文件夹并停在那棵树上
尝试使下面的代码适应
修复了以下拼写错误:
解决方法
如果2020已经包含在子文件夹名称中,则可以尝试 剩下的功能...
rgds
,
'lists information about the folders in SourceFolder
' example: ListSubFolders "C:","2020*"
Sub ListSubFolders(SourceFolderName As String,Optional pattern as string="")
Dim FSO As Scripting.FileSystemObject
Dim sf As Scripting.Folder,c As Range
Set c = sheets("Folders").Cells(rows.count,1).End(xlup).offset(1,0)
Set FSO = New Scripting.FileSystemObject
For Each sf In FSO.GetFolder(SourceFolderName).SubFolders
If Len(pattern)=0 or SourceFolder.Name Like pattern Then
' display folder properties
c.Resize(1,7).Value= Array( _
sf.Path,sf.Name,sf.Size,sf.SubFolders.Count,_
sf.Files.Count,sf.ShortName,sf.ShortPath)
End If
Set c = c.offset(1,0)
Next SubFolder
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。