office > 技术文章


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,点击:0


【OfficeBa论坛】:阅读本文时遇到了什么问题,可以到论坛进行交流!Excel专家邮件:342327115@qq.com(大家在Excel使用中遇到什么问题,可以咨询此邮箱)。

【声明】:以上文章或资料除注明为Office自创或编辑整理外,均为各方收集或网友推荐所得。其中摘录的内容以共享、研究为目的,不存在任何商业考虑。如有任何异议,请与本站联系,本站确认后将立即撤下。谢谢您的支持与理解!


相关评论

我要评论

评论内容