[已解决]怎样将工作簿的指定工作表另存？

1091126096 · 发表于 2013-1-27 11:16

本帖最后由 1091126096 于 2013-1-27 11:19 编辑

求代码：工作簿名为成绩统计，怎样将工作簿的指定工作表（部分）另存？并且要清除工作表事件代码。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-27 16:33

我不知道你是怎么调用的，我这测试是OK的。

Sub 清除代码()
Dim vbc
Dim vbe As Object
Set vbe = ActiveWorkbook.VBProject.VBComponents
For Each vbc In vbe
With vbc.CodeModule
.DeleteLines 1, .CountOfLines
End With
Next
End Sub
Sub test()
ActiveSheet.Copy
Call 清除代码
End Sub

复制代码

你可以在自己的测试。

跳转到最佳答案楼层

hwc2ycy · 发表于 2013-1-27 11:26

简单的办法，复制要的数据，然后新增加一个工作簿，沾贴。
这样就不会有代码。

hwc2ycy · 发表于 2013-1-27 11:26

再保存，关闭。

hwc2ycy · 发表于 2013-1-27 11:28

worksheets的copy方法不指定参数就是复制到一个新工作簿。
里面的代码也可以用代码删除。

1091126096 · 发表于 2013-1-27 11:30

hwc2ycy 发表于 2013-1-27 11:28
worksheets的copy方法不指定参数就是复制到一个新工作簿。
里面的代码也可以用代码删除。

Sheets("查看统计表").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("语文").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("数学").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("英语").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("物理").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("化学").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("生物").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("政治").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("历史").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("地理").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("等级分").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("及格与优秀").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("全科").Copy Before:=Workbooks("九年级.xls").Sheets(1)
   Sheets("前200名").Copy Before:=Workbooks("九年级.xls").Sheets(1)

这段代码只能运行第1行，请帮忙诊断。

hwc2ycy · 发表于 2013-1-27 11:34

复制过去后，焦点应该转称到了九年级工作簿了。
九年级里肯定没有语文，数学这些工作表吧。

hwc2ycy · 发表于 2013-1-27 11:42

清除活动工作簿内的代码

Sub 清除代码()
Dim vbc
Dim vbe As Object
Set vbe = ActiveWorkbook.VBProject.VBComponents
For Each vbc In vbe
With vbc.CodeModule
.DeleteLines 1, .CountOfLines
End With
Next
End Sub

复制代码

1091126096 · 发表于 2013-1-27 11:43

hwc2ycy 发表于 2013-1-27 11:34
复制过去后，焦点应该转称到了九年级工作簿了。
九年级里肯定没有语文，数学这些工作表吧。

对，活动工作簿变化了。谢谢指点。

1091126096 · 发表于 2013-1-27 11:52

hwc2ycy 发表于 2013-1-27 11:34
复制过去后，焦点应该转称到了九年级工作簿了。
九年级里肯定没有语文，数学这些工作表吧。

那该怎么处理呢？请指教。

hwc2ycy · 发表于 2013-1-27 11:56

加THISWORKBOOK.前缀。

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