[已解决]删除工作簿2中所有工作表里内容

ymq123

点击按钮删除工作簿2中所有工作表里内容，请帮助修改代码。谢谢

最佳答案

月排行榜 / 总排行榜

lisachen

2013-8-22 19:31

1. 
   
2. Private Sub c1_Click()
   
3. On Error Resume Next
   
4. Dim sh As Worksheet
   
5. Workbooks.Open ThisWorkbook.Path & "\2.xls"
   
6. For Each sh In Workbooks("2.xls").Sheets
   
7. sh.Cells.Clear
   
8. Next
   
9. Workbooks("2.xls").Close True
   
10. End Sub

复制代码

跳转到最佳答案楼层

lisachen

1. 
   
2. Private Sub c1_Click()
   
3. On Error Resume Next
   
4. Dim sh As Worksheet
   
5. Workbooks.Open ThisWorkbook.Path & "\2.xls"
   
6. For Each sh In Workbooks("2.xls").Sheets
   
7. sh.Cells.Clear
   
8. Next
   
9. Workbooks("2.xls").Close True
   
10. End Sub

复制代码

殿堂之上

在打开与不打开的情况下都 可以