我在Excel中使用宏尝试,但我无法得到我的确切要求。如何在Excel中获取文件夹名称?
例如:类别是文件夹名称。这里面分类我有很多文件夹一样 AAA BBB CCC DDD EEE
如何得到AAA在Excel EEE。
我在Excel中使用宏尝试,但我无法得到我的确切要求。如何在Excel中获取文件夹名称?
例如:类别是文件夹名称。这里面分类我有很多文件夹一样 AAA BBB CCC DDD EEE
如何得到AAA在Excel EEE。
此代码将获取路径内的每个文件夹中的单元格A1中定义的名称(如C :),并把它们列B:
Sub GetChildFolders()
Dim fso, categoryFolder, subFolder As Object
Dim i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Set categoryFolder = fso.GetFolder(Cells(1, 1).Value)
i = 1
For Each subFolder In categoryFolder.subfolders
Cells(i, 2) = subFolder.Name
i = i + 1
Next subFolder
End Sub
Alterantively,您可以创建一个新的公式,返回逗号分隔的列表与文件夹: (要创建新的配方,从添加一个新的模块插入菜单中的VBA的窗口)
Function GetChildFoldersList(ByVal path As String)
Dim fso, categoryFolder, subFolder As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set categoryFolder = fso.GetFolder(path)
For Each subFolder In categoryFolder.subfolders
GetChildFoldersList = GetChildFoldersList + subFolder.Name + ", "
Next subFolder
If GetChildFoldersList > 0 Then
GetChildFoldersList = Left(GetChildFoldersList, Len(GetChildFoldersList) - 2)
Else
GetChildFoldersList = "Folder is Empty!"
End If
End Function
您可以添加对** Microsoft Scripting Runtime **(** Tools - > References ... **)的引用,然后将'Dim fso As New Scripting.FileSystemObject'写入。 –
请注意,'fso'和'categoryFolder'键入为'Variant'。为了将它们输入为Object,必须为每个变量重复'As Object':Dim fso As Object,categoryFolder As Object,subFolder As Object'。 –
ŧ他正确处理范围。
它不假定子文件夹按字母顺序返回文件夹。 (在documentation中没有提及这样的事情)。
'Add a reference to 'Microsoft Scripting Runtime' (Tools -> References...)
Function ChildFolders(path As String) As String
Dim fso As New Scripting.FileSystemObject
Dim fldr As Scripting.Folder
Set fldr = fso.GetFolder(path)
Dim minFolder As String, maxFolder As String
minFolder = ""
maxFolder = ""
Dim x As folder
For Each x In fldr.SubFolders
If x.Name < minFolder Or minFolder = "" Then
minFolder = x.Name
ElseIf x.Name > maxFolder Then
maxFolder = x.Name
End If
Next
Select Case True
Case minFolder = "" And maxFolder = ""
ChildFolders = "(No folders)"
Case maxFolder = ""
ChildFolders = minFolder
Case Else
ChildFolders = minFolder & " to " & maxFolder
End Select
End Function
您可以在此使用Dir()。 –
如果您跳过文件夹会发生什么 - 例如'AAA','BBB','DDD','EEE'? –