我需要为 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
这可行,但我想知道是否可以使用模板文件夹创建新文件夹?
新的工作文件夹包含大量需要放入的子文件夹。