1、直接保存。Sub SaveWb() ThisWorkbook.SaveEnd Sub

3、复制保存(打开的表格名称不变,相同目录下增加一个SaveCopyWb.xlsm")。Sub SaveCopyWb() ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\SaveCopyWb.xlsm"End Sub

时间:2024-10-14 21:03:13
1、直接保存。Sub SaveWb() ThisWorkbook.SaveEnd Sub
3、复制保存(打开的表格名称不变,相同目录下增加一个SaveCopyWb.xlsm")。Sub SaveCopyWb() ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\SaveCopyWb.xlsm"End Sub