VBA -如何创建新文件夹和子文件夹以及保存工作簿

VBA（Visual Basic for Applications）是一种用于自动化任务和宏编程的编程语言，通常用于Microsoft Office套件中的应用程序，如Excel、Word和PowerPoint。在VBA中，可以使用以下代码来创建新文件夹和子文件夹以及保存工作簿：

1. 创建新文件夹：Sub CreateFolder() Dim folderPath As String folderPath = "C:\Path\To\New\Folder" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath MsgBox "New folder created successfully!" Else MsgBox "Folder already exists!" End If End Sub在上述代码中，将folderPath变量设置为新文件夹的路径。然后，使用Dir函数检查该路径是否已存在文件夹。如果文件夹不存在，则使用MkDir函数创建新文件夹，并显示成功消息。如果文件夹已存在，则显示相应的消息。
2. 创建子文件夹：Sub CreateSubfolder() Dim parentFolderPath As String parentFolderPath = "C:\Path\To\Parent\Folder" If Dir(parentFolderPath, vbDirectory) <> "" Then Dim subfolderName As String subfolderName = "Subfolder" Dim subfolderPath As String subfolderPath = parentFolderPath & "\" & subfolderName If Dir(subfolderPath, vbDirectory) = "" Then MkDir subfolderPath MsgBox "New subfolder created successfully!" Else MsgBox "Subfolder already exists!" End If Else MsgBox "Parent folder does not exist!" End If End Sub在上述代码中，首先检查父文件夹的存在性。如果父文件夹存在，则设置子文件夹的名称和路径。然后，使用Dir函数检查子文件夹路径是否已存在文件夹。如果子文件夹不存在，则使用MkDir函数创建新子文件夹，并显示成功消息。如果子文件夹已存在，则显示相应的消息。如果父文件夹不存在，则显示相应的消息。
3. 保存工作簿：Sub SaveWorkbook() Dim savePath As String savePath = "C:\Path\To\Save\Workbook.xlsx" ThisWorkbook.SaveAs savePath MsgBox "Workbook saved successfully!" End Sub在上述代码中，将savePath变量设置为要保存工作簿的路径和文件名。然后，使用SaveAs方法将工作簿保存到指定路径，并显示成功消息。

以上是使用VBA创建新文件夹和子文件夹以及保存工作簿的示例代码。请根据实际需求修改路径和文件名。对于更复杂的文件夹和文件操作，可以使用VBA提供的其他功能和方法来实现。