excel - 组合两个单元格的文本作为文件路径的输出

Question

亲爱的 stackoverflow 社区，

我一直在开发一个程序，该程序根据 Excel 中创建的索引制作 map 结构。

该索引是可变的，这意味着章节的名称可以随时不同。章节数并不总是相同。因为我使用数据验证来选择章节内容，所以我无法使用连接选项在同一单元格中对章节进行编号。请参阅此处:

根据索引，我想要索引的文件夹结构。我可以让它适用于 C56 和 D56。所以这意味着一章。这是代码:

Sub Try_This_Maybe_Multiple()

    Dim myDir As String
    myDir = Sheets("Invulformulier").Range("J6") & "\" & "Material data book" & "\" & Sheets("Index").Range("C56") & " " & Sheets("Index").Range("D56")
    MkDir myDir
    On Error GoTo 0

End Sub

现在我尝试放入 Range("C56:C70") 和 Range("D56:D70")。 (C56 是索引开始的位置)不幸的是，这不起作用。我还搜索了多个网站并尝试了不同的东西。那也没有给出任何结果。

简短回顾；我想合并代码中单元格 C56 和 D56 的文本。然后对于 C57 和 D57 等也是如此，而不必为每个单独的行编写它。

最终的想法是，人们将 pdf 文件放置在其所属的文件夹结构中，然后按照文件夹结构创建一个组合的 pdf 文件:

我希望我的问题足够清楚。如果没有，请问我需要什么信息。

谢谢。

Answer 1

只需使用 For 循环遍历范围中的单元格并根据行创建文件夹。假设您的单元格范围由一行分隔，并且从第 56 行到第 70 行，请尝试以下操作:

Sub Test()

    Dim myDir As String
    Dim x as long

    For x = 56 to 70 Step 2
        myDir = Sheets("Invulformulier").Range("J6") & "\" & _
                "Material data book" & "\" & Sheets("Index").Range("C" & x) & " " & _
                Sheets("Index").Range("D" & x)
        MkDir myDir
    Next x    

End Sub