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

紫徽木子76

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

最佳答案

月排行榜 / 总排行榜

dsmch

2014-2-21 19:50

紫徽木子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

风林火山 发表于 2014-2-21 19:01
另存为新工作薄

是只存当前工作簿中的某一张表为新的工作簿，可以吗？

风林火山

你的目的是什么

紫徽木子76

风林火山 发表于 2014-2-21 19:09
你的目的是什么

就是把当前工作簿中的好几张表中的一张表通过代码自动生成一个新的工作簿，新生成的工作簿在原来工作簿不关闭的情况下是只读的状态，若原来的工作簿关闭了，新生成的表就是正常可修改可编辑的那种，这用VBA可以实现吗？

风林火山

可以的，就是把其中一张表复制到新工作薄中

紫徽木子76

风林火山 发表于 2014-2-21 19:17
可以的，就是把其中一张表复制到新工作薄中

O(∩_∩)O谢谢
那么新生成的工作簿在原来工作簿不关闭的情况下是只读的状态，若原来的工作簿关闭了，新生成的表就是正常可修改可编辑的，这如何实现？

dsmch

1. Sub Macro1()
   
2. x = ActiveSheet.Name
   
3. Sheets(x).Copy
   
4. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & x & ".xls"
   
5. Workbooks(x & ".xls").Close 1
   
6. End Sub
   

复制代码

dsmch

alt+f8执行代码，将当前工作表另存为新的工作簿
工作簿名为工作表名称

紫徽木子76

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

太爱你啦！！！！

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

    ActiveSheet.Copy

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheet3.[B2]

End Sub


如何将“Workbooks(x & ".xls").Close 1”加入上面的代码中？