亲爱的stackoverflow社区:

我一直在研究一个程序,该程序根据Excel中的索引来制作地图结构。

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



根据索引,我想要索引的文件夹结构。我可以将其用于C56D56。因此,这意味着一章。这是代码:

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是索引开始的位置)不幸的是,这没有用。我还搜索了多个站点,并尝试了不同的方法。那也没有得到任何结果。

简短回顾;我想在代码中合并单元格C56D56的文本。然后对于C57D57等也是如此,而不必为每个单独的行编写它。

最终的想法是,一个人将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

关于excel - 合并两个单元格的文本作为文件路径的输出,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/41379194/

10-11 22:20
查看更多