[已解决]如何将当前工作簿中的一张表自动生成一个新的工作簿？

紫徽木子76

dsmch 发表于 2014-2-21 19:23
alt+f8执行代码，将当前工作表另存为新的工作簿
工作簿名为工作表名称

亲爱的版主，您吃饭去了吗？

开心妙妙

Sub AA()
    Dim n
    n = ActiveSheet.Name
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & n
    Workbooks(n).Close True
End Sub

紫徽木子76

dsmch 发表于 2014-2-21 19:23
alt+f8执行代码，将当前工作表另存为新的工作簿
工作簿名为工作表名称

在线等。。。。。。。

dsmch

紫徽木子76 发表于 2014-2-21 19:32
太爱你啦！！！！

Sub 将本工作表单独另存为独立工作薄存于当前工作簿目录，名称为工作表B2单元格的内 ...

Sub Macro1()
Application.ScreenUpdating = False
x = Sheet3.[b2]
Sheet3.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & x & ".xls"
Workbooks(x & ".xls").Close 1
Application.ScreenUpdating = True
End Sub

紫徽木子76

dsmch 发表于 2014-2-21 19:50
Sub Macro1()
Application.ScreenUpdating = False
x = Sheet3.

高手啊，顶礼膜拜{:06:}

紫徽木子76

开心妙妙 发表于 2014-2-21 19:43
Sub AA()
    Dim n
    n = ActiveSheet.Name

thank you very much!!!!!!