如何用VBA实现另存为？

Paranoid_G

要求另存为的文件中：
1、公式不要
2、VBA代码不要

oobird

Sub Macro1()
    Cells.Copy
    Workbooks.Add
    Cells.PasteSpecial Paste:=xlPasteValues
    Cells.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    With ActiveWorkbook
    .SaveAs "d:\xxxx.xls"
    .Close SaveChanges:=True
    End With
End Sub

Paranoid_G

以上代码非常好用，但是：
1、无法复制图表
2、我这个文件里有n个表，怎么都复制过去？

6688

Sub Macro1()
     
    activesheet.Copy
    cells.copy
    Cells.PasteSpecial Paste:=xlPasteValues
    Cells.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    With ActiveWorkbook
    .SaveAs "d:\xxxx.xls"
    .Close SaveChanges:=True
    End With
End Sub

Paranoid_G

依然不行。。。。。。

怎么把所有的工作表都存过去呢？
另外我发现保存过去以后，有几行数据丢失了。。。。。

[ 本帖最后由 Paranoid_G 于 2009-5-23 18:40 编辑 ]

xloyo

另存为很好办啊,你录制一个新的宏,把要实现的全部操作一遍, 然后再进行调整一下就OK了.

最好是把你自己要调整的东西附件上来.那样别人才能更好的帮你解决.

Paranoid_G

ls，另存为以后你怎么删除vba代码阿？

mobuli

这样的要求做什么

tanglf188

ActiveWorkbook.Save

alex2008alex

另存为（非宏）后，再加上一个复制粘贴全表（消除公式及VBA））就可以了。