将Excel表中各个工作表分别导出.docx

《将Excel表中各个工作表分别导出.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、怎样把一张excel表的各个sheet分多张excel表导出，一张sheet成为一张excel表，并用原sheet的名称命名新的excel表？用常规的一步步操作大家都知道吧，但工作表一多，工作量是很大的，也就变成不现实了。我用宏来解决，将每个工作表导出到这个文件的同名文件夹下。SubSaveAllSheet()Application.ScreenUpdating=False'另存时覆盖要有提示去除下面一句Application.DisplayAlerts=FalseDimTPathAsString,XSheetAsWorksheetT

2、Path=ActiveWorkbook.PathForEachXSheetInActiveWorkbook.SheetsXSheet.CopyActiveWorkbook.SaveAsFilename:=TPath&""&ActiveSheet.Name&".xls"ActiveWindow.CloseNext'另存时覆盖要有提示去除上面相应去除下一句Application.DisplayAlerts=TrueApplication.ScreenUpdating=TrueEndSub这段代码值的一提的是Application的两个属

3、性——ScreenUpdating与DisplayAlerts，下面是Excel帮助中这两个属性的相关说明：ScreenUpdating 属性：如果屏幕更新功能是打开的，则该值为 True。Boolean 类型，可读写。 说明：关闭屏幕更新可加快宏的执行速度。这样将看不到宏的执行过程，但宏的执行速度加快了。 当宏结束运行后，请记住将 ScreenUpdating 属性设回到 True。 DisplayAlerts 属性 如果宏运行时 Microsoft Excel 显示特定的警告和消息，则该值为 True。Boolean 类型，可读写

4、。 说明：默认值为 True。如果不想在宏运行时被无穷无尽的提示和警告消息所困扰，请将本属性设置为 False；这样每次出现需用户应答的消息时，Microsoft Excel 将选择默认应答。 如果将该属性设置为 False，则在代码运行结束后，Micorosoft Excel 将该属性设置为 True，除非正运行交叉处理代码。 如果使用工作簿的 SaveAs 方法覆盖现有文件，“覆盖”警告默认为“No”，当 DisplayAlerts 属性值设置为 True 时，Excel 选择“Yes”。