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

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

 我来答

1个回答

#热议# 什么是淋病？哪些行为会感染淋病？

jidong2107
2012-03-05 · TA获得超过867个赞

知道小有建树答主

回答量：724

采纳率：75%

帮助的人：211万

我也去答题访问个人页

关注

展开全部

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

追问

能否给些注解

追答

Dim A As Worksheet‘定义变量A为工作表类型
    For Each A In Worksheets’在所有工作表之间循环一次
        A.Activate‘激活工作表A
        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‘新建的工作簿保存，路径为“ThisWorkbook.Path & "\" & A.Name & ".xls"　”程序所在的文件的路径，文件名为A（也就是使用工作表的名称）
        ActiveWindow.Close’关闭当前窗口（新建的工作簿的窗口）
        A.Cells(1, 1).Select‘选中单元格A1
    Next ’循环

本回答被提问者采纳