您的位置:首页 > 编程语言 > VB

VBA工作表操作之拆分工作表

2020-04-25 19:00 1061 查看

VBA–同一个工作簿中如何拆分工作表

Sub 拆分工作表()
Dim sht As Worksheet
Dim wb As Workbook
For Each sht In Worksheets
sht.Copy
Set wb = ActiveWorkbook
wb.SaveAs Filename:=thisworkbook.path & “” & Sheets(1).Name & “.xlsx” '保存在该工作簿同一个路径下
wb.Close True
Next
End Sub

  • 点赞
  • 收藏
  • 分享
  • 文章举报
Chanchan817 发布了2 篇原创文章 · 获赞 0 · 访问量 63 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: