☰

通过 Shell(cmd /c md) 创建文件夹\subfolder\file.xlsm 的宏

tag-icon • tag-icon microsoft-excel vba macros save-as
通过 Shell(cmd /c md) 创建文件夹\subfolder\file.xlsm 的宏

我发现了 nixda 编写的这个令人惊叹的代码......它创建了一个文件夹\子文件夹结构，该结构以工作表单元格中的值命名。

使用 VBA 宏创建文件夹和子文件夹。

是否也可以添加文件（.xlsm）？

文件夹\子文件夹\文件.xlsm

文件名为：

  • 今天的日期
  • 或其他任何东西（通过手机）

谢谢你！

蜜蜂

你好，Hannu，谢谢你的回复。

这是代码：

子创建文件夹结构()'使用 VBA 宏创建文件夹和子文件夹

Dim objRow As Range, objCell As Range, strFolders As String

For Each objRow In ActiveSheet.UsedRange.Rows
    strFolders = "C:\myRootFolder"
    For Each objCell In objRow.Cells
        strFolders = strFolders & "\" & objCell
    Next
    Shell ("cmd /c md " & Chr(34) & strFolders & ".xlsm" Chr(34))
Next

子目录结束

它会产生一个编译错误：“预期：列表分隔符或）”

再次感谢你！

答案1

答案：是的。方法：在末尾
添加 .xls 名称。CHR$(34)

相关内容