[已解决]请教如何写代码实现

htcaiwuke · 发表于 2010-2-1 19:46

请教如何写代码实现：

保存工作簿中的一个工作表到指定位置？谢谢！

最佳答案

枯禅

2010-2-1 19:57

Sub test()
ActiveSheet.Copy
ActiveWorkbook.Close SaveChanges:=True, Filename:=ThisWorkbook.Path & "\SheetBackup.xls"
End Sub

枯禅 · 发表于 2010-2-1 19:57

Sub test()
ActiveSheet.Copy
ActiveWorkbook.Close SaveChanges:=True, Filename:=ThisWorkbook.Path & "\SheetBackup.xls"
End Sub

htcaiwuke · 发表于 2010-2-1 20:12

谢谢枯禅！

huangmin01zs · 发表于 2010-2-2 19:25

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			注册

huangmin01zs huangmin01zs 当前离线积分 26 IP卡狗仔卡	发表于 2010-2-2 19:25 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
huangmin01zs huangmin01zs 当前离线积分 26 IP卡狗仔卡
	回复使用道具举报显身卡