[已解决]新建工作簿，给其命名为“样表”

要用就学

新建工作簿，给其命名为“样表”并将“麻花”工作簿中的sheet1至sheet10以外所有的工作表复制到“样表”工作簿中，再删除“样表”工作簿中的sheet1至sheet3这三个工作表代码怎么写，请教高手指点

最佳答案

月排行榜 / 总排行榜

adders

2013-7-12 10:32

思路换一下,同样达到你要的效果:

1) 拷贝"麻花"工作簿到"样表"工作簿 ("麻花"需在关闭状态才能用FileCopy,如在打开状态,则用SaveAs)
2) 打开"样表"工作簿将Sheet1到Sheet10删除

1. .......
   
2. FileCopy "C:\麻花.xls" "C:\样表.xls"    '路径C:\只是示例,你自己根据实际情况改
   
3. Workbooks.Open("C:\样表.xls")
   
4. Application.DisplayAlerts = False
   
5. For i = 1 to 10
   
6.      Sheets("Sheet" & i).Delete
   
7. Next i
   
8. Application.DisplayAlerts = True
   
9. ......

复制代码

跳转到最佳答案楼层

zjdh

你得上传附件！！

adders

思路换一下,同样达到你要的效果:

1) 拷贝"麻花"工作簿到"样表"工作簿 ("麻花"需在关闭状态才能用FileCopy,如在打开状态,则用SaveAs)
2) 打开"样表"工作簿将Sheet1到Sheet10删除

1. .......
   
2. FileCopy "C:\麻花.xls" "C:\样表.xls"    '路径C:\只是示例,你自己根据实际情况改
   
3. Workbooks.Open("C:\样表.xls")
   
4. Application.DisplayAlerts = False
   
5. For i = 1 to 10
   
6.      Sheets("Sheet" & i).Delete
   
7. Next i
   
8. Application.DisplayAlerts = True
   
9. ......

复制代码