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

Question

我需要生成包含某些 Excel 字段条目的文件夹：

此外，我需要根据该条目在文件夹名称后附加一个日期

因此，如果我有上述 Excel 表，则需要在同一目录中生成以下一组文件夹：

可以使用宏来实现吗？另外，如果我添加另一个条目我该如何生成另一个文件夹仅适用于该条目；例如我添加另一个项目 CWO-1106：

基本上，我想继续更新 Excel 表，仅为新条目创建文件夹

任何帮助都将不胜感激。谢谢！

Answer 1

这是宏。

• 在运行宏之前，请确保包含项目 ID 和开始日期的电子表格处于视图中（被选中）。

• 在 ParentFolderPath 中设置要创建这些文件夹的文件夹

  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