vba怎么获取文件夹名称

要获取文件夹名称，可以使用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 "文件夹名称为：" & FolderNameEnd Sub

在代码中，首先将要获取的文件夹路径设置为FolderPath变量。然后，创建一个FileSystemObject对象并使用GetFolder方法获取文件夹对象。最后，通过Folder.Name属性获取文件夹名称，并显示在消息框中。

请根据自己的实际需求修改文件夹路径。