亲爱的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
现在,我尝试放入
Range("C56:C70")
和Range("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
关于excel - 合并两个单元格的文本作为文件路径的输出,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/41379194/