Ip_black的博客

原创 博客摘录「 Excel合并/拆分多个工作表/簿（传统方法）」2024年9月17日

Sub 拆分工作薄()Dim xpath As Stringxpath = ActiveWorkbook.PathDim sht As WorksheetFor Each sht In ActiveWorkbook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name & ".xlsx"ActiveWorkbook.CloseNextMsgBox "工作薄拆分完毕！