excel vba 怎样创建文件夹

在Excel VBA（Visual Basic for Applications）中，你可以使用`CreateObject`函数和`Folder`对象来创建一个新的文件夹。以下是一个简单的例子，展示如何在当前工作簿目录下创建新的文件夹：

Sub CreateNewFolder()
    Dim folderPath As String
    ' 设置新文件夹的路径，例如"新建文件夹"
    folderPath = ThisWorkbook.Path & "\新建文件夹"
    
    ' 创建文件夹
    Set objFolder = CreateObject("Scripting.FileSystemObject")
    If Not objFolder.FolderExists(folderPath) Then
        objFolder.CreateFolder folderPath
        MsgBox "文件夹已成功创建", vbInformation
    Else
        MsgBox "文件夹已存在", vbExclamation
    End If
    
    Set objFolder = Nothing ' 清理对象引用
End Sub

在这个VBA宏中，我们首先获取当前工作簿的路径，然后通过`FileSystemObject`创建一个新的子文件夹。如果文件夹不存在，则会创建；如果已经存在则提示用户。