如何快速把一个工作薄内的多张表分别保存为单独的工作薄，新的工作簿的名称为表名

wangcx

如何快速把一个工作薄内的多张表分别保存为单独的工作薄，新的工作簿的名称为表名，路径是桌面就可以了。
急，求助。有600多张表呢。

lyf7276

Sub kl()
Dim kk As wokbook
mm = Sheets.Count
For i = 1 To mm
na = Sheets(i).Name
Set kk = Workbooks.Add
kk.SaveAs "C:\Documents and Settings\Administrator\桌面\" & na

Next
End Sub

lyf7276

这一句的路径是我的电脑的，你最好复制你自己的桌面路径。
kk.SaveAs "C:\Documents and Settings\Administrator\桌面\" & na这要改成kk.SaveAs "C:\Documents and Settings\Administrator\桌面\" & na&".xls"