officeba >
单独文章
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
大家可以试下。
声明:欢迎各大网站转载本站文章,还请保留一条能直接指向本站的超级链接,谢谢!
时间:2009-05-25 16:43:23,点击:65824
【OfficeBa论坛】:阅读本文时遇到了什么问题,可以到论坛进行交流!Excel专家邮件:342327115@qq.com(大家在Excel使用中遇到什么问题,可以咨询此邮箱)。