[已解决]求助：工作薄的分解

松籽

工作薄 [book1] 中有三个表，sheet1 ,sheet2,sheet3,如何将它们拆分成三个独立同名的工作薄？

比如说变成四个工作薄，存在同一路径下  [Book1],[sheet1],[sheet2],[sheet3]

最佳答案

月排行榜 / 总排行榜

nichangdong

2010-6-14 19:39

也可以用ＶＢＡ

Sub 导出为Excel文件()
Application.ScreenUpdating = False
    MM = ThisWorkbook.Path
    CC = Sheets.Count
      For X = 1 To Sheets.Count
        NN = Sheets(X).Name
        Sheets(X).Copy
        ActiveWorkbook.SaveAs MM & "\" & NN & ".XLS"
        ActiveWorkbook.Close True
      Next X
Application.ScreenUpdating = True
End Sub

[此贴子已经被作者于2010-6-14 19:41:25编辑过]

跳转到最佳答案楼层

nichangdong

求助：工作薄的分解

nichangdong

也可以用ＶＢＡ

Sub 导出为Excel文件()
Application.ScreenUpdating = False
    MM = ThisWorkbook.Path
    CC = Sheets.Count
      For X = 1 To Sheets.Count
        NN = Sheets(X).Name
        Sheets(X).Copy
        ActiveWorkbook.SaveAs MM & "\" & NN & ".XLS"
        ActiveWorkbook.Close True
      Next X
Application.ScreenUpdating = True
End Sub

[此贴子已经被作者于2010-6-14 19:41:25编辑过]

松籽

两个问题：

1、我的右键中怎么没有“导出为文件”？

2、挑个刺，VBA中，相当于用了另存为。那么sheets(X).copy就不需要了

谢谢

nichangdong

QUOTE:

以下是引用松籽在2010-6-15 9:52:00的发言：

两个问题：

1、我的右键中怎么没有“导出为文件”？　　　点中要导出的工作表的工作表标签鼠标右键，再看看一下

2、挑个刺，VBA中，相当于用了另存为。那么sheets(X).copy就不需要了　　　谢谢

[此贴子已经被作者于2010-6-15 10:08:08编辑过]

我不知道呀

学习学习，支持！！！