基于单元格值vba创建文件夹、子文件夹、另一个子文件夹并保存自定义文件名

Sub CreateFoldersAndSaveFile()
    Dim fso As Object
    Dim mainFolder As Object
    Dim subFolder1 As Object
    Dim subFolder2 As Object
    Dim fileName As String
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取单元格的值作为文件夹名称
    Dim folderName As String
    folderName = Range("A1").Value
    
    ' 创建主文件夹
    Set mainFolder = fso.CreateFolder("C:\MainFolder")
    
    ' 创建子文件夹1
    Set subFolder1 = fso.CreateFolder("C:\MainFolder\" & folderName)
    
    ' 创建子文件夹2
    Set subFolder2 = fso.CreateFolder("C:\MainFolder\" & folderName & "\SubFolder2")
    
    ' 保存文件到子文件夹2中
    fileName = "CustomFileName.txt"
    subFolder2.Path = "C:\MainFolder\" & folderName & "\SubFolder2"
    ActiveWorkbook.SaveAs subFolder2.Path & "\" & fileName
    
    ' 释放对象
    Set fso = Nothing
    Set mainFolder = Nothing
    Set subFolder1 = Nothing
    Set subFolder2 = Nothing
End Sub