将一个excel文件中多个sheet页“拆分“成多个“独立“excel文件
1. 开启"开发工具"
- “文件” ---- “选项” ----“自定义功能区” ---- “开发工具”
2. 打开visual basic
3. 选择这个"thisworkbook",双击
4. 输入命令
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook // 当前表格
For Each sht In MyBook.Sheets // 遍历整表
sht.Copy // 复制sheet页
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name & ".xlsx", FileFormat:=xlNormal ' // ☆☆☆☆ 将工作簿另存为EXCEL的.xlsx格式
ActiveWorkbook.Close // 关闭当前表格
Next
MsgBox "文件已经被分拆完毕!" // 完成后提示
End Sub