[原创]VBA程序集(第1辑)

fanjy · 发表于 2006-6-6 14:54

下面是自已在学习VBA过程中归纳的一些子程序,贴出来供大家参考,希望对您能有所帮助.

VBA程序集 (第1辑)

******************************************************

程序1(对工作簿的操作)

[程序功能] 关闭工作簿

[情形一] 关闭并保存所有工作簿

Option Explicit

Sub CloseAllWorkbooks()

Dim Book As Workbook

For Each Book In Workbooks

If Book.Name<>ThisWorkbook.Name Then

Book.Close savechanges:=True

End If

Next Book

ThisWorkbook.Close savechanges:=True

End Sub

[情形二] 关闭工作簿并将它彻底删除

Option Explicit

Sub KillMe()

With ThisWorkbook

.Saved = True

.ChangeFileAccess

Mode:=xlReadOnly

Kill .FullName .Close False

End With

End Sub

[程序说明] 1、使用本程序时应注意，运行它将彻底删除工作簿。 2、本程序可用于：(1)工作簿到某时间需删除时；(2)没有工作簿权限，输入错误的密码时。 79zhcE2P.rar (723 Bytes, 下载次数: 1036)

By fanjy in 2006-6-6

[此贴子已经被作者于2006-6-21 13:48:59编辑过]

想学VBA · 发表于 2006-6-6 14:58

我喜欢这种基础的东西！楼主辛苦了。

shewoyu · 发表于 2006-6-6 15:09

里面的排序好像不能排序！

楼主辛苦了，对于VBA初学者是各福音。

okmhy · 发表于 2006-6-6 15:27

我是一个菜鸟，这些对我来说，简直就是我的未来，太好了，楼主辛苦了，谢谢你！

我收藏了！

opiona · 发表于 2006-6-6 16:18

我收藏了！期待下一期

harold_han · 发表于 2006-6-6 16:18

好，收藏！谢谢楼主辛苦！

mydeeper · 发表于 2006-6-6 21:35

非常感谢,下了学习学习

清风_ll · 发表于 2006-6-6 21:38

期待楼主后续

hillzx2000 · 发表于 2006-6-15 13:38

好，确实是好，就是看不懂。

goso · 发表于 2006-6-19 20:06

LZ 小弟新学VBA 最近研究你的程序有些问题很初级还是希望你能给解答 1.程序1中ThisWorkbook.Close savechanges:=True作何用啊? 是关闭最后一个workbook吗? 为什么我加上这句和不用这句执行的结果是一样的呢? 2.很弱地问: :=是什么意思啊? 是给方法的参数赋值吗? 是的话情形二厘里面的.close false 中false前为什么不加:=呢还有xlReadOnly中的xl代表什么啊? 小弟先谢过了

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

[原创]VBA程序集(第1辑)

[求助]