Question

excel用宏命令快速另存当前工作表为工作薄????

Sub 另存为1()
Application.DisplayAlerts = False
Sheet3.Activate
ActiveSheet.Copy
'[A1:E100] = [A1:E100].Value '只复制数据，不复制公式
[A1:E100] = [A1:E100].Formula '复制公式
ActiveSheet.SetBackgroundPicture Filename:="" '删除背景图

Set vc = ActiveWorkbook.VBProject.VBComponents("sheet2").CodeModule '另存前删除“sheet2”中的代码
X = vc.CountOfLines
For i = X To 1 Step -1
vc.DeleteLines i
Next

'ActiveWorkbook.SaveAs Filename:=fileSaveName & ".xls" '新表打开
End Sub
实现条件：1、在一个工作薄有N个工作表，其中以工作表另存一个单独的工作薄；

2、该工作表公式与数值都不动，且格式不变；
3、该表当中含有代码、窗体命令按钮等，一同删除。
哪位大神帮我看看这命令出错在哪？为什么不能实现第三个条件？帮我直接修改下。

Answer 1

说得简单点。工作表，是我们平时储存信息数据的。而MS Excel4.0宏表是在1992年的时候开发的。可以利用它来完成一些工作表不能完成的任务，和现在的VBA差不多（编写代码）。因为它有很多的宏表函数，还是比较好用的。也有很多爱好者喜欢他，MS也保留了它。