EXCEL VBA 生成文件夹（自动按树状目录）

好久都没有碰过代码了，感觉很手生，呵呵，不过终究还是写出来了，拿出来大家分享，高手别喷。
JCG捷希智能无线专家。

因为有前面 几个合并的数据，所以程序麻烦了点。

Sub makfile()
Dim count, url, words, rwindex, url1, fso
Set fso = CreateObject('Scripting.FileSystemObject')
count = ActiveSheet.UsedRange.Rows.count 'rows
url = 'e:\wireless\'
For words = 1 To count
If Sheet1.Cells(words, 1).Value <> '' Then
url = url + Sheet1.Cells(words, 1).Value + '\'