[已解决]工作薄关闭并删除？

cxzfy12758

关闭并删除工作薄，这句代码该怎么加？
Dim n As Long, i As Long
n = 2
for i = 1 To n
    Workbooks(i).Activate
    Next
    Application.DisplayAlerts = False
    ActiveWorkbook.Close False
   

最佳答案

月排行榜 / 总排行榜

zjdh

2011-8-11 20:02

2楼是自杀宏，以下是他杀宏：

1. Sub AA()
   
2.     Application.DisplayAlerts = False
   
3.     ActiveWorkbook.ChangeFileAccess xlReadOnly
   
4.     Kill ActiveWorkbook.FullName
   
5.     ActiveWorkbook.Close False
   
6. End Sub

复制代码

跳转到最佳答案楼层

zjdh

Application.DisplayAlerts = False

ActiveWorkbook.ChangeFileAccess xlReadOnly

Kill ActiveWorkbook.FullName

ThisWorkbook.Close False

cxzfy12758

回复 zjdh 的帖子

没有关闭工作簿.

无聊的疯子

回复 cxzfy12758 的帖子

ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit

zjdh

2楼是自杀宏，以下是他杀宏：

1. Sub AA()
   
2.     Application.DisplayAlerts = False
   
3.     ActiveWorkbook.ChangeFileAccess xlReadOnly
   
4.     Kill ActiveWorkbook.FullName
   
5.     ActiveWorkbook.Close False
   
6. End Sub

复制代码

hhzjxss

管他是谁杀，反正都是杀！

cxzfy12758

回复 hhzjxss 的帖子

杀错了。会晕的。

cxzfy12758

回复 无聊的疯子 的帖子

全部自杀

老糊涂

学习一下  

jsgslgd

学习一下