翻译研究

热门翻译

翻译技巧
您现在的位置:首页 » 翻译研究 » 翻译技巧

excel多个sheet表拆分成独立的excel文件

2018-11-22 17:15:28 点击数:
注意:本操作以wps为例,其它的请自行测试
(1)下载【wps vba宏插件】
(2)点击 【开发工具】--》【vba编辑器】--》【插入】--》【模块】
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 "文件已经被分拆完毕!"
End Sub
在线留言
在线客服
  • 深圳业务部-刘生
    点击这里给我发消息
  • 深圳业务部-Jim
    点击这里给我发消息
  • 广州业务部-Josee
    点击这里给我发消息
  • 配音业务部-Michelle
    点击这里给我发消息