excel学习库

一、Excel宏代码

Private Sub 拆分工作表成为工作簿()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕--潮普哥带你学Excel!"
End Sub 

二、WPS宏代码

function 拆分工作表成为工作簿(){
let path=ThisWorkbook.Path + "\\";//路径
app_set(false);//取消屏幕刷新
for(let sht of Worksheets){//遍历工作表
sht.Copy();//工作表复制后成为活动工作簿
with(ActiveWorkbook){
SaveAs(path + sht.Name);//默认文件类型并覆盖同名同类型文件
Close(true);//保存关闭
}
}
app_set(true);//恢复屏幕刷新
MsgBox("转换完成",0,"潮普哥带你学Excel")
}
function app_set(bln){//设定屏幕刷新等
with(Application){
DisplayAlerts=bln;
ScreenUpdating=bln
}
}