利用 vba想把每一个工作表（sheet1 sheet2 sheet3 等等）以工作表名命名另存为一个新的excel文件

Question

求代码~利用 vba想把123.xls中每一个工作表（sheet1 sheet2 sheet3 等等）以工作表名 另存为一个新的excel文件（sheet1.xls sheet2.xls sheet3.xls等等）到原excel目录 哪位大神帮帮忙

Answer 1

Sub test()

Dim sht As Worksheet

For Each sht In Sheets

    sht.Copy

    ActiveWorkbook.Close True, ThisWorkbook.Path & "\" & sht.Name & ".xls"

Next

End Sub