要获取文件夹名称，可以使用VBA中的FileSystemObject对象的GetFolder方法。
下面是一个简单的示例代码：
Sub GetFolderName()
Dim FSO As Object
Dim FolderPath As String
Dim FolderName As String
' 设置文件夹路径
FolderPath = "C:\Path\To\Folder"
' 创建FileSystemObject对象
Set FSO = CreateObject("Scripting.FileSystemObject")
' 获取文件夹对象
Dim Folder As Object
Set Folder = FSO.GetFolder(FolderPath)
' 获取文件夹名称
FolderName = Folder.Name
' 显示文件夹名称
MsgBox "文件夹名称为：" & FolderName
End Sub
在代码中，首先将要获取的文件夹路径设置为FolderPath变量。然后，创建一个FileSystemObject对象并使用GetFolder方法获取文件夹对象。最后，通过Folder.Name属性获取文件夹名称，并显示在消息框中。
请根据自己的实际需求修改文件夹路径。
