请教大家一个问题

Question

各位高手：
    我想请教大家一个问题。用excel下的vb宏编程。有没有函数把excel工作簿中的一个sheet单独复制成另一个excel文件。    如果做不到的话，能不能把这个sheet中的所有内容（包括格式，标题，颜色）全部复制到另外一个excel文件里。
    请高手指教。

Answer 1

Sub Save2()
'将sheet1存在新的book2.xls里面
    Sheets("Sheet1").Select
    Sheets("Sheet1").Move
    ActiveWorkbook.SaveAs Filename:="L:\my_documents\Book2.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

Answer 2

Cells.Select
    Range("B3").Activate
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Documents and Settings\Administrator.TECHNOFANTASY\My Documents\eerrt.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
上面的代码是通过Excel的宏记录记录下来的。