
VBA
2、按Alt+F11进入VBA
3、在工程资源管理器窗口单击鼠标右键,选择插入-模块

屏幕
Sub 另存所有工作表为工作簿()Dim sht As Worksheet*.screenupdating = False '禁用屏幕刷新ipath = *.path & \ '当前工作簿的文件目录For Each sht In Sheets *.copy *.saveas ipath & *.name & .xls '(工作表名称为文件名) *.closeNext***.screenupdating = True '恢复屏幕刷新End Sub
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号