要獲取文件夾名稱，可以使用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屬性獲取文件夾名稱，并顯示在消息框中。
請根據自己的實際需求修改文件夾路徑。
