EXCEL用VBA代码拆分sheet为新EXCEL文件
2017-02-25 22:32
701 查看
新文件用sheet名命名，sheet为当前sheet名
Sub Macro1()
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name & ".xls"
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Sub Macro1()
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sht.Name & ".xls"
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- Excel 关于新建xls文件 新建sheet 合并sheet的VBA操作代码
- Office 2003 VBA 遍历目录下的Excel批量拷贝Sheet 组成一个大的Excel文件
- EXCEL VBA代码，实现点击Sheet1按钮控件保存不连续单元格的数据到Sheet2中，然后清空输入内容
- 用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里
- 【VBA】代码生成工具——将Excel配置表转成脚本与配置文件（含源码）
- 请问: vba, excel中打开多个xls文件, 搜索字符串，写入另一个sheet的问题
- vba打开excel文件遍历sheet的名字和指定单元格的值
- VBA代码拆分excel
- VBA处理文件框架代码 【第五部分：Excel文件操作】
- cspreedsheet读写excel文件具体代码
- Excel VBA-批量将多个sheet表另存为单独的工作薄文件
- Excel 文件复制操作vba代码
- Excel 文件复制操作vba代码
- SQL.MDB数据库记录Rs导出到Excel.Sheet中代码(VBA+VB.Net)
- 使用VBA访问ACCESS，Excel文件的方法
- 下面代码实现将 GridView 导出到 Excel文件中。
- 在VBA代码中引用Excel工作表中单元格区域的方式小结
- GemBox.ExcelLite破解版，可以在没有安装Office的情况，使用.net代码操作Excel文件
- ASP导出excel文件的代码（自己试验成功并且一直在使用的哟）
- 生成/读取(反向更新数据库) Excel文件(示例代码下载)