excel保存问题

[wxg600308]

excel保存
有没有办法对EXCEL进行选择的保存
如:只保存sheet1的内容,而不保存sheet2的内容
请高手,帮忙
谢谢!

[A_TRY]

很久没有来了啊!
这个没有做过.
帮顶!!

[wully]

除非你把两个sheet拆成两个文件

[ChinaOBS]

Sub CreWBK(ByVal Sht As Worksheet, ByVal WbkName As String)
On Error Resume Next
Sht.Copy
ActiveWorkbook.SaveAs WbkName
ActiveWorkbook.Close True
End Sub
给上面的过程传递2个变量，就可以满足你的要求。
Sht--------工作表，如：sheets(1)/sheets("sheet1")/sheet1
WbkName----工作簿的保存路径及名称，如：F:\1234.xls

引用：
CreWBK sheets("sheet1"),"f:\1234.xls"

[wully]

把sheet2移出原文件book1，保存原文件，再把book2移进来，退出不保存
Sheets("Sheet2").Select
Sheets("Sheet2").Move
Windows("Book1").Activate
ActiveWorkbook.SaveAs Filename:="Book1.xls"
Windows("Book2").Activate
Sheets("Sheet2").Select
Sheets("Sheet2").Move After:=Workbooks("Book1.xls").Sheets(1)
Windows("Book1").Close False