从Excel列表中创build文件夹

我在Excel表格B2-B40中有地址。 C2-C40中的数字 并且这两列用红色和绿色着色，在不同的行中。

我试图完成的是：

1. 使用不同的数字创build主文件夹（C列）。 每个主文件夹具有不同的唯一编号2,3,5,8等

2. 在每个主文件夹内，有两个不同的文件夹，红色和绿色。 即内部2两个单独的文件夹，红色和绿色。

3. 里面编号的主文件夹，然后红色（或绿色）文件夹，该地址的文件夹（它下面）。 例B2，地址是124×车道，C2栏中相应的数字是9. B2和C2都是红色。

所以文件夹应该被创build为：“9”在“124 x车道”里面的“红色”。

所以循环应读取所有的地址，并创build主文件夹，在这两个颜色文件夹内，并在所有相应的地址内的颜色和数字。

我做的是（VBSCRIPT）

ub Make_Directory() Dim MyRange As Range Dim Path As String Path = "C:\" MkDir Path & "test" Path = "C:\test\" 'The next line is your list of names Set MyRange = Sheets("Sheet1").Range("B2:B40") On Error Resume Next For Each c In MyRange MkDir Path & c.Value Next On Error GoTo 0 End Sub 

它做了什么是创build所有的地址文件夹，但都在testing文件夹内。 但是我无法根据自己的需要对其进行修改。

请帮助。

提前致谢。

Answer 1

你需要添加/更改这样的东西。 你根本没有看C列的值，所以使用行/列引用的循环可能更有意义。

 Sub Make_Directory() Dim Path As String Path = "C:\test" MkDir Path Path = Path & "\" On Error Resume Next For c = 2 to 40 MkDir Path & Sheets("Sheet1").Cells(c, 3).Value If Sheets("Sheet1").Cells(c,2).Interior.Color = RGB(255,0,0) Then MkDir Path & Sheets("Sheet1").Cells(c, 3).Value & "\Red" MkDir Path & Sheets("Sheet1").Cells(c, 3).Value & "\Red\" & Sheets("Sheet1").Cells(c, 2).Value Else MkDir Path & Sheets("Sheet1").Cells(c, 3).Value & "\Green" MkDir Path & Sheets("Sheet1").Cells(c, 3).Value & "\Green\" & Sheets("Sheet1").Cells(c, 2).Value End If Next c On Error GoTo 0 End Sub