☰

创建文件夹结构，并在单元格（或弹出窗口）中定义路径

tag-icon • tag-icon microsoft-excel vba macros
创建文件夹结构，并在单元格（或弹出窗口）中定义路径

我是 Excel VBA 的新手，想知道您是否能帮我找到解决方案。

因此，我想创建一个 Excel 电子表格，以便在特定位置创建一个文件夹结构。

我使用以下代码解决了文件夹结构位的创建问题：

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

我遇到的问题是从单元格定义位置，我尝试使用以下内容来定义路径：

Dim strFolders As String
strFolders = Worksheets("Sheet1").Cells(7, "A").Value

组成了这段代码

Sub CreateFolderStructure()
    Dim objRow As Range, objCell As Range, strFolders As String

    For Each objRow In ActiveSheet.UsedRange.Rows
        Dim strFolders As String
            strFolders = Worksheets("Sheet1").Cells(7, "A").Value
        For Each objCell In objRow.Cells
            strFolders = strFolders & "\" & objCell
        Next
        Shell ("cmd /c md " & Chr(34) & strFolders & Chr(34))
    Next
End Sub

不幸的是，事情没那么简单。我得到了一个重复声明错误，虽然我不明白在哪里（也不明白为什么，所以请随意向我解释一下）。

当然，我希望将路径插入单元格也会将其创建为文件夹（或由于“/”而导致的错误），因此我也在寻找解决方案（但我现在专注于面前的问题），我正在考虑创建一个弹出菜单，你可以在其中定义它们，我不确定这有多难，但我现在仍在学习诀窍，所以我现在专注于一些简单的事情。

我暂时将这个问题留在这里，同时我自己继续寻找解决方案，如果我找到答案，我一定会更新它！

谢谢

答案1

由于您已经声明了strFolders两次，一次是在中与其他变量一起声明2nd Row，第二次是在中Row 4，所以你得到了Duplicate declaration error

从第 4 行找到的代码中删除此行。

 Dim strFolders As String

相关内容