admin管理员组文章数量:1794759
excelvba可以实现哪些功能
Excel工作表有自动保存的功能，是我们在进行工作表操作的时候，以防止突然断电或电脑死机而造成的数据丢失问题而设置的一个安全措施。
通常， 可以在项目设置里进行设置，这个也很容易找到，如下图所示：
下面用一个示例，来通过VBA代码实现如上设置的功能。
这样有一个方便之处就是，在程序设计的时候会十分清楚地知道当前工作表是否具有自动保存恢复的功能。
然后，根据实际情况来对程序进行相应的处理。
示例效果图
对象名：AutoRecover
|
属性 |
说明 |
|
Application |
返回一个Application对象 |
|
Creator |
返回一个 32 位整数，该整数指示在其中创建了此对象的应用程序。 只读 Long |
|
Enabled |
如果启用对象，则为 True。 读/写 Boolean |
|
Parent |
返回指定对象的父对象 |
|
Path |
返回或设置一 个字符串 值，表示将存储自动Microsoft Excel文件 的完整 路径 |
|
Time |
设置或返回 AutoRecover 对象的 时间间隔。 允许的值为从 1 到 120 分钟的整数。 默认值为 10 分钟。 读/写 Long |
对象AutoRecover通过Application对象返回：
set Ar=Application.AtuoRecover
Ar就是一个AtuoRecover对象
代码：
PrivateSub 启用自动恢复_Click() Application.AutoRecover.Enabled = TrueEnd Sub PrivateSub 关闭自动恢复_Click() Application.AutoRecover.Enabled = FalseEnd Sub PrivateSub 设置自动保存路径()WithApplication.FileDialog(msoFileDialogFolderPicker)If.Show = -1 ThenMe.TextBox1.Value= .SelectedItems(1)Application.AutoRecover.Path= .SelectedItems(1)EndIfEndWithEndSub PrivateSub 设置保存间隔时间()WithApplication.AutoRecover.Time= 15‘15分钟EndWithEndSub作为一个安全措施，这一步也很重要，通常在丢失数据的时候才会想起来，如何恢复的方法，实际在工作当中稍微留意一下，很问题就会避免发生。
当然，这也不是个万全之策，很多时候恢复的文件也会出现损坏，所以，还是在工作当中养成随时保存编辑文件的习惯，最好不过了。
版权声明：本文标题：excelvba可以实现哪些功能 内容由林淑君副主任自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.xiehuijuan.com/baike/1686547023a80398.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论