使用 Excel 字段条目自动创建文件夹(使用模板文件夹)

使用 Excel 字段条目自动创建文件夹(使用模板文件夹)

我需要为 Excel 中生成的新职位编号生成文件夹。

每次使用新的工作编号更新 excel 表时,我都需要在设定的位置生成一个文件夹,文件夹名称是 excel 表中的工作编号

我已经找到并使用

使用 Excel 字段条目自动创建文件夹

Sub CreateFolders()

'Variable definations
Dim FolderListRange As Range
Dim FolderRange As Variant
Dim FolderName As String
Dim ParentFolderPath As String

On Error GoTo Handle
' Set the Folder where the individual folders should be created
ParentFolderPath = "Folders"

Set FolderListRange = ActiveSheet.Range("A2:A64000").SpecialCells(xlCellTypeConstants)

For Each FolderRange In FolderListRange
    If FolderRange.Offset(0, 1).Value = "" Then GoTo Continue

    FolderName = ParentFolderPath & "\" & FolderRange.Value & "-" & Format(FolderRange.Offset(0, 1).Value, "dd-mm-yyyy")

    If FileSystem.Dir(FolderName, vbDirectory) = vbNullString Then
        FileSystem.MkDir FolderName
    End If

Continue:
    Next

Handle:
End Sub

这可行,但我想知道是否可以使用模板文件夹创建新文件夹?

新的工作文件夹包含大量需要放入的子文件夹。

相关内容