[已解决][求助]删除工作表代码问题

hbhy012

1 红色部分代码有错 不能运行

2 新建的表"ming"中要删除表2和表3(这条代码我不知到怎么写）

３　始终把＂book1＂　作为当前表

Dim lujin$
Dim ming$
lujin = ActiveWorkbook.Path
ming = Workbooks.Add.Name
 Application.Workbooks("book1").Worksheets("sheet1").Copy_
 Application.Workbooks(ming).Worksheets ("sheet1")

谢谢　我是菜鸟　请高手帮忙

[此贴子已经被zjxia889于2008-1-13 20:44:04编辑过]

最佳答案

月排行榜 / 总排行榜

uranus1997

2008-1-13 21:59

看楼主的代码，是想将book1的sheet1复制一个副本到新建的表中吧？

当要复制工作表的时候，如果copy后不跟参数，就会直接新建一个工作簿，并且只有一个工作表，就是你要复制的那个sheet1，也不用删除sheet2和3了。

想book1始终为当前表，那么在复制动作完成后激活book1就可以了，见下面代码

Dim ming$
Workbooks("book1.xls").Worksheets("sheet1").Copy  '复制book1的sheet1到新工作簿
ming = ActiveWorkbook.Name '获取新工作簿的名称
Workbooks("book1.xls").Activate '重新激活book1

[此贴子已经被作者于2008-1-13 22:01:20编辑过]

跳转到最佳答案楼层

xhsdham

楼主上传附件吧

Workbooks(ming)不对 换成Workbooks("" &ming& "")这样试试

青城山苦丁茶

Application.Workbooks("book1").Worksheets("sheet1").Copy_
 Application.Workbooks(ming).Worksheets ("sheet1")

在_前少个空格，加上即可。

删除新建的表"ming"中的表2和表3:Workbooks(ming).Sheets(Array("Sheet2", "Sheet3")).Delete

uranus1997

看楼主的代码，是想将book1的sheet1复制一个副本到新建的表中吧？

当要复制工作表的时候，如果copy后不跟参数，就会直接新建一个工作簿，并且只有一个工作表，就是你要复制的那个sheet1，也不用删除sheet2和3了。

想book1始终为当前表，那么在复制动作完成后激活book1就可以了，见下面代码

Dim ming$
Workbooks("book1.xls").Worksheets("sheet1").Copy  '复制book1的sheet1到新工作簿
ming = ActiveWorkbook.Name '获取新工作簿的名称
Workbooks("book1.xls").Activate '重新激活book1

[此贴子已经被作者于2008-1-13 22:01:20编辑过]

hbhy012

谢谢楼上的3位老师 问题基本解决了 非常感谢您们

hhzjxss

楼上已经有高手解答了，我故意路过一下！