用VBS 把Excel 中的指定工作表，存成独立XLS 文件。

例如：A.xls中有sheet1,sheet2,工作表3，工作表4等等
存成sheet2.xls 工作表4.

我需要能存成.vbs的文件的代码。在XP下直接运行就可以那种。有些看不太懂。能否给些注解。
例如：A.xls中有sheet1,sheet2,工作表3，工作表4等等
指定工作表存成sheet2.xls 工作表4.xls，不是所有工作表都另存。

Dim A As Worksheet
For Each A In Worksheets
A.Activate
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & A.Name & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
A.Cells(1, 1).Select
Next

没看懂什么意思？