电脑教程
位置:首页>> 电脑教程>> office教程>> excel工作簿拆分实现VBA代码

excel工作簿拆分实现VBA代码

  发布时间:2023-03-05 03:50:25 

标签:excel工作簿拆分

一个工作簿中包括N个工作表,将各个工作表拆分成工作簿。

工作表数量不定,表内内容不限,拆分后保存于当前文件夹内。

Sub Sample()
Dim MySheetsCount As Long
For MySheetsCount = 1 To Sheets.Count
Sheets(MySheetsCount).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & Sheets(1).Name & ".xlsx"
ActiveWindow.Close
Next
End Sub

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com