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

亲爱的stackoverflow社区：

我一直在开发一个程序，根据Excel中的索引生成地图结构

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

根据索引，我想要索引的文件夹结构。我可以让它在

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

现在我试着将其放入

范围（“C56:C70”）

和

范围（“D56:D70”）

。（

C56

是索引开始的地方）不幸的是，这不起作用。我还搜索了多个网站，尝试了不同的东西。这也没有给出任何结果

简要回顾；我想在代码中合并单元格

C56

和

D56

的文本。然后对于

C57

和

D57

等也一样。。而不必为每一行编写它

最终的想法是，一个人将pdf文件放在它所属的文件夹结构中，然后按照文件夹结构制作一个组合的pdf文件：

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

---

谢谢。

只需使用

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

---

谢谢！这很有效。我正在考虑这样一个解决方案，但不知道如何设置。没问题，如果您对回答感到满意，您可以将答案标记为正确。祝您愉快，我正在寻找“运行时错误'75'：路径/文件访问错误”的解决方案。这可能是因为我输入了“x=56到80”，而在72号单元格之前只有数据。我想我自己解决了这个问题。简单地添加了一个“If”语句，如果单元格为空，“MkDir”就不能完成它的工作。