EXCEL中利用VBA自动生成多个文件

在EXCEL中利用不同单元格的内容生成对应的XLS文件！
举例，有A、B、C、D单元格内容分别是aa/bb/cc/dd/ee,那么要对应生成aa.xls,bb.xls,cc.xls,dd.xls,ee.xls!
VBA代码如下：
Sub Test()
Dim Path As String
Dim tRan As Range
Dim tWb As Workbook
'文件保存路径
Path = "D:\"
'数据所在单元格
Set tRan = ActiveSheet.Range("A1")
'禁止出现提示！当路径存在同名文件则覆盖！
Application.DisplayAlerts = False
'当单元格内容不为空时
Do While tRan.value <> ""
     '新建一个文件
     Set tWb = Workbooks.Add
     '保存
     tWb.SaveAs Path & tRan.value & ".xls"
     '关闭
     tWb.Close False
     '下一个单元格
     Set tRan = tRan.Offset(1, 0)
Loop
'开启提示
Application.DisplayAlerts = True
End Sub
大家可以试下。